Crear Panel solo con Codigo VB.Net 2003 - VB-MUNDO

EnzoDiego · #1 (**permalink**) 19-10-2007, 16:09:01

Camaradas ojala y estén bien……..
Necesito saber el código de cómo hacer o crear un Panel (en VB6 se llamaban Frame), es decir, sus dimensiones, su nombre, la ubicación en pantalla, etc. Lo quiero hacer a través de código……ojala y puedan ayudarme…..de antemano gracias

PD. Igual podría ser una página donde enseñen a crear diferentes controles a través de código, seria ideal…Gracias

Nanuk · #2 (**permalink**) 29-10-2007, 20:27:59

Buenas. Como dices que si te pongo la creación de distintos controles te da igual pues ahi va el codigo para generar un boton:

Código:

        Dim b As New System.Windows.Forms.Button

        b.Visible = True
        b.Top = 10
        b.Left = 10
        b.Text = "boton"

        Me.Controls.Add(b)

si lo que quieres es añadir cualquier otra cosa solo tienes dimensionar la clase que es y configurarla antes de añadirla al formulario.

No lo he especificado pero "Me" es un formulario.

Un saludo

EnzoDiego · #3 (**permalink**) 29-10-2007, 20:59:45

como creo un panel y despues a ese panel le agrego botones y cajas de texto y combobox, etc. pero atravez de codigo lo se hacer pero nose como llevar los conmtroles(botones, combobox, text, etc.) al Panel, ojala y puedas ayudarme u orientarme con un ejemplo. de antemano gracias.

Nanuk · #4 (**permalink**) 29-10-2007, 23:28:55

Buenas de nuevo, pues crear el panel es tan facil como crear el boton y añadirle controles al panel es tan facil como añadirlos al formulario:

Código:

       Dim p As New System.Windows.Forms.panel
       Dim b As New System.Windows.Forms.Button

        p.visible = true
        p.top = 10
        p.left = 10

        b.Visible = True
        b.Top = 10
        b.Left = 10
        b.Text = "boton"

        Me.Controls.Add(p)
        p.Controls.Add(b)

Es esto a lo que te referias?

Un saludo

EnzoDiego · #5 (**permalink**) 30-10-2007, 12:30:38

Gracias Camarada lo pondremos de inmediato en practica, una ultima consulta con respecto al tema, algun sitio o tutorial que enseñe a crear estas propiedades de manera mas detallada, es decir, con todos sus atributos. Desde ya gracias.......

EnzoDiego · #6 (**permalink**) 30-10-2007, 15:37:29

Camarada una mas como programo los botones, al hacerlo en el diseñador hago doble click en el boton y me abre la ventana de codigo de ese boton como lo hago al crear el boton con codigo. lo hice asi como me dijiste

Dim Panel_Menu As New System.Windows.Forms.Panel
Dim Bot_Clie As New System.Windows.Forms.Button
Dim Bot_Coti As New System.Windows.Forms.Button
Panel_Menu.Visible = True
Panel_Menu.Width = 368
Panel_Menu.Height = 224
Panel_Menu.Top = 72
Panel_Menu.Left = 320

Bot_Clie.Visible = True
Bot_Clie.Width = 144
Bot_Clie.Height = 40
Bot_Clie.Left = 24
Bot_Clie.Top = 16
Bot_Clie.Text = "Cliente"
Bot_Clie.Font = New System.Drawing.Font("Verdana", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))

Bot_Coti.Visible = True
Bot_Coti.Width = 144
Bot_Coti.Height = 40
Bot_Coti.Left = 24
Bot_Coti.Top = 64
Bot_Coti.Text = "Cotizacion"
Bot_Coti.Font = New System.Drawing.Font("Verdana", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))

Bot_Sop.Visible = True
Bot_Sop.Width = 144
Bot_Sop.Height = 40
Bot_Sop.Left = 24
Bot_Sop.Top = 120
Bot_Sop.Text = "Soporte"
Bot_Sop.Font = New System.Drawing.Font("Verdana", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Controls.Add(Panel_Menu)
Panel_Menu.Controls.Add(Bot_Clie)
Panel_Menu.Controls.Add(Bot_Coti)
Panel_Menu.Controls.Add(Bot_Sop)

Ojala y puedas ayudarme otra vez, jejejeje, de antemano gracias.

Nanuk · #7 (**permalink**) 31-10-2007, 10:31:45

Buenas, Te tienes que crear un procedimiento para que gestione los botones por ejemplo y cuando ya tengas tus controles configurados y cargados en el panel. Le añades la siguientes linea (Una por cada control que quieras controlar) Si quieres controlarle mas eventos solo tienes que repetir la operación. te creas un procedimiento que sea igual que el que genera el visal basic y le añades el handler:

Código:

    AddHandler Bot_Clie.Click, AddressOf Gestionar_BotonClick
    AddHandler Bot_Coti.Click, AddressOf Gestionar_BotonClick
...

Private Sub Gestionar_BotonClick(Sender as object, e as system.eventArgs)
    'Codigo que gestiona tus botones
End Sub

Un Saludo