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    3 Yorum    179 Görüntüleme
  • Derecelendirme: 0/5 - 0 oy

Paylaşım Tarihi: 12.05.2016, 18:47:30 #1
ByClxon SEA !
Efsane Üye
Status: Çevrimdışı Yorumları:1,010 Konuları:442 Kayıt 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.
Resim http://i.hizliresim.com/nErB8V.png
İletişim İçin Facebook;

Sitemize kayıtlı değilseniz linkleri görebilmeniz İçin Kayıt Olun veya Giriş Yapın


Ö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!



Resim http://i.hizliresim.com/LQgldG.png






 

         


Paylaşım Tarihi: 12.05.2016, 18:49:20 #2
burakmamur Yeğen
Kayıtlı Üye
Status: Çevrimdışı Yorumları:22 Konuları:2 Kayıt Tarihi:22.04.2016 Rep Puanı: -6

Bunları nasıl kullanıcam yardımcı olabilirmisin

Paylaşım Tarihi: 12.05.2016, 18:50:38 #3
ByClxon SEA !
Efsane Üye
Status: Çevrimdışı Yorumları:1,010 Konuları:442 Kayıt Tarihi:07.01.2016 Rep Puanı: 667

(12.05.2016, 18:49:20)burakmamur Adlı Kullanıcıdan Alıntı: Sitemize kayıtlı değilseniz linkleri görebilmeniz İçin Kayıt Olun veya Giriş YapınBunları nasıl kullanıcam yardımcı olabilirmisin

vb nette kullanıcaksın onun kodları kardeşim.

Kullanıcı İmzası
#fenerbahçeA.A.K.
Resim http://i.hizliresim.com/nErB8V.png
İletişim İçin Facebook;

Sitemize kayıtlı değilseniz linkleri görebilmeniz İçin Kayıt Olun veya Giriş Yapın


Ö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!



Resim http://i.hizliresim.com/LQgldG.png






 

         


Paylaşım Tarihi: 12.05.2016, 19:16:43 #4
mesut196 Delikanlı
Onaylı Uye
Status: Çevrimdışı Yorumları:116 Konuları:41 Kayıt Tarihi:13.03.2016 Rep Puanı: 107

bununla napcaz şimdi

Kullanıcı İmzası


Resim http://i.hizliresim.com/oE4r49.gif Resim https://a.disquscdn.com/get?url=https%3A%2F%2Fmedia.giphy.com%2Fmedia%2Fl41m2dpENrlnjn9Di%2Fgiphy.gif&key=YY3IQr8I7izy1yAcUPnieQ Resim https://lh3.googleusercontent.com/-aRcAPGhDEg0/VpfJl28933I/AAAAAAAALC8/TDR-aAmXX7Q/w426-h304/16%2B-%2B1

  +2 REP VERMEYİ UNUTMA
    Sitemize kayıtlı değilseniz linkleri görebilmeniz İçin Kayıt Olun veya Giriş Yapın










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

Konuyu Okuyanlar:
1 Ziyaretçi