![]() |
Tipp 0093
|
Webbrowser mit vorgegebener URL öffnen
|
 |
|
Autor/Einsender: Datum: |
|
Detlev Schubert 08.07.2001 |
|
Entwicklungsumgebung: |
|
VB 5 |
|
|
Ist ein Web-Browser im System installiert und als Standard definiert, kann mit Hilfe der API-Funktion
ShellExecute und nur einem Funktionsaufruf eine beliebige Webseite geöffnet werden.
|
|
|
Option Explicit
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 Command1_Click(Index As Integer)
Select Case Index
Case 1
ShellExecute Me.hWnd, "Open", "http://www.vb-fun.de", _
vbNullString, vbNullString, 1
Case Else
Unload Me
End
End Select
End Sub
|
|
|
|
|
Windows-Version |
95 |
 |
|
98/SE |
 |
|
ME |
 |
|
NT |
 |
|
2000 |
 |
|
XP |
 |
|
Vista |
 |
|
Win
7 |
 |
|
|
VB-Version |
VBA 5 |
 |
|
VBA 6 |
 |
|
VB 4/16 |
 |
|
VB 4/32 |
 |
|
VB 5 |
 |
|
VB 6 |
 |
|
|
|
Download (2
kB)
|
Downloads bisher: [ 2667 ]
|
|
|