Visual Basic.NET - acceder a propiedades de controles en VB

 
Vista:

acceder a propiedades de controles en VB

Publicado por AgathaMac (2 intervenciones) el 02/11/2009 20:05:43
Hola! estoy realiando una aplicación en la cual tengo un formulario con 10 label. necesito que al cumplir ciertas condiciones un determinado label cambie de color, para ello tengo una función que debe recibir por parámetro el control y cambiar el color. Mi problema es que no se como enviar el label por parámetro.
Espero que alguien pueda ayudarme con esto
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:acceder a propiedades de controles en VB

Publicado por Gustavo A. Rivarola (24 intervenciones) el 02/11/2009 21:59:58
espero te sirva.
saludos

Private Sub Algo(ByVal label As Label)
MsgBox(label.Text)
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

RE:acceder a propiedades de controles en VB

Publicado por AgathaMac (2 intervenciones) el 03/11/2009 15:15:07
En realidad no me sirve. Lo que necesito es algo como:

Private Sub Algo(ByVal p As Panel)
p.BackColor=Color.Red
En Sub

Donde cuento con una BD que almacena el nombre del panel, y ahí está el problema, no se cómo enviar por parámetro el panel que tiene el nombre que se encuentra en mi BD. Intenté usar la propiedad AccessibleName, pero al parecer no sirve (o bien, no supe cómo usarla)
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
sin imagen de perfil

RE:acceder a propiedades de controles en VB

Publicado por gon (31 intervenciones) el 03/11/2009 21:06:10
hola hace fijate si esto te sirve, te recorre el form y en funcion a tu cadena que sacas de la base de datos hace lo que quieras


Sub CambiarColor(ByRef nombre As String, ByVal frm As Form)
For Each Pan frm.Controls
If Pan.name = nombre Then
Pan.backcolor = Color.Blue
End If
Next
End Sub

lo llamas asi donde "Panel1" es el texto de tu campo
CambiarColor("Panel1", Me)

cualquier cosa avisame
saludos
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