ABRIR LINK DE SITE

JORGESALES 09/08/2015 00:27:09
#449748
Pessoal até bem pouco tempo atrás esse código funcionava perfeitamente,
(talvez seja o meu pc) se possível gostaria que alguém testasse ou enviasse
um outro que possa abrir um link qualquer:
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 Const conSwNormal = 1

Private Sub Label1_Click()
    ShellExecute hwnd, [Ô]open[Ô], [Ô]http://www.vbmania.com.br[Ô], vbNullString, vbNullString, conSwNo
End Sub


Desde já agradeço a ajuda e opinião de todos.
OMAR2011 09/08/2015 10:15:58
#449751 Resposta escolhida
Executei aqui no meu e Abriu normalmente.
Estranho usar clique do Label.
JORGESALES 09/08/2015 11:14:15
#449753
Citação:

:
Executei aqui no meu e Abriu normalmente.
Estranho usar clique do Label.


Foi só um código que achei na net.
testei em outro pc e funcionou,
vou fazer um outro post pra saber se alguém
sabe por o meu pc não executa.
Muito grato por sua ajuda Omar....
Tópico encerrado , respostas não são mais permitidas
Voltar