Crear un texbox y un boton en tiempo de ejecucion [Solucionado]

Iniciado por proteus8, 18 Abril 2011, 20:47 PM

0 Miembros y 1 Visitante están viendo este tema.

proteus8

Hola a todos,
      Tengo un formulario al cual contiene un Tabcontrol, las páginas de este tabcontrol las creo en tiempo de ejecución, mediante el siguiente código
Código (vbnet) [Seleccionar]

Private Sub Btn_Aceptar_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Btn_Aceptar.Click
       Dim myTabPage As New TabPage()
       Dim Txt_Buscar As New TextBox()
       If Cmb_Actividad.Text = "Norm.Compl. 1F (Sin CM)" Then
           myTabPage.Text = "Norm.Compl 1F" & (Frm_Almacen.TabControl1.TabPages.Count + 1)
           Frm_Almacen.TabControl1.TabPages.Add(myTabPage)

       End If
       If Cmb_Actividad.Text = "Norm.Compl. 3F Direc. (Sin CM)" Then
           myTabPage.Text = "Norm.Compl 3F" & (Frm_Almacen.TabControl1.TabPages.Count + 1)
           Frm_Almacen.TabControl1.TabPages.Add(myTabPage)
       End If
   End Sub

Me gustaria me puedan ayudar con lo sigueinte: como puedo agregar en cada pagina que cree (con el codigo anterior) un Textbox y un Boton

Desde ya muchas gracias.

Edu

Ya instanciaste el txt_buscar asique ahora te falta ponerle datos como su ubicacion, su tamaño etc y despues pones Me.Controls.Add(Txt_Buscar)

Algo asi era

proteus8

XXX-ZERO-XXX muchas gracias por responder, pero como hago para que lo agregue en la hoja que acabo de crear, por que lo hago a si pero no se ve nada.
Código (vbnet) [Seleccionar]

Private Sub Btn_Aceptar_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Btn_Aceptar.Click
        Dim myTabPage As New TabPage()
        Dim Txt_Buscar As New TextBox()
        If Cmb_Actividad.Text = "Norm.Compl. 1F (Sin CM)" Then
            myTabPage.Text = "Norm.Compl 1F" & (Frm_Almacen.TabControl1.TabPages.Count + 1)
            myTabPage.BackColor = Color.Black
            Frm_Almacen.TabControl1.TabPages.Add(myTabPage)
            Txt_Buscar.Width = 96
            Txt_Buscar.Height = 21
            Txt_Buscar.Location = New Point(5, 8)
            Frm_Almacen.Controls.Add(Txt_Buscar)
        End If
End Sub

Desde ya muchas gracias!!!

Edu

No tengo ni idea q es eso de  la hoja q creas, pero bueno ahi en tu codigo lo agregas al form, entonces cambia el form_almacen por la hoja esa. O prueba con TabControll.Add o alguna otra opcion.
Yo soy un principiante recien pero intentaba ayudarte

proteus8

#4
 :D ok!! de todas maneras se agradece la intención.
Alguien que me pueda ayudar, con lo que me dijo XXX-ZERO-XXX logro crear el Textbox pero lo por debajo del Tabcontrol, yo necesito que sea sobre este.
Ayuda Por favor!!!

Krähne

Cita de: proteus8 en 18 Abril 2011, 22:03 PM
:D ok!! de todas maneras se agradece la intención.
Alguien que me pueda ayudar, con lo que me dijo XXX-ZERO-XXX logro crear el Textbox pero lo por debajo del Tabcontrol, yo necesito que sea sobre este.
Ayuda Por favor!!!

Según leo a vuelo de pájaro, sería algo como Textbox.BringToFront().
Yo soy más sabio que este hombre; es posible que ninguno de los dos sepamos cosa que valga la pena, pero él cree que sabe algo, pese a no saberlo, mientras que yo, así como no sé nada, tampoco creo saberlo. Yo no tengo conciencia de saber nada.

Novlucker

El problema es que esta agregando el textbox al formulario y no al tabcontrol
Esto realmente no es necesario preguntarlo en ningún sitio, creas el formulario directamente de manera gráfica arrastrando controles, y luego te lees el código que se genera automáticamente para intentar entenderlo.

Saludos
Contribuye con la limpieza del foro, reporta los "casos perdidos" a un MOD XD

"Hay dos cosas infinitas: el Universo y la estupidez  humana. Y de la primera no estoy muy seguro."
Albert Einstein

proteus8


neoncyber

si quieres adicionar controles en tiempo de ejecucion pero no sabes como, simplemente ve como se hacen las cosas en el .designer.vb de tu formulario, entiendes el codigo ves como se hace y listo.

Saludos
Código (python) [Seleccionar]

#!/usr/bin/python
print "Visit:"
print "http:\\donkeysharp.blogspot.com"