ComboBox

  • VB.NET

Es gibt 8 Antworten in diesem Thema. Der letzte Beitrag () ist von vanitas-mundi.

    Hallo!

    Habe einmal etwas gebastelt:

    VB.NET-Quellcode

    1. Public Class Form1
    3. Private Sub Form1_Load _
    4. (ByVal sender As Object _
    5. , ByVal e As System.EventArgs) _
    6. Handles Me.Load
    8. ComboBox1.Items.Add(New ComboItem("Drucker", "Spooler"))
    9. ComboBox1.Items.Add(New ComboItem("Test1", "Test1Value"))
    10. ComboBox1.Items.Add(New ComboItem("Test2", "Test2Value"))
    11. End Sub
    13. Private Sub ComboBox1_SelectedIndexChanged _
    14. (ByVal sender As System.Object _
    15. , ByVal e As System.EventArgs) _
    16. Handles ComboBox1.SelectedIndexChanged
    18. If ComboBox1.SelectedItem Is Nothing Then Exit Sub
    19. Dim item As ComboItem = DirectCast(ComboBox1.SelectedItem, ComboItem)
    20. MsgBox(item.DisplayText & ":" & item.Value)
    21. End Sub
    22. End Class
    24. Public Class ComboItem
    25. Private _DisplayText As String
    26. Private _Value As String
    28. Public ReadOnly Property DisplayText() As String
    29. Get
    30. Return _DisplayText
    31. End Get
    32. End Property
    34. Public ReadOnly Property Value() As String
    35. Get
    36. Return _Value
    37. End Get
    38. End Property
    40. Public Sub New(ByVal displayText As String, ByVal value As String)
    41. _DisplayText = displayText
    42. _Value = value
    43. End Sub
    45. Public Overrides Function ToString() As String
    46. Return _DisplayText
    47. End Function
    48. End Class

    Thx für die schnelle Antwort,

    was ich genau machen will ist, dass ich aus einer ComboBox auswähle welche Dienste auf einen PC/Server restarte werden soll.

    Das Problem dabei ist das gewisse Dienstnamen sehr lange sind, das wenn ich z.B Drucker auswähle meinem Programm Spooler ausgegeben wird, damit der Richtige Dienst gestoppt und gestartet wird.

    Mit dem Code hab ich jetzt das Problem, das wenn ich diese Zeile eingebe.

    VB.NET-Quellcode

    1. ComboBox1.Items.Add(New ComboItem("Drucker", "Spooler"))


    ich den Fehler bekomme: Der Typ "ComboItem" ist nicht definiert.

    Funktioniert super, danke für die schnell Hilfe.

    Nur kann mir vielleicht jemand den Unterenteil des Codes etwas näher erklären? ?(

    VB.NET-Quellcode

    1. Public Class ComboItem
    2. Private _DisplayText As String
    3. Private _Value As String
    5. Public ReadOnly Property DisplayText() As String
    6. Get
    7. Return _DisplayText
    8. End Get
    9. End Property
    11. Public ReadOnly Property Value() As String
    12. Get
    13. Return _Value
    14. End Get
    15. End Property
    17. Public Sub New(ByVal displayText As String, ByVal value As String)
    18. _DisplayText = displayText
    19. _Value = value
    20. End Sub
    22. Public Overrides Function ToString() As String
    23. Return _DisplayText
    24. End Function
    25. End Class

    warum die Namen Variable mit diesem code geändert werden.

    VB.NET-Quellcode

    1. Public Sub New(ByVal displayText As String, ByVal value As String)
    2. _DisplayText = displayText
    3. _Value = value
    4. End Sub


    PS. ich muss dazu sagen das ich noch ziemlich ein Neuling bin was VB Programmierung betrifft!

    Nunja,

    viele Wege führen nach Rom ... :)

    Die von dir gezeigte Sub ist der Konstruktor und ich fande es halt
    praktisch die Werte deiner Properties bei der Objektinstanzierung zu setzen.
    Alternativ könnte man natürlich auch aus den Readonly Properties Properties
    mit Vollzugriff gestalten, die nach Instanzierung die Möglichkeit böten,
    die Werte über die Property zu setzen.

Facebook
Telefonspende