ich habe 3 Commando Buttons. cmd1 , cmd2 & cmd3. Aber jede verschiedene cmd Button soll auf eine andere Seite führen. Ich bekomme nur noch den Code hin, wo der cmd Button zu einer Seite führt. Also Quasi die 3 cmd Buttons mit einander verknüpft sind. Kann mir da einer helfen?
Bild:
Danke
- Aerox2oo9 _________________
ZiuX « Moderator »
Anmeldedatum: 02.05.2008 Beiträge: 160
Verfasst am: 11.03.2009, 18:52
Code:
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
Private Sub google_Click()
Dim Result&
Result = ShellExecute(Me.hwnd, "Open", _
"http://www.google.de", "", App.Path, 1)
End Sub
Private Sub yahoo_Click()
Dim Result&
Result = ShellExecute(Me.hwnd, "Open", _
"http://www.yahoo.de", "", App.Path, 1)
End Sub
Private Sub ebay_Click()
Dim Result&
Result = ShellExecute(Me.hwnd, "Open", _
"http://www.ebay.de", "", App.Path, 1)
End Sub
hättest du wohl auch problemlos mit google hin bekommen!