|
|
|
|
| |
Tüm Harfler Büyük
'Ucase de çoğu zaman yaşanan problemlerden biri de türkçe karakter sorunu. Alın Size Çözüm
Public Function BuyukHarf(text As String)
text = Replace(text, "a", "A", , , vbBinaryCompare)
text = Replace(text, "b", "B", , , vbBinaryCompare)
text = Replace(text, "c", "C", , , vbBinaryCompare)
text = Replace(text, "d", "D", , , vbBinaryCompare)
text = Replace(text, "e", "E", , , vbBinaryCompare)
text = Replace(text, "f", "F", , , vbBinaryCompare)
text = Replace(text, "g", "G", , , vbBinaryCompare)
text = Replace(text, "h", "H", , , vbBinaryCompare)
text = Replace(text, "j", "J", , , vbBinaryCompare)
text = Replace(text, "k", "K", , , vbBinaryCompare)
text = Replace(text, "l", "L", , , vbBinaryCompare)
text = Replace(text, "m", "M", , , vbBinaryCompare)
text = Replace(text, "n", "N", , , vbBinaryCompare)
text = Replace(text, "o", "O", , , vbBinaryCompare)
text = Replace(text, "p", "P", , , vbBinaryCompare)
text = Replace(text, "r", "R", , , vbBinaryCompare)
text = Replace(text, "s", "S", , , vbBinaryCompare)
text = Replace(text, "t", "T", , , vbBinaryCompare)
text = Replace(text, "u", "U", , , vbBinaryCompare)
text = Replace(text, "v", "V", , , vbBinaryCompare)
text = Replace(text, "y", "Y", , , vbBinaryCompare)
text = Replace(text, "z", "Z", , , vbBinaryCompare)
text = Replace(text, "q", "Q", , , vbBinaryCompare)
text = Replace(text, "w", "W", , , vbBinaryCompare)
text = Replace(text, "x", "X", , , vbBinaryCompare)
text = Replace(text, "ğ", "Ğ", , , vbBinaryCompare)
text = Replace(text, "ü", "Ü", , , vbBinaryCompare)
text = Replace(text, "ş", "Ş", , , vbBinaryCompare)
text = Replace(text, "ö", "Ö", , , vbBinaryCompare)
text = Replace(text, "ç", "Ç", , , vbBinaryCompare)
text = Replace(text, "i", "İ", , , vbBinaryCompare)
text = Replace(text, "ı", "I", , , vbBinaryCompare)
BuyukHarf = text
End Function
Private Sub Form_KeyPress(KeyAscii As Integer)
KeyAscii = Asc(BuyukHarf(Chr(KeyAscii)))
End Sub
|
|
|
|
|
|
| |
29 Ekim 2007'den beri 24642 ziyaretçi (38790 klik)
Copyrigh(c)2007, Ali AKMAZ All right reserved
|
|
|
|
|
|
|
|
