69.htm

来自「vb功能实例介绍。详细、很好的实例说明。」· HTM 代码 · 共 27 行

<p>使用VB获得一页的HTML代码</p>
<p>　　　 </p>
<p></p>
<p></p>
<p>　　加入WebBrowser、Timer、CommandButton控件各一个，然后使用以下代码：</p>
<p></p>
<p>Private Sub Command1_Click()</p>
<p>    WebBrowser1.Navigate "http://www.programlife.com/"</p>
<p>    Timer1.Enabled = True</p>
<p>End Sub</p>
<p></p>
<p>Private Sub Timer1_Timer()</p>
<p>    Dim doc, objhtml As Object</p>
<p>    Dim i As Integer</p>
<p>    Dim strhtml As String</p>
<p>    </p>
<p>    If Not WebBrowser1.Busy Then</p>
<p>        Set doc = WebBrowser1.Document</p>
<p>        i = 0</p>
<p>        Set objhtml = doc.body.createtextrange()</p>
<p>        If Not IsNull(objhtml) Then</p>
<p>            Text1.Text = objhtml.htmltext</p>
<p>        End If</p>
<p>        Timer1.Enabled = False</p>
<p>    End If</p>
<p>End Sub </p>