2017-01-09 6 views
0

내부 앵커를 WebBrowser 컨트롤에서 어떻게 작동시킬 수 있습니까? 문서를 작성하는 JS를 사용하여웹 브라우저 컨트롤의 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 
+0

어떻게 잘못 될지 설명해 주시겠습니까? 예상대로 작동하지 않는 것은 무엇입니까? – DaveInCaz

+0

링크를 클릭하고 about : blank를 다시로드하십시오. – xvan

+0

죄송합니다. -------- – DaveInCaz

답변

0

내부 링크를 허용하지만 HTML 문자열 이스케이프 자바 스크립트되어야합니다

이것은 내가 지금까지 시도 것입니다.

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