利用VB文本框选择文本内容的属性实现指定邮件号码的轨迹查询

前端之家收集整理的这篇文章主要介绍了利用VB文本框选择文本内容的属性实现指定邮件号码的轨迹查询前端之家小编觉得挺不错的,现在分享给大家,也给大家做个参考。

作者: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

程序界面如下:

猜你在找的VB相关文章