Consulta

[Minino666]

Buenas tardes ante que todo, primer posteo en programacion en chilecomparte espero que puedan ayudarte. tengo un problema que aun no puedo resolverlo. en Visual basic antiguamente uno podia manejar los CommandButton mediante un Index con el cual agregando botones uno podia manejar los indices al antojo de uno. ahora en visual basic.net me eh dado cuenta que ya no existe , sino que ahora es mediante Controls en matrices, tengo el siguiente problema puedo crear la matriz de botones pero necesito darle un orden que yo estime, eh probado muchas cosas y nada.

 

el orden debe ser:

 

Imagen

 

donde cada numero es un botton, en Visual basic uno agregaba los 100 botones y asignaba en la propiedad Index el valor.

 

En .NET eh tratado y no eh podido darle el orden pero si crear la matriz de 100 botones y separarlas en 2.

 

codigo:

 

Public Class Form1

Dim tagcae(126) As String

Dim danos_celdas(126, 5) As Integer

 

 

Dim n As Integer = 1

Dim _boton As Button

For i As Integer = 1 To 126

With i

If i <= 63 Then

_boton = New Button

_boton.Name = "" & CStr(n)

_boton.Text = _boton.Name

_boton.Name = "Button" & i

_boton.Location = New Point(15 * i, 0 * i + 70)

_boton.Width = 14

_boton.Height = 60

_boton.FlatStyle = FlatStyle.Flat

_boton.FlatAppearance.BorderColor = Color.Gray

Me.Controls.Add(_boton)

_boton.BackColor = Color.Lime

AddHandler _boton.Click, AddressOf ButtonOnClick

ElseIf i >= 64 Then

_boton = New Button

_boton.Name = "" & CStr(n)

_boton.Text = _boton.Name

_boton.Name = "Button" & i

_boton.Location = New Point(15 * i - 945, 0 * i)

_boton.Width = 14

_boton.Height = 60

_boton.FlatStyle = FlatStyle.Flat

_boton.FlatAppearance.BorderColor = Color.Gray

Me.Controls.Add(_boton)

_boton.BackColor = Color.Lime

AddHandler _boton.Click, AddressOf ButtonOnClick

End If

End With

n += 1

Next

End Class

 

Private Sub ButtonOnClick(ByVal sender As Object, ByVal e As EventArgs)

 

' Referenciamos el control Button que ha

' desencadena el evento.

'

Dim btn As Button = DirectCast(sender, Button)

 

MessageBox.Show("Se ha hecho clic en el control " & btn.Name)

 

End Sub

 

De esa manera me queda ordenada:

 

Imagen2

 

Tambien probe dividiendo amba matriz y tampoco obtuve el resultado, igual dejo el codigo.

 

 

Dim n As Integer = 126

Dim _boton As Button

For i As Integer = 1 To 63

With i

_boton = New Button

_boton.Name = "" & CStr(n)

_boton.Text = _boton.Name

_boton.Name = "Button" & i

_boton.Location = New Point(15 * i, 0 * i)

_boton.Width = 14

_boton.Height = 60

_boton.FlatStyle = FlatStyle.Flat

_boton.FlatAppearance.BorderColor = Color.Gray

Me.Controls.Add(_boton)

_boton.BackColor = Color.Lime

AddHandler _boton.Click, AddressOf ButtonOnClick

End With

n -= 1

Next

Dim n2 As Integer = 1

Dim _boton2 As Button

For j As Integer = 1 To 63

With j

_boton2 = New Button

_boton2.Name = "" & CStr(n2)

_boton2.Text = _boton2.Name

_boton2.Name = "Button" & j

_boton2.Location = New Point(15 * j, 0 * j + 70)

_boton2.Width = 14

_boton2.Height = 60

_boton2.FlatStyle = FlatStyle.Flat

_boton2.FlatAppearance.BorderColor = Color.Gray

Me.Controls.Add(_boton2)

_boton2.BackColor = Color.Lime

AddHandler _boton2.Click, AddressOf ButtonOnClick

End With

n2 += 1

Next

 

 

Private Sub ButtonOnClick(ByVal sender As Object, ByVal e As EventArgs)

 

' Referenciamos el control Button que ha

' desencadena el evento.

'

Dim btn As Button = DirectCast(sender, Button)

 

MessageBox.Show("Se ha hecho clic en el control " & btn.Name)

 

End Sub

 

Espero su ayuda, salu2

[Aspro]

ahi algo que no entendi, le estas dando las propiedades al botton siendo que en vb a mano derecha te salen toda las propiedades para poder modificarlo sin escribir codigo, no se si toy mal

bueno y lo otro si mas entiendo es como una calculadora ? tienes los botones apretas 1 y te sale el numero, si es asi me avisas y te ayudo o no entendi mal xd nos vemos

[Minino666]

Jeje, No amigo no es una calculadora son solo botones, pero necesito que lleven un orden que yo estime, en las propiedades de los botones en visual basic 6 existía una propiedad llamada Index en el cual uno le asignaba un valor y no había problemas de indice. en cambio en .NET no existe el index como propiedad , es por eso que tienes que crear un controls de botones con código y no las herramientas, necesito ordenarlas de la manera que explique en la foto de arriba, salu2

[Aspro]

haber si entnedi, es solo botones que estan uno al lado de otros y que cada boton tenga un numero correlativo ?

1,2,3,4,5,6 ? asi ?

y que al hacer cilck muestre el contenido ?