Cambiar de color un label atravez de un codig
Cerrado
cristian
-
28 may 2010 a las 19:28
SarahiC Mensajes enviados 3 Fecha de inscripción sábado, 29 de mayo de 2010 Estatus Miembro Última intervención sábado, 29 de mayo de 2010 - 29 may 2010 a las 06:02
SarahiC Mensajes enviados 3 Fecha de inscripción sábado, 29 de mayo de 2010 Estatus Miembro Última intervención sábado, 29 de mayo de 2010 - 29 may 2010 a las 06:02
Consulta también:
- Cambiar de color un label atravez de un codig
- Cambiar color de ojos online - Guide
- Codigos de pokemon rojo fuego - Guide
- Cambiar color twitter - Guide
- Código postal de chile 5 dígitos - Guide
- Cambiar color celda excel si se cumple condición - Guide
1 respuesta
SarahiC
Mensajes enviados
3
Fecha de inscripción
sábado, 29 de mayo de 2010
Estatus
Miembro
Última intervención
sábado, 29 de mayo de 2010
29 may 2010 a las 06:02
29 may 2010 a las 06:02
mira este codigo, cambia de color un text con un OptionButton. tal vez te sirve hace tiempo que no programo en VB, espero te sirva
Saludos
;)
Option Explicit
Private Sub Command1_Click()
Beep
End
End Sub
Private Sub Form_Load()
txtCaja.Top = 0
End Sub
Private Sub opAbajo_Click()
txtCaja.Top = 0
End Sub
Private Sub opAmarillo_Click()
txtCaja.BackColor = vbYellow
End Sub
Private Sub opAnaran_Click()
txtCaja.BackColor = vbOrange
End Sub
Private Sub opArriba_Click()
txtCaja.Top = Form1.ScaleHeight - txtCaja.Height
End Sub
Private Sub opAzul_Click()
txtCaja.BackColor = vbBlue
End Sub
Private Sub opBlanco_Click()
txtCaja.BackColor = vbWhite
End Sub
Private Sub opMorado_Click()
txtCaja.BackColor = vbPurple
End Sub
Private Sub opNegro_Click()
txtCaja.BackColor = vbBlack
End Sub
Private Sub opRojo_Click()
txtCaja.BackColor = vbRed
End Sub
Private Sub opVerde_Click()
txtCaja.BackColor = vbGreen
End Sub
Private Sub txtCaja_Change()
End Sub
Saludos
;)
Option Explicit
Private Sub Command1_Click()
Beep
End
End Sub
Private Sub Form_Load()
txtCaja.Top = 0
End Sub
Private Sub opAbajo_Click()
txtCaja.Top = 0
End Sub
Private Sub opAmarillo_Click()
txtCaja.BackColor = vbYellow
End Sub
Private Sub opAnaran_Click()
txtCaja.BackColor = vbOrange
End Sub
Private Sub opArriba_Click()
txtCaja.Top = Form1.ScaleHeight - txtCaja.Height
End Sub
Private Sub opAzul_Click()
txtCaja.BackColor = vbBlue
End Sub
Private Sub opBlanco_Click()
txtCaja.BackColor = vbWhite
End Sub
Private Sub opMorado_Click()
txtCaja.BackColor = vbPurple
End Sub
Private Sub opNegro_Click()
txtCaja.BackColor = vbBlack
End Sub
Private Sub opRojo_Click()
txtCaja.BackColor = vbRed
End Sub
Private Sub opVerde_Click()
txtCaja.BackColor = vbGreen
End Sub
Private Sub txtCaja_Change()
End Sub