PDA

Vollständige Version anzeigen : variable für den standard browser in VB?


fuchs5
20.06.2001, 15:11
Hallo!
Ich habe ein großes Problem, da ich noch nicht sehr erfahren mit VB bin.
Ich habe ein kleines Programm geschrieben. Oben rechts im Fenster steht nun meine Internet-Adresse. Dieses Label kann ich ja nun mit dem Befehl "Shell ("C:\Programme\Internet Explorer\Iexplore.exe") " versehen, damit der Benutzer bei einem Klick auf dieses Label meine Homepage im Internet Explorer präsentiert bekommt.
Nun ist aber das Problem, wenn das Verzeichnis des IE mal anders lautet, z.b. in ausländischen Windows-Versionen.
Was mache ich dann?

Gibt es eine Variable für den Standard InternetBrowser?

Brauche unbedingt Hilfe!

Danke!

Gruß,
Fuchs5

Stefan Kulpa
21.06.2001, 05:51
<font face="Verdana" size="2">Hallo,

probier's mal hiermit:
</font>
<PRE><FONT SIZE=1 FACE=Courier New><FONT COLOR=#000080>Option</FONT> <FONT COLOR=#000080>Explicit</FONT>

<FONT COLOR=#000080>Public</FONT> <FONT COLOR=#000080>Declare</FONT> <FONT COLOR=#000080>Function</FONT> GetDesktopWindow <FONT COLOR=#000080>Lib</FONT> "user32" () <FONT COLOR=#000080>As</FONT> <FONT COLOR=#000080>Long</FONT>
<FONT COLOR=#000080>Public</FONT> <FONT COLOR=#000080>Declare</FONT> <FONT COLOR=#000080>Function</FONT> ShellExecute <FONT COLOR=#000080>Lib</FONT> "shell32.dll" <FONT COLOR=#000080>Alias</FONT> _
"ShellExecuteA" (<FONT COLOR=#000080>ByVal</FONT> hwnd <FONT COLOR=#000080>As</FONT> <FONT COLOR=#000080>Long</FONT>, _
<FONT COLOR=#000080>ByVal</FONT> lpOperation <FONT COLOR=#000080>As String</FONT>, _
<FONT COLOR=#000080>ByVal</FONT> lpFile <FONT COLOR=#000080>As String</FONT>, _
<FONT COLOR=#000080>ByVal</FONT> lpParameters <FONT COLOR=#000080>As String</FONT>, _
<FONT COLOR=#000080>ByVal</FONT> lpDirectory <FONT COLOR=#000080>As String</FONT>, _
<FONT COLOR=#000080>ByVal</FONT> nShowCmd <FONT COLOR=#000080>As</FONT> <FONT COLOR=#000080>Long</FONT>) <FONT COLOR=#000080>As</FONT> <FONT COLOR=#000080>Long</FONT>
<FONT COLOR=#808080><HR></FONT>

<FONT COLOR=#000080>Public</FONT> <FONT COLOR=#000080>Sub</FONT> StarteHomepage()

<FONT COLOR=#000080>Call</FONT> ShellExecute(GetDesktopWindow(), _
"Open", _
"http://www.vbtipps@kulpa-online.de", _
0&, _
0&, _
vbNormalFocus)

<FONT COLOR=#000080>End</FONT> <FONT COLOR=#000080>Sub</FONT>
<FONT COLOR=#808080></FONT>

</FONT></PRE>

<font face="Verdana" size="2">Ersetze einfach die Internet-Adresse mit Deiner Homepage und rufe die Methode auf.
Dann ist es egal, welcher Browser in welcher Version wo installiert ist ...

Gruß</font>