ich muss leider das Thema wieder aufgreifen da ich nicht weiter komme.
Code:
Private Sub ListBox2_Click()
Dim myLink As String
Dim TargetPage As Double
myLink = Verz & "\" & ListBox2.List(ListBox2.ListIndex, 1)
TargetPage = ListBox2.List(ListBox2.ListIndex, 2)
' TargetPage = TextBox2 'Anzeige Seite
With WebBrowser1
' .Navigate "about:blank"
.Navigate myLink & "#page=" & TargetPage
.Visible = True
End With
End Sub
bin schon 100 Male den Code durchgegangen und finde nichts.
Der Code sollte eine pdf seite im Webbrowser öffnen.
Ein Click in listbox2 macht die selektierte Seite auf.
Noch ein Click auf ein andere Item, passiert nichts.
Noch ein Click auf ein andre Item, wird der voherige aufgemacht, usw. es wird immer der voher angecklick Item aufgemacht.
Vielleicht merkt ihr etwas im Code das nicht stimmt.
Bin für jeden Tipp dankbar.
Vielen Dank im Voraus
Antonio