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


Visual Basic ve .NET Framework    Visual Basic ve .NET Framework İle İlgili Paylaşım Kategorisi

Yazar: ByClxon    0 Yorum    137 Görüntüleme
  • 0 Oy - 0 Yüzde

Paylaşım Tarihi: 12.05.2016, 18:47:51 #1
ByClxon SEA !
Efsane Üye
Status: Çevrimdışı Yorum Sayısı:1,014 Konu Sayısı:443 Üyelik Tarihi:07.01.2016 Rep Puanı: 667

PublicFunction BuyukHarf(TextAsString)
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
EndFunction

PrivateSub Form_KeyPress(KeyAscii AsInteger)
KeyAscii = Asc(BuyukHarf(Chr(KeyAscii)))

EndSub

Kullanıcı İmzası
#fenerbahçeA.A.K.
İmage
İletişim İçin Facebook;

[Ziyaretçiler Linklerimizi Göremezler ! Kayıt Ol!]


Öfkemiz sarsın her yanı, bozkurtlar yürüye yürüye
Dökülsün düşmanın kanı, yaşasın ırkçı TÜRKİYE!

Taşında gözü olanın yurduna MEZAR kazacağız
Hainin, soysuzun, döneğin alnına VATAN yaazcağız
Hainin, soysuzun alnına YAŞASIN TURAN yazacağız!



İmage






 

         











Aradığınızı Bulamadınız Mı ?

Konuyu görüntüleyenler:
1 Misafir