简单的大雁怎么画:用WebBrowser在google上面写字
来源:百度文库 编辑:高考问答 时间:2024/07/07 10:48:10
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
提示发生错误,怎么回事?