Visual Basic.NET - Arrays con Botones

   
Vista:

Arrays con Botones

Publicado por Alfredo (2 intervenciones) el 05/07/2010 14:12:46
Buenos dias, tengo un pequeño problema. En primer lugar yo soy mas de Visual 6 que de VB.NET mi consulta es la siguiente.

Yo quiero crear una serie de botones arrays en VB.NET, antes en Visual 6 se hacia Copiar y pegar y te preguntaba si querias convertirlo en array, pero aora que estoy en VB.NET no lo se hacer

¿Me podeis ayudar? gracias
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

RE:Arrays con Botones

Publicado por Damian (824 intervenciones) el 05/07/2010 16:42:46
Debes crearlos desde codigo, te paso mi ejemplo que esta combinado con la consulta de una base de datos, solo presta atencion a los CheckBox, en tu caso seria de tipo Button, despues es lo mismo:

SQL = "select distinct C.Descripcion,C.CodCat from Categoria C,Articulos A where C.Baja=0 and A.CodCat=C.CodCat " _
& "order by 1"

Com = New SqlCommand(SQL, MiConexion)
If MiConexion.State = ConnectionState.Open Then
MiConexion.Close()
End If
MiConexion.Open()
Rs = Com.ExecuteReader()

Dim i As Integer = 1
Const fila1 As Integer = 59
Const fila2 As Integer = 89
Const fila3 As Integer = 119
Const fila4 As Integer = 149
Dim c1 As Integer = 1, c2 = 1, c3 = 1, c4 = 1

While Rs.Read()
Dim ch As New CheckBox

ch.Size = New Size(110, 20)
ch.Enabled = False
ch.Checked = True
Select Case i
Case 1 To 3
ch.Text = Rs("Descripcion")
ch.Name = "ch"
ch.Tag = Rs("CodCat")
ch.Location = New Point(18 * c1, fila1)
GrupSecc1.Controls.Add(ch)
c1 += 7
Case 4 To 6
ch.Text = Rs("Descripcion")
ch.Name = "ch"
ch.Tag = Rs("CodCat")
ch.Location = New Point(18 * c2, fila2)
GrupSecc1.Controls.Add(ch)
c2 += 7
Case 7 To 9
ch.Text = Rs("Descripcion")
ch.Name = "ch"
ch.Tag = Rs("CodCat")
ch.Location = New Point(18 * c3, fila3)
GrupSecc1.Controls.Add(ch)
c3 += 7
Case 10 To 12
ch.Text = Rs("Descripcion")
ch.Name = "ch"
ch.Tag = Rs("CodCat")
ch.Location = New Point(18 * c4, fila4)
GrupSecc1.Controls.Add(ch)
c4 += 7
End Select
i += 1
AddHandler ch.Click, AddressOf Ch_Click
End While

Rs.Close()
Cerrar()
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

RE:Arrays con Botones

Publicado por Alfredo (2 intervenciones) el 05/07/2010 17:22:53
Me cuesta entender un poco el codigo ya que estoy poco familiarizado con .NET. Mer lo podrias explicar?

Gracias un saludo
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

RE:Arrays con Botones

Publicado por Fernando (1 intervención) el 14/07/2010 14:01:24
Es una locura ese codigo, solo para hacer un Array...!! jajajajajja...si con el VB 6 era tan sencillo como va a ser ahora tan complicado.
Donde quedó la lógica del programador..?
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