ayuda con color

casfa
20 de Agosto del 2004
Hola a todos quisiera saber como hago: en el formulario tengo nueve botones y un texto todos los botones son numeros y al precionar algunoboton aparece el numero en el texto quisiera saber como hago que el numero 'boton' que yo seleccione se ponga en color durante un tiempo sin que los demas se pongan en color.... Gracias por la colaboracion

semperfimxl
20 de Agosto del 2004
Cambia la propiedad "Style" de cada uno de los 9 botones en tu forma a Graphical (Grafico), en lugar de Standard... Tienes que hacerlo en el diseño... No se puede cambiar esta propiedad en tiempo de ejecucion... :(
Agrega un Timer a tu forma (Timer1)

En el evento CLICK de cada boton agregas una linea ColoreaBoton boton_a_colorear...

Ej:
Private Sub Command1_Click()
ColoreaBoton Command1
' ...

Private Sub Command9_Click()
ColoreaBoton Command9

' ...

y agregas esto a tu codigo ...

Private Sub ColoreaBoton(Optional Boton As CommandButton = Nothing)
Dim oControl As Control

For Each oControl In Me.Controls
If TypeOf oControl Is CommandButton Then
oControl.BackColor = vbButtonFace
End If
Next oControl
If Boton Is Nothing Then
Me.Timer1.Enabled = False
Else
Boton.BackColor = vbYellow
Me.Timer1.Interval = 5000 ' 5 segundos aprox
Me.Timer1.Enabled = True
End If
End Sub

Private Sub Timer1_Timer()
ColoreaBoton
End Sub

'....

Espero te sirva esto ...