N
NeStLe
Ziyaretçi
Ziyaretçi
Açıklama : Butona basıldığında kişinin adının ilk harfi ile soyadı birleştiriliyor. ComboBox’tan seçilen üniversiteye göre e-posta adresi otomatik olarak oluşturuluyor.
Public Class Form1
Dim eposta, alan As String
Dim k As Byte
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click
k = Strings.InStr(Cmb_universite.Text, " ")
alan = Strings.Mid(Cmb_universite.Text, 1, k - 1)
eposta = Strings.LCase(Strings.Left(Txt_ad.Text, 1) & "." &
Txt_soyad.Text & "@" & alan & ".edu.tr")
'Aşağıda, metin içersinden Türkçe harfler dönüştürülüyor.
'Örneğin çetin => cetin gibi.
eposta = Strings.Replace(eposta, "ş", "s", 1)
eposta = Strings.Replace(eposta, "ğ", "g", 1)
eposta = Strings.Replace(eposta, "ö", "o", 1)
eposta = Strings.Replace(eposta, "ü", "u", 1)
eposta = Strings.Replace(eposta, "ç", "c", 1)
eposta = Strings.Replace(eposta, "ı", "i", 1)
Txt_eposta.Text = eposta
End Sub
End Class
Public Class Form1
Dim eposta, alan As String
Dim k As Byte
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click
k = Strings.InStr(Cmb_universite.Text, " ")
alan = Strings.Mid(Cmb_universite.Text, 1, k - 1)
eposta = Strings.LCase(Strings.Left(Txt_ad.Text, 1) & "." &
Txt_soyad.Text & "@" & alan & ".edu.tr")
'Aşağıda, metin içersinden Türkçe harfler dönüştürülüyor.
'Örneğin çetin => cetin gibi.
eposta = Strings.Replace(eposta, "ş", "s", 1)
eposta = Strings.Replace(eposta, "ğ", "g", 1)
eposta = Strings.Replace(eposta, "ö", "o", 1)
eposta = Strings.Replace(eposta, "ü", "u", 1)
eposta = Strings.Replace(eposta, "ç", "c", 1)
eposta = Strings.Replace(eposta, "ı", "i", 1)
Txt_eposta.Text = eposta
End Sub
End Class
Hata gördüğünüz takdirde bildirirseniz sevinirim. Bu durumda kodlara tekrar bakarım..