大概过程是这样:
Thisform.olecontrol1.Navigate('')
Thisform.olecontrol1.Navigate('about:blank')
Inkey(1)
Try
oDoc = Thisform.olecontrol1.Document
Catch
oDoc = Null
EndTry
If Vartype(oDoc) == 'O' and !IsNull(oDoc)
oDoc.Write('Hello world')
EndIf
由于导航到空白页是由 webbrowser 异步完成的,因此什么时候完成装载(能取到 Document 对象)时间不定,最好在 DocumentComplete 事件中写 html 字符串
[此贴子已经被作者于2023-2-17 17:45编辑过]