Die Community zu .NET und Classic VB.
Menü

VB 5/6-Tipp 0363: WWW-Seite mittels DDE in einem Browser öffnen

 von 

Beschreibung 

Das Wunderding DDE vermag so vieles mit den Browsern anzustellen. Hier z.B. das gezielte Browsen. Es wird lediglich die Ziel-Adresse benötigt und los geht's. Es wird die erstbeste geöffnete Browserinstanz verwendet.

Update am 07. April 2005 von Jochen Wierum:
Das Beispiel wurde um die Steuerung des Mozillas erweitert.

Schwierigkeitsgrad:

Schwierigkeitsgrad 1

Verwendete API-Aufrufe:

keine

Download:

Download des Beispielprojektes [2,34 KB]

'Dieser Quellcode stammt von http://www.activevb.de
'und kann frei verwendet werden. Für eventuelle Schäden
'wird nicht gehaftet.

'Um Fehler oder Fragen zu klären, nutzen Sie bitte unser Forum.
'Ansonsten viel Spaß und Erfolg mit diesem Source!

'------------- Anfang Projektdatei Projekt1.vbp -------------
'----------- Anfang Formular "DDE" alias DDE.frm  -----------
' Steuerelement: Rahmensteuerelement "Frame1"
' Steuerelement: Optionsfeld-Steuerelement "Mozilla" auf Frame1
' Steuerelement: Optionsfeld-Steuerelement "Netscape" auf Frame1
' Steuerelement: Optionsfeld-Steuerelement "IE" auf Frame1
' Steuerelement: Textfeld "txtURL"
' Steuerelement: Schaltfläche "Command1"
' Steuerelement: Beschriftungsfeld "Label1"
' Steuerelement: Beschriftungsfeld "labDDE"


'Autor: Julian Scheel
'E-Mail: tipps@activevb.de

Option Explicit

Private Sub Command1_Click()
    If Netscape.Value = True Then
        Call OpenURLinNetscape(txtURL.Text)
    ElseIf IE.Value = True Then
        Call OpenURLinIE(txtURL.Text)
    ElseIf Mozilla.Value = True Then
        Call OpenURLinMozilla(txtURL.Text)
    Else
        Call MsgBox("Sie haben noch keinen Browser ausgewählt!")
    End If
End Sub

Private Sub OpenURLinIE(url As String)
    On Error Goto GUBErrHandler
    Dim q As String, Item As String
  
    labDDE.LinkTopic = "iexplore|WWW_OpenURL"
    
    q = Chr$(34)
    Item = q & url & q & ",,0xFFFFFFFF,0x0"
    
    labDDE.LinkItem = Item
    labDDE.LinkMode = 2
    labDDE.LinkRequest
    
GUBErrHandler:
    On Error Goto 0
End Sub

Private Sub OpenURLinNetscape(url As String)
    On Error Goto GUBErrHandler
    Dim q As String, Item As String
    
    labDDE.LinkTopic = "netscape|WWW_OpenURL"
    
    q = Chr$(34)
    Item = q & url & q & ",,0xFFFFFFFF,0x0"
    
    labDDE.LinkItem = Item
    labDDE.LinkMode = 2
    labDDE.LinkRequest
    
GUBErrHandler:
    On Error Goto 0
End Sub

Private Sub OpenURLinMozilla(url As String)
    On Error Goto GUBErrHandler
    Dim q As String, Item As String
    
    labDDE.LinkTopic = "mozilla|WWW_OpenURL"
    
    q = Chr$(34)
    Item = q & url & q & ",,0xFFFFFFFF,0x0"
    
    labDDE.LinkItem = Item
    labDDE.LinkMode = 2
    labDDE.LinkRequest
    
GUBErrHandler:
    On Error Goto 0
End Sub
'------------ Ende Formular "DDE" alias DDE.frm  ------------
'-------------- Ende Projektdatei Projekt1.vbp --------------

Tipp-Kompatibilität:

Windows/VB-VersionWin32sWin95Win98WinMEWinNT4Win2000WinXP
VB4
VB5
VB6

