• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

vaurdan

Duvidas em Vb6

4 mensagens neste tópico

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

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

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

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

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()

0

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