Visual Basic

Topic created · 4 Mensajes · 554 Visitas
  • uuu pase por accidente a poner un TopToolStripPanel y ahora no lo puedo borrar del form ni con suprimir ni con boton dderecho :S komo lo puedo kitar de hay por favor :T.T: :T.T:

    ah y otra cosa si alguien save como puedo hacer un boton o un combo box ke al precionar enter funciones

    asi como por ejemplo un navegador apreto enter y va a la pagina xd

  • @gerrer0 said:

    uuu pase por accidente a poner un TopToolStripPanel

    Eso no me aparece, asegúrate de haber copiado bien el nombre.

    ah y otra cosa si alguien save como puedo hacer un boton ke al precionar enter funciones

    asi como por ejemplo un navegador apreto enter y va a la pagina xd

    Para agregarlo a un textbox haces lo siguiente:
    1º añades este código:

    Private Sub TextBox1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyDown
    
        End Sub
    

    Es una referencia de "KeyDown" frente al textbox1.

    Bien, dentro de ese código añades lo siguiente:

    If e.KeyCode = Keys.Enter Then
                WebBrowser1.navigate(TextBox1.Text)
            End If
    

    Es decir, si presionas la "key" enter, te lleve el webbrowser1 a la url que hayas puesto en le textbox1.text, en fin, quedaría algo así

     Private Sub TextBox1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyDown
            If e.KeyCode = Keys.Enter Then
                WebBrowser1.navigate(TextBox1.Text)
            End If
        End Sub
  • la ago con un combo box para poner url y con tab control para visualisar las paginas xD

    thank anghios :miau: :wiii:
    se puede con el tab control , me da error

    con el tab control tengo ke poner esto verdad?

    Private Sub TextBox1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyDown
            If e.KeyCode = Keys.Enter Then
                TabControl1.SelectedTab.navigate(TextBox1.Text)
            End If
        End Sub
    

    me dice :

    Error	1	'navigate' no es un miembro de 'System.Windows.Forms.TabPage
    

    :T.T: :wiii:

  • Es que la referencia "navigate" en un tabcontrol no existe, deberás añadir un webbrowser... aunque bueno, si lo quieres hacer como aquel navegador que viste... en fin, te diré como, pero es todo con variables xD
    Lo primero que tienes que hacer es quitar todas las "fichas" que tiene el tabcontrol, y acoplarlo al contenedor primerio
    en Form1_load declaras lo siguiente

    dim tab as new tabpage
    tab.text = "loquequieras"
    tabcontrol1.tabpages.add(tab)
    dim web as new webbrowser
    web.dock = dockstyle.fill
    web.navigate(textbox1.text)
    tabcontrol1.selectedtab.control.add(web)
    

    y listo xD