16 05 2007

TextBox İçerisine Boşluk Yazılmasını Engellemek

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 32 Then ‘ KeyAscii = 32 - Boşluk
KeyAscii = 0 ‘ KeyAscii = 0 – Tuş basımı yok
End If
End Sub