Visual Basic.NET - ARRAY DE BOTONES

   
Vista:
Imágen de perfil de FRANCISCO

ARRAY DE BOTONES

Publicado por FRANCISCO (162 intervenciones) el 05/01/2010 13:20:50
he creado un array de siete botones y con el siguiente codigo se cual es el que se ha pulsado
¿si esta instruccion me devuelve el boton pulsado?

If sender.Equals(BOTON(1)) Then
BOTON(1).Text = (1)
End If
y yo le digo

msgbox(sender.equals(boton(i)) no me devuelve el boton pulsado donde esta el error
gracias



'***************************************************************************************** codigo*
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
While I < 7
I = I + 1
A = A + 30
ReDim Preserve BOTON(I)
BOTON(I) = New Button
BOTON(I).Name = "BOTON" & I
Me.Controls.Add(BOTON(I))
AddHandler BOTON(I).Click, AddressOf BOTON_CLICK
BOTON(I).Top = BOTON(I).Top + A
BOTON(I).Show()
End While
End Sub

Private Sub BOTON_CLICK(ByVal sender As System.Object, ByVal e As System.EventArgs)

If sender.Equals(BOTON(1)) Then
BOTON(1).Text = (1)
End If

If sender.Equals(BOTON(2)) Then
BOTON(2).Text = (2)
End If

If sender.Equals(BOTON(3)) Then
BOTON(3).Text = (3)
End If

If sender.Equals(BOTON(4)) Then
BOTON(4).Text = (4)
End If

If sender.Equals(BOTON(5)) Then
BOTON(5).Text = (5)
End If
If sender.Equals(BOTON(6)) Then
BOTON(6).Text = (6)
End If

If sender.Equals(BOTON(7)) Then
BOTON(7).Text = (7)
End If
End Sub
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