en primer lugar declaramos las variables:
Dim a As String, b As String
luego muy facil
preguntamos si el checkbox está activado:
If Check1.Value = 1 Then
si eso es verdadero vamos a convertir todo en mayusculas
b = LCase(Text1.Text)
y lo mostramos
MsgBox b
de lo contrario
Else
es decir si el checkbox no está seleccionado
a = UCase(Text1.Text)
mostramos
MsgBox a
Consluye:
End If
Ahora el codigo completo será algo como:
Dim a As String, b As String
If Check1.Value = 1 Then
b = LCase(Text1.Text)
MsgBox x
Else
a = UCase(Text1.Text)
MsgBox a
End If
Saludos
Dr.White
No hay comentarios:
Publicar un comentario