- Rongsen.Com.Cn 版权所有 2008-2010 京ICP备08007000号 京公海网安备11010802026356号 朝阳网安编号:110105199号
- 北京黑客防线网安工作室-黑客防线网安服务器维护基地为您提供专业的
服务器维护
,企业网站维护
,网站维护
服务 - (建议采用1024×768分辨率,以达到最佳视觉效果) Powered by 黑客防线网安 ©2009-2010 www.rongsen.com.cn
作者:黑客防线网安VB教程基地 来源:黑客防线网安VB教程基地 浏览次数:0 |
很明显的,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
我要申请本站:N点 | 黑客防线官网 | |
专业服务器维护及网站维护手工安全搭建环境,网站安全加固服务。黑客防线网安服务器维护基地招商进行中!QQ:29769479 |