Menünamen ändern durch klicken auf ein MenuItem

    Hallo,

    wie ist es möglich den Namen des Menüs zu ändern?

    Und zwar soll dies durch klicken klicken auf ein MenuItem passieren, und der neue Name soll den Namen des MenuItem Namens haben!

    Hat da vllt. jemand eine Lösung parat?

    Ansatz:

    Spoiler anzeigen
    [autoit]

    #include <GUIConstantsEx.au3>
    #include <WindowsConstants.au3>
    #Include <GuiMenu.au3>
    #Region ### START Koda GUI section ### Form=
    $Form1 = GUICreate("Main", 633, 454, 192, 114)
    $MenuItem1 = GUICtrlCreateMenu("Datei")
    $MenuItem2 = GUICtrlCreateMenu("-speichern unter-")
    $MenuItem4 = GUICtrlCreateMenuItem("Geschäfte", $MenuItem2)
    $MenuItem5 = GUICtrlCreateMenuItem("Häuser", $MenuItem2)
    $MenuItem6 = GUICtrlCreateMenuItem("User", $MenuItem2)
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###
    While 1
    $msg = GUIGetMsg()
    Select
    Case $msg = $GUI_EVENT_CLOSE
    ende()
    Case $msg = $MenuItem4
    _GUICtrlMenu_SetItemText($MenuItem2, 0, 'Geschäftsdaten')
    Case $msg = $MenuItem5
    _GUICtrlMenu_SetItemText($MenuItem2, 0, 'Häuserdaten')
    Case $msg = $MenuItem6
    _GUICtrlMenu_SetItemText($MenuItem2, 0, 'Userdaten')
    EndSelect
    WEnd

    [/autoit] [autoit][/autoit] [autoit]

    Func ende()
    Exit
    EndFunc

    [/autoit]

    Einmal editiert, zuletzt von Morrison (1. März 2011 um 20:43)

    Wenn ich dich richtig verstanden hab, dann war das schon ganz knapp ;)

    Spoiler anzeigen
    [autoit]

    #include <GUIConstantsEx.au3>
    #include <WindowsConstants.au3>
    #Include <GuiMenu.au3>
    #Region ### START Koda GUI section ### Form=
    $Form1 = GUICreate("Main", 633, 454, 192, 114)
    $MenuItem1 = GUICtrlCreateMenu("Datei")
    $MenuItem2 = GUICtrlCreateMenu("-speichern unter-")
    $MenuItem4 = GUICtrlCreateMenuItem("Geschäfte", $MenuItem2)
    $MenuItem5 = GUICtrlCreateMenuItem("Häuser", $MenuItem2)
    $MenuItem6 = GUICtrlCreateMenuItem("User", $MenuItem2)
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###
    While 1
    $msg = GUIGetMsg()
    Select
    Case $msg = $GUI_EVENT_CLOSE
    ende()
    Case $msg = $MenuItem4
    GUICtrlSetData($menuitem2, "Geschäftsdaten")
    Case $msg = $MenuItem5
    GUICtrlSetData($MenuItem2, 'Häuserdaten')
    Case $msg = $MenuItem6
    GUICtrlSetData($MenuItem2, 'Userdaten')
    EndSelect
    WEnd

    Func ende()
    Exit
    EndFunc

    [/autoit]


    MfG,
    Fresapore