如何扩展VB标准控件的功能

领测软件测试网

下一页 1 2 

　　 
　　很明显的，Windows中的控件提供了比VB中的控件多的多的属性。或者是因为Microsoft太懒了，或者Microsoft认为，一个用VB的程序员，永远不会碰到那些属性。

　　 比方说，我们来看看一个很普通的多行文本框。它和Windows中的编辑框（Edit Box）几乎在功能上几乎没有什么区别，只不过少了几个属性。比如，编辑框中有一个属性用来指明它所包含的文本行数，你还可以通过属性来得到编辑框中看的见的第一行文本的行序号（同下拉列表的TopIndex相类似）。

　　 那么，可以通过什么方法来发掘这些本来不存在于VB中的属性吗？答案是肯定的。只不过有点麻烦，又要用到API了。在一个名为SendMessage的API函数的帮助下，我们对普通的文本框的功能进行一些很有用的扩展：你可以把文本框中的每一行当作一个字符串数组中的一个元素来处理。当你想要对文本框的内容进行分析的时候，这是非常有用的。比方说，如果你想做一个HTML的编辑器程序，并且希望它能有彩色代码来区分不同得代码段（和VB的代码编辑器差不多的），对每一行进行分析要比对整个文本进行分析不是要来的方便，容易的多吗？下面我们来看看例子。

　　 Let's get to work...

　　 既然要用到API函数，首先要做的当然是声明SendMessage了：

　　 Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, _

　　 ByVal wMsg As Long, _

　　 ByVal wParam As Long, _

　　 lParam As Any) As Long

　　 你还有对要发送给文本框的消息进行声明。比方说，如果你想要写一个能告诉你文本框中第一个可见行的序号的函数，你就要作如下的消息声明：

　　 Public Const EM_GETFIRSTVISIBLELINE = &HCE

　　 然后你就可以写函数了：

　　 Public Function TopLineIndex(txtBox As TextBox) As Long

　　 TopLineIndex = SendMessage(txtBox.hWnd, _

　　 EM_GETFIRSTVISIBLELINE, 0&, 0&)

　　 End Function

　　 因为消息EM_GETFIRSTVISIBLELINE不需要任何的参数，因而wParam 和lParam都必须赋值为0。如果你想把这个函数应用在一个富文本框上而标准文本框，仅仅需要把函数的的参数类型由TextBox改为RichTextBox就可以了。不过要记得得是，这个行序号是以0为开始的，当函数返回0时指的是第一行。

　　 富文本框有一个方法GetLineFromChar能够更具给定的字符序号来判断它所在的行序号。而标准的文本框却没有这个功能。我们已可以通过上面的方法来解决这个问题。不过这一次，你需要用到的是EM_LINEFROMCHAR消息：

　　 Public Const EM_LINEFROMCHAR = &HC9

　　 EM_LINEFROMCHAR消息把要传递的字符序号放在参数wParam中：

　　 Public Function GetLineFromChar(txtBox As TextBox, CharPos As Long) As Long

　　 GetLineFromChar = SendMessage( _txtBox.hWnd, EM_LINEFROMCHAR, CharPos, 0&)

　　 End Function

　　 因而，如果你想知道光标所在行的具体的行序号，用上面的这个函数就可以轻松的实现了：

　　 Dim lngLineIndex As Long

　　 lngLineIndex = GetLineFromChar(Text1, Text1.SelStart)

　　 MsgBox "You are on line number " & lngLineIndex + 1

　　 反过来，你也可以查到每一行的第一个字符在全文中的字符序号，EM_LINEINDEX消息能帮助你做到这一点：

　　 Public Const EM_LINEINDEX = &HBB

　　 Public Function GetCharFromLine(txtBox As TextBox, LineIndex As Long) As Long

　　 GetCharFromLine = SendMessage( _

　　 txtBox.hWnd, EM_LINEINDEX, LineIndex, 0&)

　　 End Function

　　 想知道文本框里到底有多少行？简单：用EM_GETLINECOUNT消息就可以轻松搞定。同样的，因为这个消息不带任何的参数，我们还是把参数wParam和lParam都置为0：

　　 Public Const EM_GETLINECOUNT = &HBA

　　 Public Function LineCount(txtBox As TextBox) As Long

　　 LineCount = SendMessage( _

　　 TxtBox.hWnd, EM_GETLINECOUNT, 0&, 0&)

　　 End Function

文章来源于领测软件测试网 https://www.ltesting.net/