WebBrowser
07.06.2019 10:05:44
Antonio
mit diesem Code:
Private Sub ListBox2_Click()
' WebBrowser1.Navigate ""
Dim myLink As String
Dim TargetPage As Double
myLink = Verz & "\" & UserForm1.ListBox1.Text & ".pdf"
TextBox1 = ListBox2.List(ListBox2.ListIndex, 2)
TargetPage = TextBox1 'Anzeige Seite
With WebBrowser1
.Navigate "about:blank"
.Navigate myLink & "#page=" & TargetPage
.Visible = True
End With
End Sub
öffne ich eine pdf im WebBrowser, mein Problem ist das eine Seite erst beim zweiten Click geöffnet wird.
Also ListBox1 wird gefüllt beim UserFom Initialize, ein Click in ListBox1 füllt ListBox2, ein Click in ListBox2 sollte eine Seite öffnen (Siehe Code oben), da geschiet aber nichts, erst nach erneut clicken auf ein anderen Item in ListBox2 wird das erste in Webbrowser geladen, uns so weiter, erneut clicken auf ein anderen Item wird dann das vohherigen angezeigt.
Ich komme leider nicht weiter, kann mir bitte jemand helfen?
Vielen Dank in Voraus
Antonio
Anzeige