✔ Mit einem Button einen Link öffnen?

[galaxyo124463]

Hallo, ich brauch einmal wieder hilfe.^^
Ich brauche einen code für Visual Basic 6.
Ich möchte mit einem Button im Internet Explorer oder in Mozilla Firefox eine seite öffnen. Das soll ein Visit Us! button sein. Also ich möchte wenn ich dann auf denn Button drauf klicke das sich halt die seite öffnet!

Wäre euch sehr dankbar!

gruss von mir!

 

[DrSoong]

Gruß mit Link zurück.


Der Doc!

 

[galaxyo124463]

Danke aber ich verstehe das jetzt nicht. Wo muss denn der Code hin

Private Declare Function ShellExecute Lib "shell32.dll" _
Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal _
lpOperation As String, ByVal lpFile As String, ByVal _
lpParameters As String, ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As Long

Ich hab denn schon inForm_Load gemacht und dann

Private Sub Command1_Click()
Dim Result&
Result = ShellExecute(Me.hwnd, "Open", _
"http://www.activevb.de", "", App.Path, 1)
End Sub

In denn Command1_Click() Button eingefügt aber das geht net.

Ist das überhaupt richtig so?

 

[DrSoong]

Private Declare Function ShellExecute Lib "shell32.dll" _
Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal _
lpOperation As String, ByVal lpFile As String, ByVal _
lpParameters As String, ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As Long

ist die API-Deklaration, die gehört immer ganz oben hin außerhalb aller Prozeduren.

In deine Prozedur (eben z.B. das Click-Event eines CommandButtons) kommt dann

Dim Result&
Result = ShellExecute(Me.hwnd, "Open", "http://www.activevb.de", "", App.Path, 1)

rein, damit wird dann der Browser aufgerufen.

Lad dir von der Seite doch das Beispielprogramm runter, dann hast du das ganze direkt zum Ausprobieren.


Der Doc!

 

[galaxyo124463]

Danke, funktioniert Prima!