監(jiān)控網(wǎng)頁(yè)中元素的事件
對(duì)編寫腳本熟悉的讀者都知道頁(yè)面中可以添加腳本響應(yīng)元素的事件,例如超鏈接的OnClick事件,圖片的OnMouseMove事件,我們也可以使VB程序響應(yīng)這些事件。下面是一個(gè)VB響應(yīng)頁(yè)面中按鈕的Click事件的代碼:
首先建立一個(gè)新工程,在Form1中加入一個(gè)Webbrowser控件,然后在Form1中加入以下代碼:
Option Explicit
Public Sub Some_Procedure()
MsgBox "你點(diǎn)擊了按鈕."
End Sub
Private Sub Form_Load()
'下載空頁(yè)面
WebBrowser1.Navigate2 "about:blank"
End Sub
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
'建立事件響應(yīng)類
Dim cfForward As clsForward
'定義在瀏覽器中顯示的HTML代碼,其中包含一個(gè)按鈕btnMyButton
Dim sHTML As String
sHTML = "
This is some text.
"
sHTML = sHTML & "
And here is a button.
"
sHTML = sHTML & ""
sHTML = sHTML & "Click this button.
"
'將HTML代碼寫入瀏覽器
相關(guān)推薦:2010年9月計(jì)算機(jī)等級(jí)考試成績(jī)查詢時(shí)間匯總
2011計(jì)算機(jī)等級(jí)考試二級(jí)VB考點(diǎn)及習(xí)題匯總
北京 | 天津 | 上海 | 江蘇 | 山東 |
安徽 | 浙江 | 江西 | 福建 | 深圳 |
廣東 | 河北 | 湖南 | 廣西 | 河南 |
海南 | 湖北 | 四川 | 重慶 | 云南 |
貴州 | 西藏 | 新疆 | 陜西 | 山西 |
寧夏 | 甘肅 | 青海 | 遼寧 | 吉林 |
黑龍江 | 內(nèi)蒙古 |