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    143 Görüntüleme
  • 0 Oy - 0 Yüzde

Paylaşım Tarihi: 12.05.2016, 18:47:30 #1
ByClxon SEA !
Efsane Üye
Status: Çevrimdışı Yorum Sayısı:1,020 Konu Sayısı:444 Üyelik Tarihi:07.01.2016 Rep Puanı: 664

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;

linkleri görmek için giriş yapmanız. Yada üye olmanız gerekir.


Ö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






 

         

Paylaşım Tarihi: 12.05.2016, 18:49:20 #2
burakmamur Yeğen
Kayıtlı Üye
Status: Çevrimdışı Yorum Sayısı:24 Konu Sayısı:2 Üyelik 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ışı Yorum Sayısı:1,020 Konu Sayısı:444 Üyelik Tarihi:07.01.2016 Rep Puanı: 664

(12.05.2016, 18:49:20)burakmamur Nickli Kullanıcıdan Alıntı: linkleri görmek için giriş yapmanız. Yada üye olmanız gerekir. Bunları nasıl kullanıcam yardımcı olabilirmisin

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

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

linkleri görmek için giriş yapmanız. Yada üye olmanız gerekir.


Ö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






 

         

Paylaşım Tarihi: 12.05.2016, 19:16:43 #4
mesut196 Delikanlı
Onaylı Uye
Status: Çevrimdışı Yorum Sayısı:114 Konu Sayısı:37 Üyelik Tarihi:13.03.2016 Rep Puanı: 106

bununla napcaz şimdi

Kullanıcı İmzası


İmageİmageİmage

  +2 REP VERMEYİ UNUTMA
    linkleri görmek için giriş yapmanız. Yada üye olmanız gerekir.







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

Konuyu görüntüleyenler:
1 Misafir