|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Redes/Comunicações)
|
|
 |
Título da Dica: Conectar um site pelo Internet Explorer
|
 |
|
|
|
Postada em 2/3/2004 por Josefh Hennyere
'Módulo.bas
Public Const SW_NORMAL = 1
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
Public Function OpenIt(frm As Form, ToOpen As String)
ShellExecute frm.hwnd, "Open", ToOpen, &O0, &O0, SW_NORMAL
End Function
'Formulário
Private Sub Command1_Click()
OpenIt Me, "http://www.google.com.br"
End Sub
|
|
|
|
|
