Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit
GELÖST

Activex Steuerelement Webbrowser Navigationsfunktion Vor und Zurück

Frage Microsoft Microsoft Office

Mitglied: christiankarl

christiankarl (Level 1) - Jetzt verbinden

23.05.2013, aktualisiert 17:21 Uhr, 2538 Aufrufe, 5 Kommentare

Hallo,
ich lasse per Variable ein Formular mit einem Activex Steuerelement Webbrowser öffnen und Anzeigen,
das klappt auch alles wunderbar,
nun hab ich das Problem, dass ich hierdrin nicht "navigieren" kann.

Ich habe auf dem Formular zusätze vor und Zurück Botton hinzugefügt.

im Internet habe ich folegendes Beispeil gefunden, welches aber nicht funktioniert, jedenfalls kann Access damit nicht umgehen

01.
' Navigates webBrowser1 to the previous page in the history. 
02.
Private Sub backButton_Click( _ 
03.
    ByVal sender As Object, ByVal e As EventArgs) _ 
04.
    Handles backButton.Click 
05.
 
06.
    webBrowser1.GoBack() 
07.
 
08.
End Sub 
09.
 
10.
' Disables the Back button at the beginning of the navigation history. 
11.
Private Sub webBrowser1_CanGoBackChanged( _ 
12.
    ByVal sender As Object, ByVal e As EventArgs) _ 
13.
    Handles webBrowser1.CanGoBackChanged 
14.
 
15.
    backButton.Enabled = webBrowser1.CanGoBack 
16.
 
17.
End Sub
Kann mir jemand aufzeigen, wie ich innerhalb des Forumulars im Element Webbrowser vor und zurück gehen kann?
Mitglied: colinardo
23.05.2013, aktualisiert um 17:57 Uhr
Hallo christiankarl,
Wenn der Name deines WebBrowser-Controls z.B. wb1 lautet dann lässt sich mit wb1.GoBack in dem ActiveX Control zurückspringen und mit wb1.GoForward nach vorne springen. Damit die Buttons aber richtig funktionieren, muss das CommandStateChanged-Ereignis des Browsers abgefangen werden damit die Buttons entsprechend aktiviert bzw. deaktiviert werden wenn z.B. kein Zurück im Browser möglich ist.
Dies sieht dann so aus:

Sobald die Zurück- oder Vor-Funktion des Browser-Controls möglich ist werden die Buttons automatisch de- bzw. aktiviert.
01.
Private Sub wb1_CommandStateChange(ByVal Command As Long, ByVal Enable As Boolean) 
02.
    Const CSC_NAVIGATEFORWARD = 1 
03.
    Const CSC_NAVIGATEBACK = 2 
04.
    Select Case Command 
05.
           Case CSC_NAVIGATEBACK 
06.
               ZURÜCKBUTTON.Enabled = Enable 
07.
           Case CSC_NAVIGATEFORWARD 
08.
               VORBUTTON.Enabled = Enable 
09.
    End Select 
10.
End Sub
Das ZURÜCKBUTTON und VORBUTTON ersetzt du bitte durch die Namen deiner Buttons.

Und der Code deiner Buttons sieht so aus:
01.
Private Sub ZURÜCKBUTTON_Click() 
02.
    wb.GoBack 
03.
End Sub 
04.
 
05.
Private Sub VORBUTTON_Click() 
06.
    wb.GoForward 
07.
End Sub
Das wb durch den Namen deines WebBrowser Steuerelements austauschen...

Grüße Uwe
Bitte warten ..
Mitglied: christiankarl
23.05.2013, aktualisiert um 17:53 Uhr
Hallo Uwe,
danke für dne Hinweis,

die Butten werden nun auch Akiv, nur beim Klick erscheint der Hinweis, dass ein Objekt erforderlich wäre.



Kannst du mir hier noch einen Tipp geben.
Gruß
Christian
Bitte warten ..
Mitglied: colinardo
23.05.2013, aktualisiert um 17:52 Uhr
wo hast du den Code für das CommandStateChange-Ereignis hineinkopiert ? das muss in den Code-Bereich des Formulars wo sich das Steuerelement befindet.
und das wb1 bei folgender Zeile natürlich so lauten wie dein Webbrowser-Steuerelement heißt.
Private Sub wb1_CommandStateChange(ByVal Command As Long, ByVal Enable As Boolean)
Bitte warten ..
Mitglied: christiankarl
23.05.2013 um 17:53 Uhr
Dieses habe ich alles im Formular eingegeben

01.
 
02.
Private Sub WebBrowser0_CommandStateChange(ByVal Command As Long, ByVal Enable As Boolean) 
03.
    Const CSC_NAVIGATEFORWARD = 1 
04.
    Const CSC_NAVIGATEBACK = 2 
05.
    Select Case Command 
06.
           Case CSC_NAVIGATEBACK 
07.
               Zurück.Enabled = Enable 
08.
           Case CSC_NAVIGATEFORWARD 
09.
               Vor.Enabled = Enable 
10.
    End Select 
11.
End Sub 
12.
 
13.
Private Sub Form_Load() 
14.
Me!WebBrowser0.Navigate "http://www.yahoo.com" 
15.
End Sub 
16.
 
17.
Private Sub Zurück_Click() 
18.
wb.GoBack 
19.
End Sub 
20.
 
21.
Private Sub Vor_Click() 
22.
wb.GoForward 
23.
End Sub 
24.
 
Bitte warten ..
Mitglied: colinardo
23.05.2013, aktualisiert um 17:56 Uhr
muss bei Dir natürlich so heißen...

01.
Private Sub Zurück_Click() 
02.
  WebBrowser0.GoBack 
03.
End Sub 
04.
 
05.
Private Sub Vor_Click() 
06.
  WebBrowser0.GoForward 
07.
End Sub
Bitte warten ..
Ähnliche Inhalte
Batch & Shell
Batch kehrt zur Sprungmarke zurück, obwohl es pingen soll? (2)

Frage von Brotkasten zum Thema Batch & Shell ...

Notebook & Zubehör
Feuergefährliche Akkus: HP ruft erneut Notebooks zurück

Link von sabines zum Thema Notebook & Zubehör ...

Windows Server
Aktivierung TLS - GPO - Webseite greift nicht auf TLS zurück

Frage von Martin89 zum Thema Windows Server ...

Heiß diskutierte Inhalte
Windows 7
gelöst BOOTMGR is missing (auch nach bootrec -RebuildBcd) (21)

Frage von Mipronimo zum Thema Windows 7 ...

Router & Routing
Tipps für Router (ca. 100 clients, VPN) (20)

Frage von oel-auge zum Thema Router & Routing ...

Windows Userverwaltung
Windows Freigabe: Zugriff auf alle Ordner trotz Sicherheitseinstellungen (18)

Frage von Pandreas zum Thema Windows Userverwaltung ...

Exchange Server
gelöst MS Exchange 2016 - Basicconfig Fragen (16)

Frage von maddig zum Thema Exchange Server ...