Vb.net Baş Harfı Büyük

Merhaba,

Vb.Net kullanırken yazmış olduğunuz string ifadelerde sadece baş harfı büyük (initcap) olarak yapabilmemiz için aşağıdaki fonksiyon işinizi görecektir.

Public Sub basHarfBuyuk(ByVal ctrl As Control, ByVal e As KeyPressEventArgs)
Static oncekiHarf As Char
If TypeOf ctrl Is MemoEdit Then
   If oncekiHarf = " "c Or ctrl.Text.Length = 0 Then
      e.KeyChar = e.KeyChar.ToString.ToUpper
   Else
      e.KeyChar = e.KeyChar.ToString.ToLower
   End If
   oncekiHarf = e.KeyChar
ElseIf TypeOf ctrl Is TextEdit Then
   If oncekiHarf = " "c Or ctrl.Text.Length = 0 Then
      e.KeyChar = e.KeyChar.ToString.ToUpper
   Else
      e.KeyChar = e.KeyChar.ToString.ToLower
   End If
      oncekiHarf = e.KeyChar
ElseIf TypeOf ctrl Is ComboBoxEdit Then
   If oncekiHarf = " "c Or ctrl.Text.Length = 0 Then
      e.KeyChar = e.KeyChar.ToString.ToUpper
   Else
      e.KeyChar = e.KeyChar.ToString.ToLower
   End If
   oncekiHarf = e.KeyChar
End If
End Sub

 

Kullanımı ise

Private Sub txtBirim_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtBirim.KeyPress
   basHarfBuyuk(sender, e)
End Sub