Girilen Karakterleri büyük harfe dönüştürme

Merhaba,

Bu yazımızda VB.Net de TextBox,ComboBox'a girilen karakterlerin büyük harfe dönüştürülmesini sağlamak için Modul içerisine bir fonksiyon yazıp bunu formlardan çağırarak kullanacağız. Module oluşturup module aşağıdaki gibi kodları yazacağız.

Function BuyukHarf(ByRef KeyAscii As Short) As Short
   Select Case KeyAscii
      Case Asc("i")
         BuyukHarf = Asc("İ")
      Case Asc("ı")
         BuyukHarf = Asc("I")
      Case Else
         BuyukHarf = Asc(UCase(Chr(KeyAscii)))
      End Select
End Function

 

Şimdi ise yazmış olduğumuz fonksiyonu oluşturmuş olduğumuz formdan çağıracağız. Örnek olarak forma bir Textbox ekleyeceğiz ve oluşturmuş olduğumuz Textbox'ın KeyPress olayına kodları yazmamız yeterli olacaktır

Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
   Dim KeyAscii As Short = Asc(e.KeyChar)
   KeyAscii = BuyukHarf(KeyAscii)
   e.KeyChar = Chr(KeyAscii)
End Sub