Visual Basic.NET - ARRAYS D CONTROLES

 
Vista:

ARRAYS D CONTROLES

Publicado por elcristo (2 intervenciones) el 25/01/2005 17:37:41
Wenas, estoi lia con visual basic .net i tengo el problema q a diferencia del basic 6.0 no hay array de controles, a b si me podeis guiar, o decir como es en visual basic.net me ace musha falta
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Alberto
Val: 224
Ha disminuido 1 puesto en Visual Basic.NET (en relación al último mes)
Gráfica de Visual Basic.NET

ARRAYS D CONTROLES

Publicado por Alberto (81 intervenciones) el 27/01/2005 17:38:44
Los array de controles no existen en VBNet, pero por contra se pueden crear controles en cualquier momento.
El siguiente código puede resultar util para comprender como hacerlo, deberías añadirlo a un formulario, esta suficientemente comentado como para que sea facil de comprender.

Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Alberto
Val: 224
Ha disminuido 1 puesto en Visual Basic.NET (en relación al último mes)
Gráfica de Visual Basic.NET

El Código 01

Publicado por Alberto (81 intervenciones) el 27/01/2005 17:39:52
'ArrayList conteniendo los botones creados
Dim Buttons As New ArrayList()
'Función para crear los botones
Private Sub AddButton(ByVal Name As String, ByVal Text As String, ByVal Y As Integer)
'Crear el boton
Dim x As New Button()
'Poner valores a las propiedades
x.Location = New System.Drawing.Point(56, Y)
x.Name = Name
x.Size = New System.Drawing.Size(136, 32)
x.TabIndex = 0
x.Text = Text
'Añadir los controladores de eventos
AddHandler x.Click, AddressOf Buttons_Click
'Añadir el control al array list
Buttons.Add(x)
'Poner el control en el formulario
Me.Controls.Add(x)
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Alberto
Val: 224
Ha disminuido 1 puesto en Visual Basic.NET (en relación al último mes)
Gráfica de Visual Basic.NET

elCodigo 02

Publicado por Alberto (81 intervenciones) el 27/01/2005 17:40:31
Private Sub RemoveButton(ByVal Index As Integer)
'Seleccionar el boton a borrar
Dim x As Button = Buttons(Index)
'Eliminar los controladores de eventos
RemoveHandler x.Click, AddressOf Buttons_Click
'Eliminar el control del formulario
Me.Controls.Remove(x)
'Eliminar el control del ArrayList
Buttons.Remove(x)
End Sub
'Control del click sobre los botones
'Se ejecutara cada vez que se haga click sobre un control del arraylist
Private Sub Buttons_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
'Recojer el boton que a generado el evento
Dim r As Button = sender
'Añadir un botón debajo del que ha generado el evento
AddButton(r.Name & Buttons.Count, r.Text & Buttons.Count, r.Location.Y + r.Size.Height)
'Eliminar el boton que ha generado el evento
RemoveButton(Buttons.Count - 2)
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'Ponemos el primer control
AddButton("X", "y", 0)
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar