تایپ در TextBox با حروف بزرگ

[boveiryghasem]

درود.
من میخام توی TextBox که دارم حروف بصورت بزرگ تایپ بشه نه بزرگ(ینی اگر Casps Lock روشن بود که هیچ ولی اگر خاموش بود بازم حروف رو بصورت بزرگ تایپ کنه)
از کمکتون متشکرم.

[محسن واژدی]

سلام علیکم
هر دو کد زیر یکسان عمل میکنند یعنی حروف را بصورت بزرگ تایپ میکنند (بدون توجه به روشن/خاموش بودن Casps Lock)
Private Sub Text1_KeyPress(KeyAscii As Integer)
KeyAscii = Asc(UCase$(Chr(KeyAscii)))
End Sub

یا

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii >= Asc("a") And KeyAscii <= Asc("z") Then
KeyAscii = KeyAscii - 32
End If
End Sub

موفق باشید
یاعلی