Ir para o conteúdo
vaurdan

Duvidas em Vb6

Mensagens Recomendadas

vaurdan    0
vaurdan

oi, Como faço para fazer ao caregar num botao abrir um determinado site no browser? e como faço para executar um executavel qualquer???

edit... ja sei a do executavel XD

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
Tiago Salgado    2
Tiago Salgado

Aqui tens uma forma, não sei se é a mais simples...mas é a única que tenho usado até agora.

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

Public Function OpenBrowser(ByVal URL As String) As Boolean
    Dim res As Long
    
    If InStr(1, URL, "http", vbTextCompare) <> 1 Then
        URL = "http://" & URL
    End If
    
    res = ShellExecute(0&, "open", URL, vbNullString, vbNullString, _
        vbNormalFocus)
    OpenBrowser = (res > 32)
End Function

Private Sub Command1_Click()
Call OpenBrowser("www.portugal-a-programar.org")
End Sub

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
Tiago Salgado    2
Tiago Salgado

e ponho isso no Sub Private Command1_Click ?

Poes apenas a chamada da função no command1_click ou entao onde quiseres...o resto é a declaraçao da API e da funçao openbrowser()

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!

Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.

Entrar Agora


×

Aviso Sobre Cookies

Ao usar este site você aceita os nossos Termos de Uso e Política de Privacidade