Visual Basic 2010 Express Eigene auszuwählende Modis

  • VB.NET

Es gibt 5 Antworten in diesem Thema. Der letzte Beitrag () ist von ClonkAndre.

    Visual Basic 2010 Express Eigene auszuwählende Modis

    hallo community,

    ich würde sehr gerne meine eigene auszuwählende Modis schreiben zum Beispiel:

    Dim new_modi as Modi = Modi.Herunterfahren

    also am Ende soll das so aussehen:

    VB.NET-Quellcode

    1. 'in der ersten form soll die 2te Form aufgerufen werden diese benötigt aber zuerst einen Modi. Beispiel:
    3. private sub button1_click(blabla)
    4. modi_form.show(modi.herunterfahren)
    5. end sub
    7. 'in der zweiten form die "modi_form" soll dieser modi dann "eingetragen" werden.
    8. 'irgendwie so:
    10. private selected_modi as modi
    12. public sub new(_modi as modi)
    13. selected_modie = _modi
    14. end sub
    16. 'dann weiter in der Load sub:
    18. private sub form_load(blabla)
    20. select case modi
    22. case modi.herunterfahren
    23. bitte fahr dich herunter...
    25. case modi.update
    26. mache ein update...
    28. End Select
    30. end sub


    So ich hoffe Ihr habt es verstanden was ich machen möchte ich habe esschon mit Public Structure Modi probiert aber da konnte ich nichts auswählen.
    ich möchte es wirklich so machen wenn ich im Code eingebe: modi. dann soll eine Liste kommen wo die verfügbaren Modis drinne stehen (die ich eingeben habe die ich auch erweitern kann)

    Danke im vorraus!
    Wenn ich dir auf irgendeiner Art und Weise helfen konnte, drück doch bitte den "Hilfreich" Button :thumbup:

    Für VB.NET Entwickler: Option Strict On nicht vergessen!

    ClonkAndre schrieb:

    ich habe esschon mit Public Structure Modi probiert aber da konnte ich nichts auswählen.
    Für so was nimmst Du am besten ein Enum.
    Und so befüllst Du eine Combobox mit den Enums:

    VB.NET-Quellcode

    1. Public Partial Class Form1
    2. Inherits Form
    4. Enum MyValues
    5. Montag
    6. Dienstag
    7. Mittwoch
    8. Donnerstag
    9. Freitag
    10. Samstag
    11. Sonntag
    12. End Enum
    14. Public Sub New()
    15. Me.InitializeComponent()
    16. Me.comboBox1.DataSource = [Enum].GetNames(GetType(MyValues))
    17. End Sub
    19. Private Sub comboBox1_SelectedIndexChanged(ByVal sender As Object, ByVal e As EventArgs)
    20. Dim val As MyValues = Nothing
    21. If Not [Enum].TryParse(Me.comboBox1.Text, val) Then
    22. Me.label1.Text = "nix"
    23. Return
    24. End If
    26. Me.label1.Text = val.ToString()
    27. End Sub
    28. End Class
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Hey @RodFromGermany

    Danke das du mir geholfen hast doch eine kleine Frage gibt es noch:
    Wenn ich auf meiner ersten Form form.show(modi.herunterfahren) eingebe dann erhalte ich folgenden Fehler:

    Der Wert vom Typ "Test.main_loading_form.Modi" kann nicht in "System.Windows.Forms.IWin32Window" konvertiert werden.

    Mein Code:

    VB.NET-Quellcode

    1. Dim _frm As main_loading_form
    2. _frm.Show(Modi.Herunterfahren)


    wäre toll wenn du mir helfen könntest

    achja hier noch der code auf der 2ten Form:

    VB.NET-Quellcode

    1. Public Sub New(_modi As Modi)
    2. InitializeComponent()
    4. End Sub
    Wenn ich dir auf irgendeiner Art und Weise helfen konnte, drück doch bitte den "Hilfreich" Button :thumbup:

    Für VB.NET Entwickler: Option Strict On nicht vergessen!

    @ClonkAndre Machst Du

    VB.NET-Quellcode

    1. Dim _frm = New main_loading_form(Modi.Herunterfahren)
    2. _frm.Show()

    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!