Türkçe karakter

[gokhanbek]

merhaba

user forumda yazılan TextBox1 deki Türkçe karekterleri kaldırma yerine ingilizce karekterleri koymak istiyorum nasıl yaparım ?




Trk = Array("ı", "İ", "ğ", "Ğ", "ü", "Ü", "ş", "Ş", "ö", "Ö", "ç", "Ç")
Ing = Array("i", "I", "g", "G", "u", "U", "s", "S", "o", "O", "c", "C")

 

[Ömer]

Merhaba,

Bir örnek hazırladım.

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    TextBox1.Text = cevir(TextBox1.Text)
End Sub
 
Function cevir(gir As String) As String
 
    Dim Trk(), Ing(), i As Byte
    
    Trk = Array("ı", "İ", "ğ", "Ğ", "ü", "Ü", "ş", "Ş", "ö", "Ö", "ç", "Ç")
    Ing = Array("i", "I", "g", "G", "u", "U", "s", "S", "o", "O", "c", "C")
    
    For i = 0 To 11
        gir = Replace(gir, Trk(i), Ing(i))
    Next i
    
    cevir = gir
    
End Function

.

 

[gokhanbek]

teşekkürler eline sağlık