Convertir un string a nombre de objeto.
Publicado por Jose maria (2 intervenciones) el 11/10/2013 18:45:10
Buenas tengo un problemilla.
Tengo 169 botones cada botón es una silla, y quiero darle al usuario la opción de borrar cambiar el color a un botón escribiéndolo en un textbox, y no tengo manera de hacerlo.
El código que he creado es:
Private Sub ReseteoSilla_Click(sender As Object, e As EventArgs) Handles ReseteoSilla.Click, ReseteoSilla.TextChanged
'Este parte lo que hace es que cuando recibe el foco del boton resetear una silla recoge la silla que hayamos escrito'
BotonOK.Visible = True (Esta expresión activa el botón de ok de la foto)
End Sub
Private Sub BotonOK_Click(sender As Object, e As EventArgs) Handles BotonOK.Click
'Con este boton activamos el asiento y la cambiamos de otro color y escondemos el textbox y este mismo boton'
SILLA = CObj(ReseteoSilla.Text) (intento hacer que el texto capturado del textbox sea el nombre de una silla, todas las sillas se llaman Silla1, Silla2,......Silla169)
SILLA.Enabled = True
SILLA.BackColor = Color.White
EtiquetaReset.Visible = False
ReseteoSilla.Visible = False
BotonOK.Visible = False
Si alguien quiere ver el proyecto para entenderlo mejor. Me lo soliciten por correo y con gusto se la envio.
Tengo 169 botones cada botón es una silla, y quiero darle al usuario la opción de borrar cambiar el color a un botón escribiéndolo en un textbox, y no tengo manera de hacerlo.
El código que he creado es:
Private Sub ReseteoSilla_Click(sender As Object, e As EventArgs) Handles ReseteoSilla.Click, ReseteoSilla.TextChanged
'Este parte lo que hace es que cuando recibe el foco del boton resetear una silla recoge la silla que hayamos escrito'
BotonOK.Visible = True (Esta expresión activa el botón de ok de la foto)
End Sub
Private Sub BotonOK_Click(sender As Object, e As EventArgs) Handles BotonOK.Click
'Con este boton activamos el asiento y la cambiamos de otro color y escondemos el textbox y este mismo boton'
SILLA = CObj(ReseteoSilla.Text) (intento hacer que el texto capturado del textbox sea el nombre de una silla, todas las sillas se llaman Silla1, Silla2,......Silla169)
SILLA.Enabled = True
SILLA.BackColor = Color.White
EtiquetaReset.Visible = False
ReseteoSilla.Visible = False
BotonOK.Visible = False
Si alguien quiere ver el proyecto para entenderlo mejor. Me lo soliciten por correo y con gusto se la envio.
Valora esta pregunta
0