USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  como abrir uma pág. no browser ao clicar num label
DJ Dan
PRAIA GRANDE
SP - BRASIL
ENUNCIADA !
Postada em 20/05/2007 18:00 hs            
Olá pessoal !
 
Bem, essa é moleza. Acho que todo o programador de VB experiente sabe, menos eu que sou iniciante...rsrsrs...
 
gostaria de abrir uma página do meu site no navegador padrão do usuário do programa quando ele clicasse num texto que está num label do meu form.
 
queria, se possivel que texto do label aparecesse em azul, sublinhado e o cursor do mouse aparecesse como uma "mãozinha" quando o usuário passasse ele sobre o label, igual a um link de texto das paginas web.
 
Mais uma vez agradeço de coração a ajuda de vcs !
 
Abraços !!!
 
Daniel
   
Ermac
ITAQUAQUECETUBA
SP - BRASIL
ENUNCIADA !
Postada em 20/05/2007 23:49 hs            
Daniel, procure nas dicas que vc provavelmente encontrará respostas para suas dúvidas...para resolver seu problema faça o seguinte!
 
cole isso em um Módulo .BAS
Public Const SW_NORMAL = 1
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 OpenIt(frm As Form, ToOpen As String)
    ShellExecute frm.hwnd, "Open", ToOpen, &O0, &O0, SW_NORMAL
    
End Function

Depois vá até o formulário onde se encontra o label que vc
deseja usar como link, acesse a janela de códigos do form
e digite o seguinte código, de acordo com o nome do seu label
e do seu form...

Private Sub label1_Click()
'para abrir a página
OpenIt Me, "http://www.google.com.br" 'troque o endereço para o link do seu site
End Sub
 
Private Sub LblLink_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
'para mudar a cor do label quando o cursor passar sobre ele
label1.fontcolor = &H00FF0000& 'código azul
End Sub
 
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
'para que a cor volte ao normal quando o cursor sair do label
label1.forecolor = &H80000012& 'código da cor preto
End Sub


 
Quanto ao cursor que muda sobre o Label basta vc procurar nas propriedades do label a propriedade Mousepointer e alterá-la para Custom, acima dessa propriedade você vai encontrar outra que se chama MouseIcon, daê vc acessa ela e procura o ícone do cursor beleza??
 
qualquer dúvida poste novamente!!
TÓPICO EDITADO
 
DJ Dan
PRAIA GRANDE
SP - BRASIL
ENUNCIADA !
Postada em 21/05/2007 15:55 hs            
OLá amigão !
 
Obrigado pela resposta ! deu certo ! eu já tinha procurado nas dicas, mas não tinha encontrado nada sobre isso. Funcionou perfeitamente...ahh o cursor da "mãozinha" eu encontrei na mesma pasta onde está instalado o VB.
 
Obrigado e abraços !!! 
   
Ermac
ITAQUAQUECETUBA
SP - BRASIL
ENUNCIADA !
Postada em 22/05/2007 02:11 hs            
Disponha Emoções
   
Página(s): 1/1    


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

[:)] = 
[:P] = 
[:(] = 
[;)] = 

HTML DESLIGADO

     
 VOLTAR

  



CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página