1. Este site usa cookies. Ao continuar a usar este site está a concordar com o nosso uso de cookies. Saber Mais.

Ajuda - botão link para site e icones formulario - VB6

Discussão em 'Programação' iniciada por DarthNightmare, 13 de Setembro de 2006. (Respostas: 6; Visualizações: 5787)

  1. DarthNightmare

    DarthNightmare Power Member

    Boas Alguem me pode dizer o codigo necessario para fazer um "command button" abrir o browser padrao do windowns (IE, firefox, ect.) numa pagina WEB especifica (tipo www.google.pt), no Visual Basic 6.0?
     
    Última edição: 14 de Setembro de 2006
  2. DarthNightmare

    DarthNightmare Power Member

    E tb se me puderem ajudar, tenho um problema num icone para um formulario em k ao meter la da uma mensagem de erro a dizer k e uma imagem invalida. Qual e o tamanho e extensao do ficheiro necessario para que seja aceite?
     
  3. DarthNightmare

    DarthNightmare Power Member

    o problema da imagem ja resolvi, agora keria k alguem me explicasse como fazer akilo do link
     
    Última edição: 14 de Setembro de 2006
  4. Kayvlim

    Kayvlim Undefined Moderator
    Staff Member

    Sabes usar API?
    Vais precisar da API ShellExecute.

    Código:
    [FONT=Verdana][FONT=Tahoma][SIZE=2][FONT=Verdana][SIZE=2]Declaração:[/SIZE][/FONT]
     
    [/SIZE][/FONT][/FONT][B]Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, _[/B]
    [B]                                                                     ByVal lpOperation As String, _[/B]
    [B]                                                                     ByVal lpFile As String, _[/B]
    [B]                                                                     ByVal lpParameters As String, _[/B]
    [B]                                                                     ByVal lpDirectory As String, _[/B]
    [B]                                                                     ByVal nShowCmd As Long) As[/B] [B]Long[/B]
     
     
     
     
    Uso:
     
        [B]ShellExecute Me.hwnd, "open", "[/B][URL="http://www.google.pt"][B]http://www.google.pt[/B][/URL][B]", _[/B]
    [B]               vbNullString, vbNullString, 0[/B]
     
    
    Espero que ajude ;)

    Cumps [[[[[[[[[[]]]]]]]]]]
    angelofwisdom
     
    Última edição: 15 de Setembro de 2006
  5. DarthNightmare

    DarthNightmare Power Member

    Nao sei trabalhar com APIs mas ja estou a aprender alguma coisa :).

    Obrigado pela ajuda!
     
  6. RPortela

    RPortela Power Member

    Dim intobj As Object
    Set intobj = CreateObject("InternetExplorer.Application")
    intobj.Visible = -1
    intobj.Navigate "http://www.portela.no.sapo.pt/index.html"
    Do Until intobj.busy = True
    Loop

    Boas, se nao souberes ou nao quiseres funcionar com API, podes sempre colocar este codigo, é pena e só abrir o internet explorer, para o firefox não sei.. :(

    espero ter ajudado...
     
  7. Kayvlim

    Kayvlim Undefined Moderator
    Staff Member

    Em ÚLTIMO CASO, isto é, só se não quiseres usar APIs ou trabalhar com objectos (do género o que o porrtela disse), sempre podes fazer

    Link = "http://www.google.pt"

    Shell "cmd /c start " & Link

    É facílimo. O problema é que estás a inicializar a linha de comandos para por sua vez abrir um programa, e depois desligar-se. É desnecessário, mas fácil ;)

    Cumps [[[[[[[[[]]]]]]]]]
    angelofwisdom
     

Partilhar esta Página