Homepage öffnen

[Daywalker1984]

Hi,

Kann mir bitte jemand sagen wie ich nen browser mit nem button öffne der dann auf eine bestimmt homepage geht????

Danke

 

[Justus]

API und Function:

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 Declare Function GetDesktopWindow Lib "user32" () As Long

Const SW_SHOWNORMAL = 1

Public Function StartURL(URL As String) As Long
Dim Scr_hDC As Long
Scr_hDC = GetDesktopWindow()
StartURL = ShellExecute(Scr_hDC, "Open", URL, "", "C:\", SW_SHOWNORMAL)
End Function

So kann dann z.B der Befehl für den Button lauten:

Private Sub Command1_Click()
Call StartURL("http://www.tutorials.de")
End Sub

-=Justus=-

 

[Fichmopp]

..

Hoi,
eins vorweg:
Die meisten Codes funzen bei mir aus unerklährlichen Gründen nicht..
Könntest du das Pro nich mal als Zip anhängen?
thx im voraus

 

[Justus]

Da findest du'n Beispiel zum download:

http://home.t-online.de/home/felling/bastiuk/visualbasic/sourcecode.htm

 

[xtrem]

Servus ...

viel einfacher und mit weniger Quellcode, bSP:

Private Sub Command1_Click()
Task = Shell("Explorer.exe http://www.altavista.com", vbNormalFocus)
End Sub

gruß xtrem
;-]

 

[Dario Linsky]

viel einfacher und mit weniger Quellcode

Schon richtig. Aber die normale Shell-Methode ist nur eine abgespeckte Version von dem richtigen ShellExecute. Mit Shell lassen sich nur ausführbare Anwendungen (also alle *.exe-Dateien) starten - mit ShellExecute lässt sich jede Datei mit dem zugeordneten Programm aufrufen. Also auch URLs mit dem Standardbrowser.

Dim task As String

Ausserdem geben API-Funktionen im Normalfall (eigentlich immer) eine Zahl zurück, keinen String. Aber das nur so nebenbei.