Внутренние якоря в vb6 в управлении веб-браузером

Как я могу заставить внутренние якоря работать с элементом управления WebBrowser?Внутренние якоря в vb6 в управлении веб-браузером

Это то, что я пытался до сих пор:

Private Sub Form_Load() 

    WebBrowser.Navigate "about:blank" 
    DoEvents  

    WebBrowser.Document.Open 
     WebBrowser.Document.Write "<html><head></head><body><a href=""#target"">link</a><a id=""target"" name=""target""><h1>target</h1></a></body></html>" 
    WebBrowser.Document.Close 

End Sub

источник

2017-01-09 xvan

Не можете описать, что происходит неправильно? Что не работает должным образом? – DaveInCaz

Нажмите ссылку, повторно загрузите: blank вместо перехода в закладку – xvan

Извините? -------- – DaveInCaz

Использование JS написать документ позволяет внутренние ссылки, но HTML строка должна быть Javascript убежали.

Private Sub Form_Load() 

    Dim shtml As String 

    WebBrowser1.Navigate2 "about:blank" 
    DoEvents 

    shtml = "<html><head></head><body><a href=""#target"">link</a><a id=""target"" name=""target""><h1>target</h1></a></body></html>" 

    WebBrowser1.Document.parentWindow.execScript "document.write(" & Chr(39) & shtml & Chr(39) & ")" 

End Sub

источник

2017-01-09 20:07:02 xvan

Внутренние якоря в vb6 в управлении веб-браузером

ответ

Смежные вопросы