Visual Basic

[CR9]

Boas!

Estava me aqui a iniciar no Visual Basic e surgiu-me uma duvida. Quando insiro um 'CommandButton' o botão aparece 'Command Button 1' e eu queria escrever 'Go' ou 'Ir'. Não sei como mudar.

Cumps.

[nunoemanuel]

Boas!

Estava me aqui a iniciar no Visual Basic e surgiu-me uma duvida. Quando insiro um 'CommandButton' o botão aparece 'Command Button 1' e eu queria escrever 'Go' ou 'Ir'. Não sei como mudar.

Cumps.

Depois de inserir um botão tens que lhe dar uma ordem a ser executada quando o botao é clicado, por exemplo um botão de sair:

if msgbox("Deseja mesmo sair?",Sair",vbokcancel) = vbOK then
End

Neste caso aparece uma caixa de mensagem a perguntar se o user tem a certeza que quer sair!

Mas o que querias mesmo que a o botão fizesse?

Cumps

[CR9]

Eu tou a fazer um browser, e depois da barra de endereço ficava o tal botão a dizer 'Go' ou 'Ir'.. Basicamente era isso..

[CR9]

Ja consegui! Obrigado na mesma.

[CR9]

Tenho outra duvida.

É assim eu tou a fazer o tal browser.

Com 5 botões 'Retroceder / Avançar / Actualizar / Parar / Ir' mas aquilo dá me erro quando clico neles. Deixo aqui o codigo todo, para verem se tem algum erro:

Código: Seleccionar todos

Private Sub back_Click(Index As Integer)
wb.GoBack
End Sub


Private Sub forward_Click()
wb.GoForward
End Sub

Private Sub Go_Click()
wb.Navigate txtURL.Text
End Sub

Private Sub refresh_Click()
wb.refresh
End Sub

Private Sub stop_Click()
wb.stop
End Sub


Private Sub WebBrowser1_StatusTextChange(ByVal Text As String)
Dim varURL As Variant


   

    If URL = "http://www.google.pt" Then
        varURL = "http://www.google.pt"
   
        WebBrowser1.Navigate varURL
    End If

[CR9]

Outra duvida..

Como é que posso programar um programa que seja compativel com todas as resoluções?

[riapa]

Tenho outra duvida.

É assim eu tou a fazer o tal browser.

Com 5 botões 'Retroceder / Avançar / Actualizar / Parar / Ir' mas aquilo dá me erro quando clico neles. Deixo aqui o codigo todo, para verem se tem algum erro:

Código: Seleccionar todos

Private Sub back_Click(Index As Integer)
wb.GoBack
End Sub


Private Sub forward_Click()
wb.GoForward
End Sub

Private Sub Go_Click()
wb.Navigate txtURL.Text
End Sub

Private Sub refresh_Click()
wb.refresh
End Sub

Private Sub stop_Click()
wb.stop
End Sub


Private Sub WebBrowser1_StatusTextChange(ByVal Text As String)
Dim varURL As Variant


   

    If URL = "http://www.google.pt" Then
        varURL = "http://www.google.pt"
   
        WebBrowser1.Navigate varURL
    End If

mete aki 1 printscreen do compilador com este pedaço de codigo sff

[CR9]

LOL. Que pretendes ver, vais ver um form com 5 botões e uma imagem a dizer: 'Não foi possivel apresentar a página', dependendo do design e isso que vais ver..

[riapa]

que erro é k akilo te dá? ek por esse codigo k ai mostras, n tens acção definida para quando se carrega neles

Alem disso tens k ter 1 variavel para guardar plo menos o link da pagina actual para que possas fazer retroceder, puk sn tens k criar 1 array que guarde x paginas, tipo historico...

[piriri]

amigo depois do copy paste do codigo

tens q meter o controlo do vb pro webbrowser1

voilá