Alguna vez se han preguntado como crear un nuevo textbox sin que yo lo agarre desde la Caja de herramientas. Bueno en este mini tutorial veremos como crear un nuevo objeto o control desde la ventana de Código
El código esta en el evento Open del formulario ya que quiero mostrar los controles cuando se abra el formulario
PUBLIC SUB Form_Open()
DIM label1 AS NEW Label(FMain) 'Declaramos label1 como un nuevo label en el formulario “FMain”
DIM listBox1 AS NEW ListBox(FMain)
DIM ComboBox1 AS NEW ComboBox(FMain)
'Declaramos label1 como un nuevo label en el formulario “FMain”
'Ojo ME Significa el formulario que estamos actualmente en este caso "FMain"
DIM textbox1 AS NEW TextBox(ME)
DIM TableView1 AS NEW TableView(ME)
DIM Button1 AS NEW Button(ME)
'Crear un Nuevo Label
label1.X = 110 ' Poción en el eje de las x del control
label1.Width = 250 ' Ancho del control
label1.Height = 50 'Alto del control
label1.Font = Font["Arial, +14"] ' Tipo de Letra
label1.Text = "Como Crear Controles" ' Texto a mostrar
'Crear un Nuevo ListBox
listBox1.X = 25 ' Poción en el eje de las x del control
listBox1.Y = 50 ' Poción en el eje de las y del control
listBox1.Width = 150 'Ancho del Control
listBox1.Height = 200 ' Alto del Control
listBox1.Add("listBox1") 'Agrega un nuevo Elemento al ListBox
'Crear un Nuevo ComboBox
ComboBox1.X = 200
ComboBox1.Y = 50
ComboBox1.Width = 200
ComboBox1.Height = 25
ComboBox1.Text = "ComboBox1"
'Crear un nuevo TextBox
textbox1.X = 200
textbox1.Y = 85
textbox1.Width = 200
textbox1.Height = 25
textbox1.Text = "TextBox1"
'Crear un nuevo TableView
TableView1.X = 200
TableView1.Y = 120
TableView1.Width = 200
TableView1.Height = 100
TableView1.Header = GridView.Horizontal
TableView1.Columns.Count = 2
TableView1.Columns[0].Text = "Columna 1"
TableView1.Columns[0].Width = 100
TableView1.Columns[1].Text = "Columna 2"
TableView1.Columns[1].Width = 100
TableView1.Rows.Count = 1
TableView1.Mode = Select.Single
TableView1[0, 0].Text = "Fila 1"
TableView1[0, 1].Text = "Fila 1"
'Crear un nuevo Button
Button1.X = 200
Button1.Y = 230
Button1.Height = 50
Button1.Width = 200
Button1.Text = "Button1"
END
Imágenes
Ahora me imagino que te preguntas como puedo crear eventos a los controles..!! Bueno en este segundo ejemplo veremos como crearles eventos a “Uno de Ellos” y utilizar un solo evento para varios controles.
PUBLIC SUB Form_Open()
'Declaramos label1 como un nuevo label en el formulario “FMain”
'Lo Agrupamos a la Subrutina cnombre
DIM label1 AS NEW Label(FMain) AS "cnombre"
'Lo Agrupamos a la Subrutina cnombre
DIM textbox1 AS NEW TextBox(ME) AS "cnombre"
'Lo Agrupamos a la Subrutina cnombrebutton
DIM Button1 AS NEW Button(ME) AS "cnombrebutton"
'Crear un Nuevo Label
label1.X = 110 ' Poción en el eje de las x del control
label1.Width = 250 ' Ancho del control
label1.Height = 50 'Alto del control
label1.Font = Font["Arial, +14"] ' Tipo de Letra
label1.Text = "Como Crear Controles" ' Texto a mostrar
'Crear un nuevo TextBox
textbox1.X = 220
textbox1.Y = 70
textbox1.Width = 200
textbox1.Height = 25
textbox1.Text = "TextBox1"
'Crear un nuevo Button
Button1.X = 10
Button1.Y = 60
Button1.Height = 50
Button1.Width = 200
Button1.Text = "Button1"
END
'Hacemos una Subrutina “cnombre” con el evento Doble Click “DblClick”
PUBLIC SUB cnombre_DblClick()
' LAST Devuelve el ultimo objeto que se uso,
' Al darle doble click “Click” al objeto Button1 devolverá Button1
' .Text Especifica que se cambiara la propiedad Text de ese control
LAST.Text = InputBox("Escriba el Nombre a Cambiar")
END
'Hacemos una Subrutina “cnombrebutton” con el evento Click “Click”
PUBLIC SUB cnombrebutton_Click()
LAST.Text = InputBox("Escriba el Nombre a Cambiar")
END
Al Pulsar Algún Control o Objetos agrupado por la subrutina y el evento, se producirá las instrucciones
Imágenes
Descargar Ejemplos
