利用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

程序界面如下：