扩展vb标准控件功能

《扩展vb标准控件功能》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、扩展VB标准控件功能VB相关技术：http://blog.sina.com.cn/s/blog_5ccce2820100lof8.html很明显的，Windows中的控件提供了比VB中的控件多的多的属性。或者是因为Microsoft太懒了，或者Microsoft认为，一个用VB的程序员，永久不会碰到那些属性。  　　比方说，我们来看看一个很普通的多行文本框。它和Windows中的编辑框（EditBox）几乎在功能上几乎没有什么区别，只不过少了几个属性。比如，编辑框中有一个属性用来指明它所包含的文本行数，你还能够通过属性来得到编

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

3、分析要比对整个文本进行分析不是要来的方便，容易的多吗？下面我们来看看例子。  　　Let’sgettowork...  来源：www.va1314.com/bc　　既然要用到API函数，首先要做的当然是声明SendMessage了：  　　PublicDeclareFunctionSendMessageLib"user32"Alias"SendMessageA"(ByValhwndAsLong,_  　　ByValwMsgAsLong,_  　　ByValwParamAsLong,_  　　lParamAsAny)AsLong

4、  　　你还有对要发送给文本框的消息进行声明。比方说，如果你想要写一个能告诉你文本框中第一个可见行的序号的函数，你就要做如下的消息声明：  　　PublicConstEM_GETFIRSTVISIBLELINE=&HCE  　　然后你就能够写函数了：  　　PublicFunctionTopLineIndex(txtBoxAsTextBox)AsLong  　　TopLineIndex=SendMessage(txtBox.hWnd,_  　　EM_GETFIRSTVISIBLELINE,0&,0&)  　　EndFuncti

5、on  　　因为消息EM_GETFIRSTVISIBLELINE不需要任何的参数，因而wParam和lParam都必须赋值为0。如果你想把这个函数应用在一个富文本框上而标准文本框，仅仅需要把函数的的参数类型由TextBox改为RichTextBox就能够了。不过要记得得是，这个行序号是以0为开始的，当函数前往0时指的是第一行。  　　富文本框有一个方法GetLineFromChar能够更具给定的字符序号来判断它所在的行序号。而标准的文本框却没有这个功能。我们已能够通过上面的方法来处理这个问题。不过这一次，你需要用到的是EM_L

6、INEFROMCHAR消息：  　　PublicConstEM_LINEFROMCHAR=&HC9  　　EM_LINEFROMCHAR消息把要传送的字符序号放在参数wParam中：  　　PublicFunctionGetLineFromChar(txtBoxAsTextBox,CharPosAsLong)AsLong  　　GetLineFromChar=SendMessage(_txtBox.hWnd,EM_LINEFROMCHAR,CharPos,0&)  　　EndFunction  　　因而，如果你想知道光标所在行

7、的具体的行序号，用上面的这个函数就能够轻松的实现了：  　　DimlngLineIndexAsLong  　　lngLineIndex=GetLineFromChar(Text1,Text1.SelStart)  　　MsgBox"Youareonlinenumber"&lngLineIndex+1  　　反过来，你也能够查到每一行的第一个字符在全文中的字符序号，EM_LINEINDEX消息能协助你做到这一点：  　　PublicConstEM_LINEINDEX=&HBB  　　PublicFunctionGetCharFr

8、omLine(txtBoxAsTextBox,LineIndexAsLong)AsLong  　　GetCharFromLine=SendMessage(_  　　txtBox.hWnd,EM_LINEINDEX,LineIndex,0&)  　　EndFunction