• Üyelik paylaşımı yasaktır! Hesabınızı başkalarına vermeyin! Hesap paylaşımları yasaklama ile sonuçlanacaktır.

Türkçe karakterleri büyük yapmak

Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...

ByClxon

Süper Üye
Katılım
7 Ocak 2016
Mesajlar
955
Beğeni Puanı
4
Yaş
22
[font='Titillium Web', sans-serif]PublicFunction BuyukHarf(TextAsString)[/FONT]
[font='Titillium Web', sans-serif]Text = Replace(Text"a""A", , , vbBinaryCompare)[/FONT]
[font='Titillium Web', sans-serif]Text = Replace(Text"b""B", , , vbBinaryCompare)[/FONT]
[font='Titillium Web', sans-serif]Text = Replace(Text"c""C", , , vbBinaryCompare)[/FONT]
[font='Titillium Web', sans-serif]Text = Replace(Text"d""D", , , vbBinaryCompare)[/FONT]
[font='Titillium Web', sans-serif]Text = Replace(Text"e""E", , , vbBinaryCompare)[/FONT]
[font='Titillium Web', sans-serif]Text = Replace(Text"f""F", , , vbBinaryCompare)[/FONT]
[font='Titillium Web', sans-serif]Text = Replace(Text"g""G", , , vbBinaryCompare)[/FONT]
[font='Titillium Web', sans-serif]Text = Replace(Text"h""H", , , vbBinaryCompare)[/FONT]
[font='Titillium Web', sans-serif]Text = Replace(Text"j""J", , , vbBinaryCompare)[/FONT]
[font='Titillium Web', sans-serif]Text = Replace(Text"k""K", , , vbBinaryCompare)[/FONT]
[font='Titillium Web', sans-serif]Text = Replace(Text"l""L", , , vbBinaryCompare)[/FONT]
[font='Titillium Web', sans-serif]Text = Replace(Text"m""M", , , vbBinaryCompare)[/FONT]
[font='Titillium Web', sans-serif]Text = Replace(Text"n""N", , , vbBinaryCompare)[/FONT]
[font='Titillium Web', sans-serif]Text = Replace(Text"o""O", , , vbBinaryCompare)[/FONT]
[font='Titillium Web', sans-serif]Text = Replace(Text"p""P", , , vbBinaryCompare)[/FONT]
[font='Titillium Web', sans-serif]Text = Replace(Text"r""R", , , vbBinaryCompare)[/FONT]
[font='Titillium Web', sans-serif]Text = Replace(Text"s""S", , , vbBinaryCompare)[/FONT]
[font='Titillium Web', sans-serif]Text = Replace(Text"t""T", , , vbBinaryCompare)[/FONT]
[font='Titillium Web', sans-serif]Text = Replace(Text"u""U", , , vbBinaryCompare)[/FONT]
[font='Titillium Web', sans-serif]Text = Replace(Text"v""V", , , vbBinaryCompare)[/FONT]
[font='Titillium Web', sans-serif]Text = Replace(Text"y""Y", , , vbBinaryCompare)[/FONT]
[font='Titillium Web', sans-serif]Text = Replace(Text"z""Z", , , vbBinaryCompare)[/FONT]
[font='Titillium Web', sans-serif]Text = Replace(Text"q""Q", , , vbBinaryCompare)[/FONT]
[font='Titillium Web', sans-serif]Text = Replace(Text"w""W", , , vbBinaryCompare)[/FONT]
[font='Titillium Web', sans-serif]Text = Replace(Text"x""X", , , vbBinaryCompare)[/FONT]
[font='Titillium Web', sans-serif]Text = Replace(Text"ğ""Ğ", , , vbBinaryCompare)[/FONT]
[font='Titillium Web', sans-serif]Text = Replace(Text"ü""Ü", , , vbBinaryCompare)[/FONT]
[font='Titillium Web', sans-serif]Text = Replace(Text"ş""Ş", , , vbBinaryCompare)[/FONT]
[font='Titillium Web', sans-serif]Text = Replace(Text"ö""Ö", , , vbBinaryCompare)[/FONT]
[font='Titillium Web', sans-serif]Text = Replace(Text"ç""Ç", , , vbBinaryCompare)[/FONT]
[font='Titillium Web', sans-serif]Text = Replace(Text"i""İ", , , vbBinaryCompare)[/FONT]
[font='Titillium Web', sans-serif]Text = Replace(Text"ı""I", , , vbBinaryCompare)[/FONT]
[font='Titillium Web', sans-serif]BuyukHarf = Text[/FONT]
[font='Titillium Web', sans-serif]EndFunction[/FONT]

[font='Titillium Web', sans-serif]PrivateSub Form_KeyPress(KeyAscii AsInteger)[/FONT]
[font='Titillium Web', sans-serif]KeyAscii = Asc(BuyukHarf(Chr(KeyAscii)))[/FONT]

[font='Titillium Web', sans-serif]EndSub[/FONT]
 
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...


Üst Alt