Duda con un commandbutton
Bueno.. Suponiendo que tengo un 'Text1' y un 'Command1' entonces al dar clic en el 'Command1' el texto del 'Text1' se vuelve en NEGRITAS...
Private Sub Command1_Click()
Text1.FontBold = True
End Sub
Ahora lo que quisiera saber es como hacer para que al volver a dar clic en el 'Command1' el texto del 'Text1' ya no esté en NEGRITAS... O vuelva a estar normal. Gracias.
Private Sub Command1_Click()
Text1.FontBold = True
End Sub
Ahora lo que quisiera saber es como hacer para que al volver a dar clic en el 'Command1' el texto del 'Text1' ya no esté en NEGRITAS... O vuelva a estar normal. Gracias.
1 respuesta
Respuesta de xaviz
1
Yo he probado esto y funciona bien.
Option Explicit
Dim Control as byte
private sub Command1_Click()
If Control=0 then
text1.fontbold=true
control=1
else
text1.fontbold=false
control=0
endif
end sub
Option Explicit
Dim Control as byte
private sub Command1_Click()
If Control=0 then
text1.fontbold=true
control=1
else
text1.fontbold=false
control=0
endif
end sub
Si quieres simplificar...
Private sub Command_click()
If text1.fontbold=false then text1.fontbold=true else text1.fontbold=false
End sub
Private sub Command_click()
If text1.fontbold=false then text1.fontbold=true else text1.fontbold=false
End sub
