📄 69.htm
字号:
<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>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -