Form üzerinde veri girişi yaparken, capslook tuşu basılı değilken bile büyük harf girilmesi ile ilgili kod. (daha önce bir uygulamamda kullanmıştım, fakat uzun süredir kullanmayınca unutmuşum.)
Form üzerinde tümü büyük harf ile veri girişi yapmak isteyenler için çok kullanışlıdır.
1. Form üzerinde tuşa basıldığında kısmına aşağıdaki kodu yazacaksınız.
Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = 246 Then '(ö) ise
KeyAscii = 214 '(Ö) yap
ElseIf KeyAscii = 231 Then '(ç) ise
KeyAscii = 199 '(Ç) yap
ElseIf KeyAscii = 351 Then '(ş) ise
KeyAscii = 350 '(Ş) yap
ElseIf KeyAscii = 105 Then '(i) ise
KeyAscii = 304 '(İ) yap
ElseIf KeyAscii = 252 Then '(ü) ise
KeyAscii = 220 '(Ü) yap
ElseIf KeyAscii = 287 Then '(ğ) ise
KeyAscii = 286 '(Ğ) yap
ElseIf KeyAscii = 305 Then '(ı) ise
KeyAscii = 73 '(I) yap
ElseIf KeyAscii > 96 And KeyAscii < 123 Then
KeyAscii = Asc(UCase(Chr(KeyAscii)))
End If
End Sub
2. Tuş önizleme kısmındaki seçeneği "Evet" yapacaksınız.