Hat dieser Tipp auf Ihrem Betriebsystem und mit Ihrer VB-Version funktioniert?

Ja, funktioniert!

Nein, funktioniert nicht bei mir!

VB-Version:

Windows-Version:

Ihre Meinung  

Falls Sie Fragen zu diesem Artikel haben oder Ihre Erfahrung mit anderen Nutzern austauschen möchten, dann teilen Sie uns diese bitte in einem der unten vorhandenen Themen oder über einen neuen Beitrag mit. Hierzu können sie einfach einen Beitrag in einem zum Thema passenden Forum anlegen, welcher automatisch mit dieser Seite verknüpft wird.

Archivierte Nutzerkommentare 

Klicken Sie diesen Text an, wenn Sie die 9 archivierten Kommentare ansehen möchten.
Diese stammen noch von der Zeit, als es noch keine direkte Forenunterstützung für Fragen und Kommentare zu einzelnen Artikeln gab.
Aus Gründen der Vollständigkeit können Sie sich die ausgeblendeten Kommentare zu diesem Artikel aber gerne weiterhin ansehen.

Kommentar von Uli am 08.04.2008 um 03:27

Wie ist es möglich das unter vb.net hinzubekommen.
mfg

Kommentar von foobar am 17.07.2007 um 14:46


Was machen die 2 zeilen hier:
q = Chr$(34)
Item = q & url & q & ",,0xFFFFFFFF,0x0"

???

Kommentar von Eyidilli am 25.10.2005 um 11:59

Mit VB6 auf WinXP und dem Internetexplorer funktioniert dieser Tip tadellos. Andere Browser wie den Mozila bzw. Netscape habe ich leider nicht.

Kommentar von Honk am 03.01.2005 um 14:02

Wenn IE nicht vorher gestartet ist kommt es zu einem nicht abfangbaren Laufzeitfehler !!! VB6 WinXP IE6
Hat schon Jemand ne Lösung für das Problem ??? Bitte Hilfe!

Kommentar von ingo dürrbaum am 02.07.2003 um 08:53

Bitte beachten Sie, dass der DDE-Name bei Verwendung von Netcape7.x geändert werden muss. Statt
labDDE.LinkTopic = "netscape|WWW_OpenURL"
muss es für netscape 7
labDDE.LinkTopic = "netscape6|WWW_OpenURL"
lauten. Keine Ahnung warum "netscape6" - aber "nescape7" funktioniert nicht.

Kommentar von Dominic Markowski am 15.02.2003 um 13:32

Der Tipp ist gut, und funktioniert, aber was muss man machen, damit das Programm (wenn noch kein IExplorer offen ist) einen IExplorer öffnet?
Schonmal danke für die Hilfe.

Kommentar von GenesisMaster am 02.09.2002 um 14:19

"funktioniert bei mir gut. Möchte jedoch so was wie dieses öffnen.
file://C:\Vb6Files\MapCtl2\gps32chilfe.html#Eichen. Das klappt leider nicht."
Natürlich klappt das nicht, der Browser erwartet einen Link zu einem HTTPD-Server. ;)
Das ist aber kein Fehler des Programmieres, sondern einfach nicht vorgesehen, das lokale Dateien geöffnet werden (außnahme bildet natürlich ein lokal installierter Server).

Kommentar von Werner am 15.07.2002 um 22:47

funktioniert bei mir gut. Möchte jedoch so was wie dieses öffnen.
file://C:\Vb6Files\MapCtl2\gps32chilfe.html#Eichen. Das klappt leider nicht.

Kommentar von TwS|Predator am 06.05.2002 um 15:17

Bei dem Tip kommtein Fehler!
Er meint das die Variable "Netscape" nicht definiert ist!
Keine ist zimlich blöde brauche das nämlich für meinen Info Dialog! wenn man per click auf ein Label clickt soll sich geleich der IE oder Netscape mit der Url des Labels öffnen! Vielleicht gibts ja ne andere Möglich keit?
See Yaa
TwS|Predator