Diferenciar entre mayuscula y minuscula:
Código:
Private Sub Command1_Click()
If Text1.Text = LCase(Text1.Text) Then
MsgBox "MINUSCULA"
End If
If Text1.Text = UCase(Text1.Text) Then
MsgBox "MAYUSCULA"
End If
End Sub
salu2 !
|
|||
|
Tema destacado: Rompecabezas de Bitcoin, Medio millón USD en premios |
|
|