FORCER LES MAJUSCULES DANS UNE TEXTBOX

Commentaire de kelly le 17/12/2003 13:20:09

eh ben j'aurais appris qqch aujourd'hui !

Commentaire de Renfield le 18/12/2003 07:45:14 administrateur CS

Pas d'accord avec Gvb

Une simple manipulation d'entiers est bien préferable a l'utilisation empilée de TROIS fonctions...... coté optimisation, c'est pas top !!

La fonction ForceMaj n'est pas du meilleur gou non plus.... j'ajouterais même que sous cette forme, elle est inutile :
KeyAscii est passé par réference, ta fonction ne ourrait don être qu'une procédure !! :

Et Ca fonctionne Tout Autant !!
*************************
Public Sub ForceMaj(KeyAscii As Integer)
If KeyAscii > 96 And KeyAscii < 123 Then
     KeyAscii = KeyAscii - 32
End If
End Function

Private Sub TxtBox_KeyPress(KeyAscii As Integer)
    ForceMaj KeyAscii
End Sub
*************************

tu peux aussi faire ca pour tous tes TextBoxes d'un seul cou pp
Private sub Form_Load
   Me.KeyPreview = True
end sub

Public Sub Form_KeyPress(KeyAscii As Integer)
    If KeyAscii > 96 And KeyAscii < 123 Then     KeyAscii = KeyAscii - 32
End Sub