TextBox kullanarak mail adresi yazma

[bedri41]

TextBox kullanarak mail adresi girişi yapmak istiyorum. Burada büyük harf ile giriş yapılsa bile küçük harf olarak yazmasını, ö,ü,ş,ı gibi mail adreslerinde olmayan türkçe karekterlerin yerine doğrularını yazmasını sağlayabilirmiyiz.

Yardımlarınız için teşekkür ederim.

 

[bedri41]

Sorumu şu şekide değiştireyim. Aşağıdaki makroya "Ğ", "Ç", "Ö", "Ü" harflerini nasıl ilave edebiliriz ?

Private Sub TextBox13_Change()
TextBox13.Value = LCase(Replace(Replace((TextBox13.Value), "İ", "i"), "Ş", "s"))
End Sub

 

[hımmmmmmmm]

slm

İ harici harfler küçük harf olacak.. lcase ile önce küçük harf yapılırr...
atladığım varsa bu biçimde eklersin

Private Sub TextBox13_Change()

TextBox13.Value = LCase(TextBox13.Value)
TextBox13.Value = Replace((TextBox13.Value), "ş", "s")
TextBox13.Value = Replace((TextBox13.Value), "ü", "u")
TextBox13.Value = Replace((TextBox13.Value), "ö", "o")
TextBox13.Value = Replace((TextBox13.Value), "ğ", "g")
TextBox13.Value = Replace((TextBox13.Value), "ç", "c")
TextBox13.Value = Replace((TextBox13.Value), "İ", "i")
TextBox13.Value = Replace((TextBox13.Value), "ı", "i")

End sub

bu arada İ neden küçük harf olmadı... anlamış değilim...

 

[bedri41]

Çok teşekkür ederim. Tam istedğim gibi oldu. Artık kullanıcılar istesede yanış mail adresi yazamayacaklar.

Not: İ değil tabii I olacak.