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: AIO elhacker.NET 2021 Compilación herramientas análisis y desinfección malware |
|
|