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, 2476 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 ..
Neuester Wissensbeitrag
Windows 10

Powershell 5 BSOD

(1)

Tipp von agowa338 zum Thema Windows 10 ...

Ähnliche Inhalte
Batch & Shell
Script zum Auflösen einer Ordnerstruktur und zurück gesucht (12)

Frage von websolutions zum Thema Batch & Shell ...

DNS
Nslookup gibt falschen DNS Namen zurück (3)

Frage von ultrapottoti zum Thema DNS ...

Java
gelöst Zurück zum Schleifenanfang (4)

Frage von Todybear zum Thema Java ...

Heiß diskutierte Inhalte
LAN, WAN, Wireless
gelöst Server erkennt Client nicht wenn er ausserhalb des DHCP Pools liegt (28)

Frage von Mar-west zum Thema LAN, WAN, Wireless ...

Outlook & Mail
Outlook 2010 findet ost datei nicht (18)

Frage von Floh21 zum Thema Outlook & Mail ...

Windows Server
Server 2008R2 startet nicht mehr (Bad Patch 0xa) (18)

Frage von Haures zum Thema Windows Server ...