Jump to content

Como posso isto...


vasco16
 Share

Recommended Posts

Boas pessoal, sou um novo user deste forum, para ja estou a gostar muito...

Mas tenho aqui umas duvidas 😉

Quero criar um programa com este aspecto, mas ainda não sei bem como se faz :S

http://img238.imageshack.us/img238/9652/semttulosm3.jpg

Eu estou a utilizar o microsoft visual basic 2008 express edition, e o que eu quero saber é se faço isso num projecto normal, e depois como que objecto é que adiciono uma caixa para depois essa caixa abrir um site que eu escolherei...

Espero que me possam ajudar, e se nao perceberem algo, ou se me estiver a explicar mal avisem...

Link to comment
Share on other sites

Demoins está correcto ... mas já que estás aqui.

Podes criar o form e adicionar 3 WebBrowser control. Depois só tens de dizer qual a página que queres abrir em cada um...

Exemplo:

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        WebBrowser1.Navigate("http://www.google.pt/")
        WebBrowser2.Navigate("http://www.portugal-a-programar.org/")
        WebBrowser3.Navigate("http://www.microsoft.com/")
    End Sub
Link to comment
Share on other sites

Demoins está correcto ... mas já que estás aqui.

Podes criar o form e adicionar 3 WebBrowser control. Depois só tens de dizer qual a página que queres abrir em cada um...

Exemplo:

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        WebBrowser1.Navigate("http://www.google.pt/")
        WebBrowser2.Navigate("http://www.portugal-a-programar.org/")
        WebBrowser3.Navigate("http://www.microsoft.com/")
    End Sub

sim ja fix isso, ams ele da-me erro:s depois acho que o site(jogo) pede o java e depois o meu programa fecha porque nao tem permissoes ou uma cena assim, já em relação ao youtube tambem nao abre os filmes :S alguma sujestao?

Link to comment
Share on other sites

Bom dia.

1º que tipo de browser usas ?  (Tem que ser abaixo do IE (novo))

Código para passar os erros ao abrir as páginas :

'--------------------------
' Para WebBrowser1
'-------------------------

Private Sub WebBrowser1_NavigateError(Index As Integer, ByVal pDisp As Object, URL As Variant, Frame As Variant, StatusCode As Variant, Cancel As Boolean)
On Error Resume Next
End Sub


'--------------------------
' Para WebBrowser2
'-------------------------

Private Sub WebBrowser2_NavigateError(Index As Integer, ByVal pDisp As Object, URL As Variant, Frame As Variant, StatusCode As Variant, Cancel As Boolean)
On Error Resume Next
End Sub


'--------------------------
' Para WebBrowser3
'-------------------------

Private Sub WebBrowser3_NavigateError(Index As Integer, ByVal pDisp As Object, URL As Variant, Frame As Variant, StatusCode As Variant, Cancel As Boolean)
On Error Resume Next
End Sub

Espero que te tenha ajudado!

Até +

programadorvb6

______________________________________________________________________________

Que minha coragem seja maior que meu medo e que minha força seja tão grande quanto minha fé.
 

Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share

×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.