Получается только 1 раз, а потом все время видна test.htm, что не так? есть вариант сохранить переменную mStr в файл, а потом открыть его в webBrowser, все получается, но это не вариант.
- Код: Выделить всё
public mStr as string
Private Sub Command1_click()
Dim mStr As String
Dim mDoc As MSHTML.IHTMLDocument
WebBrowser1.navigate App.path & "test.htm"
While WebBrowser1.document Is Nothing
DoEvents
Wend
Set mDoc = WebBrowser1.document
mStr =mStr+ "<html><body><b>привет</b></body></html>"
mDoc.Write mStr
Set mDoc = Nothing
End Sub
