04-05-2014, 17:44
Merhabalar,
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.
2. Tuş önizleme kısmındaki seçeneği "Evet" yapacaksınız.
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.
Visual Basic
- 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.
