上海保洁找工作:用WebBrowser在google上面写字
来源:百度文库 编辑:杭州交通信息网 时间:2024/05/27 09:07:17
Private Sub Command1_Click()
Dim o
Set o = WebBrowser1.Document.selection.createrange
Debug.Print o
If (Not o Is Nothing) Then
o.pAsTeHtMl "Yeah!!"
Set o = Nothing
End If
End Sub
Private Sub Form_Load()
WebBrowser1.Navigate "www.google.com"
End Sub
提示发生错误,怎么回事?
Dim o
Set o = WebBrowser1.Document.selection.createrange
Debug.Print o
If (Not o Is Nothing) Then
o.pAsTeHtMl "Yeah!!"
Set o = Nothing
End If
End Sub
Private Sub Form_Load()
WebBrowser1.Navigate "www.google.com"
End Sub
提示发生错误,怎么回事?