Girilen ilk harf daima büyük olsun

Celebrian · #1 24-12-2007, 11:48

Girilen ilk harf daima büyük olsun Bu kodlarla textboxa veri girerken ilk harflerin daima büyük olmasını sağlarsınız.
projenize bir modül ekleyin ve aşağıdaki kodları dahil edin.

Function bharf(mes As String) As String
Select Case mes
Case "i": bharf = "İ"
Case "ç": bharf = "Ç"
Case "ğ": bharf = "Ğ"
Case "ü": bharf = "Ü"
Case "ö": bharf = "Ö"
Case "ş": bharf = "Ş"
Case Else
If (Asc(mes) > 96) And (Asc(mes) < 123) Then
bharf = Chr(Asc(mes) - 32)
Else
bharf = mes
End If
End Select
End Function

Sub ilkharfibuyut(txt As TextBox)
If txt.Text <> "" Then
txt.Text = bharf(Mid(txt.Text, 1, 1)) & Mid(txt.Text, 2, Len(txt.Text))
End If
txt.SelStart = Len(txt.Text)
End Sub

formunuzdaki textboxların onchange olayına örneğin
sub text1_onchange()
ilkharfibuyut text1
end sub
yazın ve sonra programı çalıştırıp test edin.

Benzer Konular
Konu	Konu Açanlar	Forum	Cevaplar	Güncel Mesajlar
java ile programlama klavyeden girilen iki değer büyük küçük karşılaştırılması ve if değimi	W-S	Java	0	12-06-2008 09:32
Edit'e Girilen Metnin İlk Harfini Büyük Harf Yapma	Celebrian	Delphi	0	24-12-2007 02:14
BÜyÜk Olsun	Celebrian	Şiirler	0	23-11-2007 02:23
Sinem Üstü Düğüm Olsun, Dağ Olsun	Celebrian	Şiirler	0	23-11-2007 02:03
c# Büyük Küçük Harf Değişimi	rhythm	C, c++, c#	0	27-10-2007 02:48

Seçenekler
Yazdırılabilir şekli göster Sayfayı E-Mail olarak gönder