Cambiar color de fuentes commandbutton
Quisiera saber como cambiar los colores de las fuentes al hacer click sobre el commandbutton
1 Respuesta
Respuesta de Adriel Ortiz Mangia
1
Adriel: como hago para hacer lo mismo con varios botones en el mismo formulario???? que al clickear cualquiera de ellos cambien de color'???
H o l a:
Private Sub CommandButton1_Click() cmd = CommandButton1.BackColor If cmd = vbBlue Then CommandButton1.Caption = "hola1" CommandButton1.BackColor = &HFFFF& CommandButton1.ForeColor = vbRed ElseIf cmd = &HFFFF& Then ' CommandButton1.Caption = "hola2" CommandButton1.BackColor = vbRed CommandButton1.ForeColor = vbWhite ElseIf cmd = vbRed Then ' CommandButton1.Caption = "hola3" CommandButton1.BackColor = vbGreen CommandButton1.ForeColor = vbBlack ElseIf cmd = vbGreen Then ' CommandButton1.Caption = "hola4" CommandButton1.BackColor = &H80FF& CommandButton1.ForeColor = vbYellow ElseIf cmd = &H80FF& Then CommandButton1.BackColor = vbBlue CommandButton1.ForeColor = vbMagenta End If End Sub Private Sub UserForm_Initialize() CommandButton1.BackColor = vbBlue CommandButton1.Caption = "Hola" End Sub
Adriel disculpa que te moleste de nuevo... en la etiqueta tengo las palabras "mesa 1 4 pax", ¿cómo hago para que la palabra mesa 1 sea más grande que 4 pax en la etiqueta?
H o l a
Private Sub CommandButton1_Click() With CommandButton1 .Font.Bold = True .Font.Size = 14 ' CAMBIA EL TAMAÑO DESEADO End With End Sub
El tamaño en general y no una parte del texto
¡Gracias!
Adriel sabes como hacer lo mismo en un formulario de access???
No sofìa :)
