文本框控件的消息及应用

会计考友

　　文本(或文字)控件是“文本框控件”的简称,它通常用于输入和编辑文字。它属于标准Windows编辑控件的一个子类,所以它支持所有编辑控件消息。这儿讲述的技术也适用于由其他厂商设计的,以Windows编辑控件类为基础的其他控件。
: k! z7 W" S# a, Z+ p) v/ n  `" q& U　　本文将介绍文本控件的消息,这些消息显著扩展了控件本身的能力,使我们在程序中能够更灵活的控制控件,不必只仅仅依赖于Visual Basic所提供的属性或事件,这些消息在进行子类处理中很有用处。下面先介绍控件的消息,然后介绍它们的一些应用。
5 U2 u+ B. }6 R　　下表列出了文本控件的常用通知消息:
　　消息名称 消息说明
　　EN_CHANGE 编辑控件的内容一旦发生改变，就发送这条消息。
　　EN_ERRSPACE 任何时候只要由于内存不足以完成一项编辑操作，就发送这条消息。
　　EN_HSCROLL 只要用户单击了从属于一个编辑控件的水平滚动条的任何地方，就会发送这条消息。注意这条消息是在控件更新显示之前发送出去的。
　　EN_KILLFOCUS 一旦控件丢失了输入焦点，则发出这条消息。
　　EN_MAXTEXT 只要用户输人的文字试图超出由EM_LIMITTEXT消息规定购界限，或试图超出由VB Maxlength属性规定的界限，就会发送这条消息。此外，倘若不允许自动进行水平滚动，同时插入点要超出控件的宽度；或者不允许自动自动滚动，同时插入点要超出接件的高度，那么也会触发这条消息。
) r, s. Q3 L  m1 L　　EN_SETFOCUS 一旦控件接收到了输入焦点，就发出这条消息。
4 |" ?# _" i) {" }　　EN_UPDATE 这条消息在控件显示出已改变的文字之前发出。它与EN_CHANGE通知消息相似，只是它发生于更新文本显示出来之前。
　　EN_VSCROLL 只要用户单击了从属于一个编辑控件的垂直滚动条的任何地方，就会发送这条消息。注意这条消息是在控件更新显示之前发送出去的。
　　下表列出了文本控件的常用消息:
5 k3 x6 C5 E2 u* b+ s　　消息名称 消息说明
　　EM_CANUNDO 决定前一次编辑操作是否能够撤消
  c6 X; y* m$ `　　EM_EMPTYUNDOBUFFER 清除控件的撤消缓冲区，使其不可能撤消前一次编辑操作
# g4 o; m/ x9 B5 K6 d7 c$ s　　EM_UNDO 撤消前一次编辑操作
　　EM_FMTLINES 决定是否在取回的文本宇串中包含软回车字符
　　EM_GETLIMITTEXT 获取一个编辑控件中文本的最大长度
　　EM_GETMARGINS 获取编辑控件的左、右边距(不得用于NT3．51)
/ e% x& S% ^' Q. I% A  E) X　　EM_GETRECT 获取一个编辑控件的格式化矩形
　　EM_LIMITTEXT 限制编辑耀件甲购文本长度
　　EM_SETLIMITTEXT 限制编辑控件中的文本长度(不得用于NT3．51)
: P0 Y- v* j9 b4 Y　　EM_SETMARGINS 设置编辑控件的左、右边距(不得用于NT3．51)
) p8 m, A% p% G; I+ m+ G　　EM_SETRECT 为一个编辑控件设置格式化矩形
# e2 t0 W7 R) P* M9 r6 I　　EM_SETRECTNP 与EM_SETRECT类似，只是控件此时不会重画
8 O: ]( T6 n; P7 `# T3 d8 d　　EM_SETTABSTOPS 设置编辑控件中的制表站间距
' g: \) a1 N- }　　EM_CHARFROMPOS 判断编辑控件指定位置处的字符(不适用于NT3．51)
2 z, s& g' H/ `4 E* c! m* V　　EM_GETFIRSTVISIBLEIN 判断编辑控件中显示的第一行
　　EM_GETLINE 从编辑控件取回…行的内容
+ L' A1 R% Z( @+ ~% s4 @- j" P7 [　　EM_GETLINECOUNT 判断一个编辑控件的总行数
7 @# _9 a" R7 l1 d) ?) X# z# T　　EM_GETMODIFY 判断编辑控件的内容是否已发生变化
! @5 l+ v( Z( w! k3 y　　EM_GETPASSWORDCHAR 取得编辑控件的密码字符
　　EM_GETSEL 判断编辑控件中一段选定内容的起点与终点
　　EM_LINEFROMCHAR 判断是哪一行显示了某个特殊字符
( h8 Y. F3 @/ `1 h& H7 ?0 E; {　　EM_LINEINDEX 判断指定行第一个字符的编号
　　EM_LINELENGTH 判断一行长度
　　EM_LINESCROLL 滚动编辑控件
　　EM_POSFROMCHAR 判断指定字符在编辑控件的位置(用于NT3．51)
　　EM_REPLACESEL 用指定文本替换编辑控件中的当前选定内容
+ F8 [/ p9 f, ~  [5 u+ o　　EM_SETMODIFY 用于设置或清除一个编辑控件的修改标志
9 _+ i4 A' V5 _0 o　　EM_SETPASSWORDCHAR 为指定的控件设置密码字符
　　EM_READONLY 决定是否将编辑控件设为只读

5 w. p- y9 s' h! P- x6 U* z　EM_SETSEL 设置编辑控件中一段选定内容的起点一终点
　　下面将介绍文本框控件消息的一些应用:
) h, ]8 ]/ p8 V: Y* M% q　　下面的函数将返回控件的文本行数,如果控件的文本为空也会返回1。
( |+ j2 Q9 v  }3 ^8 c　　Function GetLineCount(CTextBox As TextBox) As Long
4 `2 t$ T! `; c0 g, ~0 }　　GetLineCount = SendMessage(CTextBox.hWnd, EM_GETLINECOUNT, 0, 0)
　　End Function
& ?' R/ g& R3 x0 z& d( \  \' G9 C2 _, G7 J　　下面的函数将返回控件中显示的第一行的行号。
- D" \$ ^5 O0 T. S, g0 }　　Function GetFirstVisableLine(CTextBox As TextBox) As Long
5 k$ W4 r& M* ]" O  t　　GetFirstVisableLine = SendMessageBynum(CTextBox.hwnd, EM_GETFIRSTVISIBLELINE, 0, 0)
　　End Function
　　下面的函数将返回控件能显示的行数。
; H; y& ~  a8 f! Z　　Function GetVisibleLines(CTextBox As TextBox) As Long
, A- k, u2 ~" G　　Dim rc As RECT
　　Dim hDC&, lfont&, oldfont&
　　Dim di&, lc&
; b' V" q3 O! H1 N+ }/ P% M　　Dim tm As TEXTMETRIC
  y9 ?/ Q! n# P0 w　　lc = SendMessage(CTextBox.hwnd, EM_GETRECT, 0, rc)
- ]9 g) f" X% u" d　　lfont = SendMessage(CTextBox.hwnd, WM_GETFONT, 0, 0)
3 V6 w! L+ G" r6 G　　hDC = GetDC(CTextBox.hwnd)
　　If lfont  0 Then oldfont = SelectObject(hDC, lfont)
+ [% z! c* o% F3 r4 c+ Q5 m2 r　　di = GetTextMetrics(hDC, tm)
　　If lfont  0 Then lfont = SelectObject(hDC, oldfont)
/ G/ L  G! b. a4 k/ z　　GetVisibleLines = (rc.bottom - rc.top) / tm.tmHeight
　　di = ReleaseDC(CTextBox.hwnd, hDC)
6 N; `$ S( P2 `) V# L3 [　　End Function
　　下面的函数能够滚动控件,不过在滚动之前最好判断控件的文本行数和能够显示的行数,以免滚动时发生混乱。函数SendMessageBynum是一个SendMessage函数的安全声明函数,其定义与SendMessage函数完全相同,只是函数名不同。

会计考友

　　Function ScrollTextBox(CTextBox As TextBox, nVal As Long, Optional nVertical As Boolean = True) As Long
/ k6 f5 u: L8 S+ _8 M　　If nVertical Then
　　ScrollTextBox = SendMessageBynum(CTextBox.hwnd, EM_LINESCROLL, 0, nVal)
! M- m0 r- k5 L! @　　Else
　　ScrollTextBox = SendMessageBynum(CTextBox.hwnd, EM_LINESCROLL, nVal, 0)
5 U: n% ~7 f$ A: k) ]$ L　　End If
- L, u+ Y" [9 g$ W) S; l　　End Function
( h& C' B2 _' l1 H9 |　　下面的函数能够返回控件指定行的文本。SendMessageBystring与SendMessageBynum类似。
  {& _' F; I3 k" {- o　　Function GetLineText(CTextBox As TextBox, LineIndex As Long) As String
* |  X0 t6 }% l" b: Z　　Dim lc&, linechar&
" G" k: B  t, {　　linechar = SendMessageBynum(CTextBox.hwnd, EM_LINEINDEX, LineIndex, 0)
% x( G( d- _1 I; C7 [; T　　lc = SendMessageBynum(CTextBox.hwnd, EM_LINELENGTH, linechar, 0) + 1
　　GetLineText = String$(lc + 2, 0)
　　Mid$(GetLineText, 1, 1) = Chr(lc And &HFF)
  O4 O5 y/ I. \9 h) }- {　　Mid$(GetLineText, 2, 1) = Chr(lc \ &H100)
　　lc = SendMessageBystring(CTextBox.hwnd, EM_GETLINE, LineIndex, GetLineText)
; ^" u# P& u' q' G" ~2 \. x　　GetLineText = left(GetLineText, lc)
　　End Function
1 a% y2 s  r% ^8 R　　下面的函数可以设置控件的左边距。
7 F% @* v) H9 G' I1 Q7 _  ?　　Public Const EM_SETMARGINS& = &HD3
　　Public Const EC_LEFTMARGIN& = &H1
* K7 r5 s/ p+ z　　Function SetMargins(CTextBox As TextBox, nVal As Long) As Long
　　SetMargins = SendMessageBynum(CTextBox.hwnd, EM_SETMARGINS, EC_LEFTMARGIN, nVal)
* |& M. L$ z% I9 ?5 x　　End Function 来</p>