文本框控件的消息及应用
来源:互联网 发布:linux rm删除文件夹 编辑:程序博客网 时间:2024/05/13 07:21
编辑(或文字)控件是“文本框控件”的简称,它通常用于输入和编辑文字。它属于标准Windows编辑控件的一个子类,所以它支持所有编辑控件消息。这儿讲述的技术也适用于由其他厂商设计的,以Windows编辑控件类为基础的其他控件。
本文将介绍文本控件的消息,这些消息显著扩展了控件本身的能力,使我们在程序中能够更灵活的控制控件,不必只仅仅依赖于Visual Basic所提供的属性或事件,这些消息在进行子类处理中很有用处。下面先介绍控件的消息,然后介绍它们的一些应用。
下表列出了文本控件的常用通知消息:
消息名称消息说明EN_CHANGE编辑控件的内容一旦发生改变,就发送这条消息。EN_ERRSPACE任何时候只要由于内存不足以完成一项编辑操作,就发送这条消息。EN_HSCROLL只要用户单击了从属于一个编辑控件的水平滚动条的任何地方,就会发送这条消息。注意这条消息是在控件更新显示之前发送出去的。EN_KILLFOCUS一旦控件丢失了输入焦点,则发出这条消息。EN_MAXTEXT只要用户输人的文字试图超出由EM_LIMITTEXT消息规定购界限,或试图超出由VB Maxlength属性规定的界限,就会发送这条消息。此外,倘若不允许自动进行水平滚动,同时插入点要超出控件的宽度;或者不允许自动自动滚动,同时插入点要超出接件的高度,那么也会触发这条消息。EN_SETFOCUS一旦控件接收到了输入焦点,就发出这条消息。EN_UPDATEEN_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 $#@60;$#@62; 0 Then oldfont = SelectObject(hDC, lfont)
di = GetTextMetrics(hDC, tm)
If lfont $#@60;$#@62; 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
本文将介绍文本控件的消息,这些消息显著扩展了控件本身的能力,使我们在程序中能够更灵活的控制控件,不必只仅仅依赖于Visual Basic所提供的属性或事件,这些消息在进行子类处理中很有用处。下面先介绍控件的消息,然后介绍它们的一些应用。
下表列出了文本控件的常用通知消息:
消息名称消息说明EN_CHANGE编辑控件的内容一旦发生改变,就发送这条消息。EN_ERRSPACE任何时候只要由于内存不足以完成一项编辑操作,就发送这条消息。EN_HSCROLL只要用户单击了从属于一个编辑控件的水平滚动条的任何地方,就会发送这条消息。注意这条消息是在控件更新显示之前发送出去的。EN_KILLFOCUS一旦控件丢失了输入焦点,则发出这条消息。EN_MAXTEXT只要用户输人的文字试图超出由EM_LIMITTEXT消息规定购界限,或试图超出由VB Maxlength属性规定的界限,就会发送这条消息。此外,倘若不允许自动进行水平滚动,同时插入点要超出控件的宽度;或者不允许自动自动滚动,同时插入点要超出接件的高度,那么也会触发这条消息。EN_SETFOCUS一旦控件接收到了输入焦点,就发出这条消息。EN_UPDATEEN_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 $#@60;$#@62; 0 Then oldfont = SelectObject(hDC, lfont)
di = GetTextMetrics(hDC, tm)
If lfont $#@60;$#@62; 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
来源:VB爱好者
- 文本框控件的消息及应用
- Visual Basic中文本框控件的消息及应用
- ActiveMQ消息队列的使用及应用
- 消息队列的初步了解及应用
- ActiveMQ消息队列的使用及应用
- ActiveMQ消息队列的使用及应用
- 开发扩展的文本框控件
- 滑块控件SLIDER的应用与消息
- 文本框TextBox类的应用
- duilib中类库结构及各控件响应的消息类型
- Handler消息机制的原理及应用场景
- Kafka 分布式消息队列的特点及应用场景
- ActiveMQ消息队列的单机使用及应用(一)
- ActiveMQ消息队列的集群安装及应用(二)
- 【ActiveMq】ActiveMQ消息队列的使用及应用
- Static控件的消息
- 控件消息的截获
- 常用控件应用之文本框(TextView)特效
- Memcache的操作命令
- 简单模拟 UVa 10267 - Graphical Editor
- 面向对象编程五大原则
- 每日一题(21)——区间重合检测(一)(普通区间合并&并查集)
- SharePoint中的EventReceiver 之二 绑定Event Receiver到列表类型或列表实例
- 文本框控件的消息及应用
- 加油
- nagios监控-监控客户端NRPE的安装配置
- x264 frame级流程图(一)
- Oracle CHAR,VARCHAR,VARCHAR2,nvarchar类型的区别与使用 .
- dfs
- erlang快排
- FFmpeg 源码分析 Part Two:重要的结构体
- Changing Your Life especially for software developer