网页功能: 加入收藏 设为首页 网站搜索  
文本框控件的消息及应
发表日期:2003-07-02作者:[] 出处:  

  文本(或文字)控件是“文本框控件”的简称,它通常用于输入和编辑文字。它属于标准Windows编辑控件的一个子类,所以它支持所有编辑控件消息。这儿讲述的技术也适用于由其他厂商设计的,以Windows编辑控件类为基础的其他控件。

  本文将介绍文本控件的消息,这些消息显著扩展了控件本身的能力,使我们在程序中能够更灵活的控制控件,不必只仅仅依赖于Visual Basic所提供的属性或事件,这些消息在进行子类处理中很有用处。下面先介绍控件的消息,然后介绍它们的一些应用。

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

消息名称 消息说明

EN_CHANGE 编辑控件的内容一旦发生改变,就发送这条消息。

EN_ERRSPACE 任何时候只要由于内存不足以完成一项编辑操作,就发送这条消息。

EN_HSCROLL 只要用户单击了从属于一个编辑控件的水平滚动条的任何地方,就会发送这条消息。注意这条消息是在控件更新显示之前发送出去的。

EN_KILLFOCUS 一旦控件丢失了输入焦点,则发出这条消息。

EN_MAXTEXT 只要用户输人的文字试图超出由EM_LIMITTEXT消息规定购界限,或试图超出由VB Maxlength属性规定的界限,就会发送这条消息。此外,倘若不允许自动进行水平滚动,同时插入点要超出控件的宽度;或者不允许自动自动滚动,同时插入点要超出接件的高度,那么也会触发这条消息。

EN_SETFOCUS 一旦控件接收到了输入焦点,就发出这条消息。

EN_UPDATE 这条消息在控件显示出已改变的文字之前发出。它与EN_CHANGE通知消息相似,只是它发生于更新文本显示出来之前。

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

我来说两句】 【加入收藏】 【返加顶部】 【打印本页】 【关闭窗口
中搜索 文本框控件的消息及应
本类热点文章
  用VB制作软键盘
  让messagebox自动消失
  制作半透明窗体
  给Listview做个背景
  VB程序实现WindowsXP效果的界面
  VB打造超酷个性化菜单
  用VB实现“百叶窗”的图形特效
  用VB绘制正弦动画曲线
  获取所有打印纸张格式的方法
  如何使Form的背景图随Form大小改变
  VB实现立体文字
  使用文字做为窗体的形状
最新分类信息我要发布 
最新招聘信息

关于我们 / 合作推广 / 给我留言 / 版权举报 / 意见建议 / 广告投放  
Copyright ©2003-2019 Lihuasoft.net webmaster(at)lihuasoft.net
网站编程QQ群   京ICP备05001064号 页面生成时间:0.00263