|
~ Edito ~
12/03/2006 @ 13:39
Depuis la dernière mise à jour (qui remonte à... oulala plusieurs mois), un petit ménage de printemps s'impose. Ca tombe bien, c'est presque la période.
Au menu, et progressivement sur les jours à venir, rafraîchissement de plusieurs fonctions et procédures, nouvelles APIs et nouveaux programmes.
~ Rechercher ~
~ Annuaire VB ~
~ Partenaires ~
|
Fonction IsCharAlpha
Declare Function IsCharAlpha Lib "user32" Alias "IsCharAlphaA" ( _
ByVal cChar As Byte) As Long
Versions :
. Windows 95/98 : Oui
. Windows NT : A partir de 3.1
. Windows 2000/XP : OuiDescription :
Cette fonction indique si un caractère est de type alphabétique (a-z,A-Z).
cChar est le code ASCII du caractère à tester.
La fonction retourne 1 si le caractère est alphabétique, sinon 0.
Exemple d'utilisation :
' Exemple d'utilisation pour les fonctions API :
' IsCharAlpha, IsCharAlphaNumeric, IsCharLower IsCharUpper
Public Sub TestCaractere(stCaractere As String)
Dim btCar As Byte
Dim stResultat As String
stResultat = vbNullString
btCar = Asc(stCaractere)
If IsCharAlpha(btCar) Then
stResultat = "Caractère alphabétique"
End If
If IsCharAlphaNumeric(btCar) Then
stResultat = stResultat & "Caractère alphanumérique"
End If
If IsCharLower(btCar) Then
stResultat = stResultat & "Caractère minuscule"
End If
If IsCharUpper(btCar) Then
stResultat = stResultat & "Caractère majuscule"
End If
MsgBox stResultat
End Sub
Retour à la liste des API |
