Combobox Problem - Variablen definieren

  • VB.NET

Es gibt 2 Antworten in diesem Thema. Der letzte Beitrag () ist von picoflop.

    Combobox Problem - Variablen definieren

    Hallo liebe Community!

    ich möchte bei einer IF Abfrage Variablen definieren um nicht immer den Server bei einem Email Sender eingeben zu müssen.
    Soweit bin ich schon gekommen:

    VB.NET-Quellcode

    1. If ComboBox1.Text = "GMX" Then
    2. Dim smtp As New SmtpClient("mail.gmx.net")
    3. ElseIf ComboBox1.Text = "Google Mail" Then
    4. Dim smtp As New SmtpClient("smtp.googlemail.com")
    5. ElseIf ComboBox1.Text = "Hotmail" Then
    6. Dim smtp As New SmtpClient("smtp.live.com")
    7. ElseIf ComboBox1.Text = "Yahoo" Then
    8. Dim smtp As New SmtpClient("smtp.mail.yahoo.de")
    9. End If


    Wie kann ich das verbessern?

    Mit freundlichen Grüßen, freakyjoker

    Meiner Meinung nach kannst du da nicht viel vereinfachen.
    Evtl kannst dus so machen:

    VB.NET-Quellcode

    1. Dim smtp As New SmtpClient
    3. If ComboBox1.Text = "GMX" Then
    4. smtp ="mail.gmx.net"
    5. ElseIf ComboBox1.Text = "Google Mail" Then
    6. smtp = "smtp.googlemail.com"
    7. ElseIf ComboBox1.Text = "Hotmail" Then
    8. smtp = "smtp.live.com"
    9. ElseIf ComboBox1.Text = "Yahoo" Then
    10. smtp = "smtp.mail.yahoo.de"
    11. End If


    MFG Andi2572

    Andi2572 schrieb:

    Meiner Meinung nach kannst du da nicht viel vereinfachen.

    Klar kann man. Man muss nur verstehen, dass eine Combobox nicht nur Strings aufnehmen kann. Sie ZEIGT Strings, aber aufnehmen tut sie ALLES ...

    VB.NET-Quellcode

    1. Public Class Form1
    4. Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
    6. With ComboBox1.Items
    7. .Add(New URLInfo("heise", "http://www.heise.de"))
    8. .Add(New URLInfo("google", "http://www.google.com"))
    9. .Add(New URLInfo("MS", "http://www.microsoft.com"))
    10. End With
    12. End Sub
    14. Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
    15. If ComboBox1.SelectedItem Is Nothing Then
    16. MessageBox.Show("select entry")
    17. Else
    18. Dim u = DirectCast(ComboBox1.SelectedItem, URLInfo)
    19. MessageBox.Show("Wanno go to " & u.FullURL & "?")
    20. End If
    21. End Sub
    22. End Class
    24. Public Class URLInfo
    25. Public ReadOnly ShortName As String
    26. Public ReadOnly FullURL As String
    27. Public Sub New(shortname As String, fullurl As String)
    28. Me.ShortName = shortname
    29. Me.FullURL = fullurl
    30. End Sub
    31. Public Overrides Function ToString() As String
    32. Return Me.ShortName
    33. End Function
    34. End Class

Facebook
Telefonspende