ABRIR INTERNET EXPLOER, DE UM MODO SIMPLES.

USUARIO.EXCLUIDOS 14/05/2004 11:44:46
#24677 Resposta escolhida

No módulo tu coloca isso:

' Browser

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 Sub ShellToBrowser(Frm As Form, ByVal URL, ByVal WindowStyle)

Dim api As Integer
api = ShellExecute(Frm.hwnd, "open", URL, "", App.Path, WindowStyle)

'verifica o valor retornado
If api 31 Then
'codigo de erro da api
MsgBox App.Title & " O seu navegador esta com problemas. " & _
"Verifique se o seu navegador esta corretamente instalado." & _
"(Error" & Format(api) & ")", 48, "Navegador Indisponivel"
' ShellToBrowser = False
ElseIf api = 32 Then
'arquivo sem associação
MsgBox App.Title & " não foi possível encontrar uma associação para o arquivo " & URL & " no seu seistema. Verifique o seu Navegador padrão... ", 48, "Navegador indisponivel"
' ShellToBrowser = False
' Else
'funcionou
' ShellToBrowser = True
End If

End Sub


No form onde tu vai chamar tu coloca isso:

ShellToBrowser Me, URLQueTuQuerAcessar, vbMaximized

Abraços,