Visual Basic中文本框控件的消息及应用

　 TEXT 控件是“文本框控件”的简称 , 它通常用于输入和编辑文字。它属于标准 Windows 编辑控件的一个子类 , 所以它支持所有编辑控件消息。这儿讲述的技术也适用于由其他厂商设计的 , 以 Windows 编辑控件类为基础的其他控件。
　　本文将介绍文本控件的消息 , 这些消息显著扩展了控件本身的能力 , 使我们在程序中能够更灵活的控制控件 , 不必只仅仅依赖于 Visual Basic 所提供的属性或事件 , 这些消息在进行子类处理中很有用处。下面先介绍控件的消息 , 然后介绍它们的一些应用。


下表列出了文本控件的常用通知消息 :

消息名称	消息说明
EN_CHANGE	编辑控件的内容一旦发生改变，就发送这条消息。
EN_ERRSPACE	任何时候只要由于内存不足以完成一项编辑操作，就发送这条消息。
EN_HSCROLL	只要用户单击了从属于一个编辑控件的水平滚动条的任何地方，就会发送这条消息。注意这条消息是在控件更新显示之前发送出去的。
EN_KILLFOCUS	一旦控件丢失了输入焦点，则发出这条消息。
EN_MAXTEXT	只要用户输人的文字试图超出由 EM_LIMITTEXT 消息规定购界限，或试图超出由 VB Maxlength 属性规定的界限，就会发送这条消息。此外，倘若不允许自动进行水平滚动，同时插入点要超出控件的宽度；或者不允许自动自动滚动，同时插入点要超出接件的高度，那么也会触发这条消息。
EN_SETFOCUS	一旦控件接收到了输入焦点，就发出这条消息。
EN_UPDATE
EN_VSCROLL	只要用户单击了从属于一个编辑控件的垂直滚动条的任何地方，就会发送这条消息。注意这条消息是在控件更新显示之前发送出去的。

下表列出了文本控件的常用消息 :

消息名称	消息说明
EM_CANUNDO	决定前一次编辑操作是否能够撤消
EM_EMPTYUNDOBUFFER	清除控件的撤消缓冲区，使其不可能撤消前一次编辑操作
EM_UNDO	撤消前一次编辑操作
EM_FMTLINES	决定是否在取回的文本宇串中包含软回车字符
EM_GETLIMITTEXT	获取一个编辑控件中文本的最大长度
EM_GETMARGINS	获取编辑控件的左、右边距 ( 不得用于 NT3 ． 51)
EM_GETRECT	获取一个编辑控件的格式化矩形
EM_LIMITTEXT	限制编辑耀件甲购文本长度
EM_SETLIMITTEXT	限制编辑控件中的文本长度 ( 不得用于 NT3 ． 51)
EM_SETMARGINS	设置编辑控件的左、右边距 ( 不得用于 NT3 ． 51)
EM_SETRECT	为一个编辑控件设置格式化矩形
EM_SETRECTNP	与 EM_SETRECT 类似，只是控件此时不会重画
EM_SETTABSTOPS	设置编辑控件中的制表站间距
EM_CHARFROMPOS	判断编辑控件指定位置处的字符 ( 不适用于 NT3 ． 51)
EM_GETFIRSTVISIBLEIN	判断编辑控件中显示的第一行
EM_GETLINE	从编辑控件取回…行的内容
EM_GETLINECOUNT	判断一个编辑控件的总行数
EM_GETMODIFY	判断编辑控件的内容是否已发生变化
EM_GETPASSWORDCHAR	取得编辑控件的密码字符
EM_GETSEL	判断编辑控件中一段选定内容的起点与终点
EM_LINEFROMCHAR	判断是哪一行显示了某个特殊字符
EM_LINEINDEX	判断指定行第一个字符的编号
EM_LINELENGTH	判断一行长度
EM_LINESCROLL	滚动编辑控件
EM_POSFROMCHAR	判断指定字符在编辑控件的位置 ( 用于 NT3 ． 51)
EM_REPLACESEL	用指定文本替换编辑控件中的当前选定内容
EM_SETMODIFY	用于设置或清除一个编辑控件的修改标志
EM_SETPASSWORDCHAR	为指定的控件设置密码字符
EM_READONLY	决定是否将编辑控件设为只读
EM_SETSEL	设置编辑控件中一段选定内容的起点一终点

下面将介绍文本框控件消息的一些应用:


下面的函数将返回控件的文本行数,如果控件的文本为空也会返回1。
Function GetLineCount(CTextBox As TextBox) As Long
　　GetLineCount = SendMessage(CTextBox.hWnd, EM_GETLINECOUNT, 0, 0)
End Function


下面的函数将返回控件中显示的第一行的行号。
Function GetFirstVisableLine(CTextBox As TextBox) As Long
　　GetFirstVisableLine = SendMessageBynum(CTextBox.hwnd, EM_GETFIRSTVISIBLELINE, 0, 0)
End Function


下面的函数将返回控件能显示的行数。
Function GetVisibleLines(CTextBox As TextBox) As Long
Dim rc As RECT
Dim hDC&, lfont&, oldfont&
Dim di&, lc&
Dim tm As TEXTMETRIC
　lc = SendMessage(CTextBox.hwnd, EM_GETRECT, 0, rc)
　lfont = SendMessage(CTextBox.hwnd, WM_GETFONT, 0, 0)
　hDC = GetDC(CTextBox.hwnd)
　If lfont <>0 Then oldfont = SelectObject(hDC, lfont)
　　di = GetTextMetrics(hDC, tm)
　If lfont<> 0 Then lfont = SelectObject(hDC, oldfont)
　　GetVisibleLines = (rc.bottom - rc.top) / tm.tmHeight
　　di = ReleaseDC(CTextBox.hwnd, hDC)
End Function
　　下面的函数能够滚动控件,不过在滚动之前最好判断控件的文本行数和能够显示的行数,以免滚动时发生混乱。函数SendMessageBynum是一个SendMessage函数的安全声明函数,其定义与SendMessage函数完全相同,只是函数名不同。
Function ScrollTextBox(CTextBox As TextBox, nVal As Long, _
Optional nVertical As Boolean = True) As Long
　If nVertical Then
　　ScrollTextBox = SendMessageBynum(CTextBox.hwnd, EM_LINESCROLL, 0, nVal)
　Else
　　ScrollTextBox = SendMessageBynum(CTextBox.hwnd, EM_LINESCROLL, nVal, 0)
　End If
End Function
下面的函数能够返回控件指定行的文本。SendMessageBystring与SendMessageBynum类似。
Function GetLineText(CTextBox As TextBox, LineIndex As Long) As String
　Dim lc&, linechar&
　linechar = SendMessageBynum(CTextBox.hwnd, EM_LINEINDEX, LineIndex, 0)
　lc = SendMessageBynum(CTextBox.hwnd, EM_LINELENGTH, linechar, 0) + 1
　GetLineText = String$(lc + 2, 0)
　Mid$(GetLineText, 1, 1) = Chr(lc And &HFF)
　Mid$(GetLineText, 2, 1) = Chr(lc / &H100)
　lc = SendMessageBystring(CTextBox.hwnd, EM_GETLINE, LineIndex, GetLineText)
　GetLineText = left(GetLineText, lc)
End Function
下面的函数可以设置控件的左边距。
Public Const EM_SETMARGINS& = &HD3
Public Const EC_LEFTMARGIN& = &H1
Function SetMargins(CTextBox As TextBox, nVal As Long) As Long
　SetMargins = SendMessageBynum(CTextBox.hwnd, EM_SETMARGINS, EC_LEFTMARGIN, nVal)
End Function