作者:iamlaosong
在程序中,对文本框中文本内容进行选择时,用SelStart、SelLength、SelText属性3个属性来标识用户选中的正文。这些属性没有列在属性窗口中,但在程序中可以使用这些属性。
SelStart:选定正文的开始位置,第一个字符的位置是0。
Selcength:选定正文长度。
SelText:选定正文内容。
设置了SelStarl和SelI~ength属性后,VB会自动将设定的正文送入SelText属性存放。这些属性一般用于在文本编辑中设置插入点及范围,选择字符串,清除文本等,并且经常与剪贴板一起使用,完成文本信息的剪切、拷贝、粘贴等功能。用SelText来提取选择的内容。
下面程序就是双击文本后,系统自动选择该行邮件号码,将号码发送到网页,实现邮件轨迹查询:
Private Sub Text1_DblClick() WebBrowser1.Visible = True WebBrowser1.Navigate "http://10.3.10.83/ems/" Do Until WebBrowser1.ReadyState = 4 DoEvents Loop WebBrowser1.Document.ParentWindow.Frames("maincontext").Document.GetElementById("mailNum").InnerText = Text1.SelText WebBrowser1.Document.ParentWindow.Frames("maincontext").Document.Forms("mailTrackSnglForm").submit End Sub
程序界面如下: