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

ByClxon · 12 May 2016

[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]