checkbox zweites Programm zu ordnen.

  • checkbox zweites Programm zu ordnen.

    Hallo alle Zusammen!

    Ich wollte mich mal mit der Checkbox befassen und peer erklärung von Kamin das man denn Skript kürzer gestahlten kann. Nun mein Problem wie man sieht ist in der Checkbox ein mal der MSPaint und beim anderen Notepad eingetragen sind, meine genaue Frage ist die wie bekomme ich es hin das ich auch denn Notepad.exe so wie es bei Mspaint schon ist mit einbaue. Muss ich ein 2 DIM erstellen.????


    Spoiler anzeigen

    AutoIt

    1. #include <ButtonConstants.au3>
    2. #include <GUIConstantsEx.au3>
    3. #include <StaticConstants.au3>
    4. #include <WindowsConstants.au3>
    5. #Region ### START Koda GUI section ### Form=
    6. Dim $Checkbox[2]
    7. $Form1 = GUICreate("Form1", 450, 178, 251, 139)
    8. $Start = GUICtrlCreateButton("Start", 304, 120, 137, 49)
    9. $Alle = GUICtrlCreateButton(" Alle Auswählen", 152, 120, 137, 49)
    10. $kein = GUICtrlCreateButton("Keine Auswahl", 8, 120, 137, 49)
    11. $Checkbox[0] = GUICtrlCreateCheckbox("Paint", 10, 39, 121, 25)
    12. GUICtrlSetFont(-1, 12, 400, 0, "arial")
    13. $Checkbox[1] = GUICtrlCreateCheckbox("Notepad", 10, 80, 121, 25)
    14. GUICtrlSetFont(-1, 12, 400, 0, "arial")
    15. $Label1 = GUICtrlCreateLabel("Checkbox test", 123, 10, 191, 36)
    16. GUICtrlSetFont(-1, 20, 800, 0, "arial")
    17. GUICtrlSetColor(-1, 0x006AB9)
    18. GUISetState(@SW_SHOW)
    19. #EndRegion ### END Koda GUI section ###
    20. While 1
    21. $nMsg = GUIGetMsg()
    22. Switch $nMsg
    23. Case $GUI_EVENT_CLOSE
    24. Exit
    25. Case $Start
    26. For $i = 0 To 1
    27. If GUICtrlRead($Checkbox[$i]) = $GUI_CHECKED Then RunWait ('mspaint.exe')
    28. Next
    29. Case $Alle
    30. For $i = 0 To 1
    31. GUICtrlSetState($Checkbox[$i], $GUI_CHECKED)
    32. Next
    33. Case $kein
    34. For $i = 0 To 1
    35. GUICtrlSetState($Checkbox[$i], $GUI_UNCHECKED)
    36. Next
    37. EndSwitch
    38. WEnd
    Alles anzeigen



    Danke schon mal im vorraus.

    MfG

    Baron


    ------ Windows Automated Roving Robot 7
    (W.A.R.R 7) ------

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von Baron1977 ()

  • Spoiler anzeigen

    AutoIt

    1. #Region - Timestamp
    2. ; 2012-02-26 14:15:47
    3. #EndRegion
    4. #include <ButtonConstants.au3>
    5. #include <GUIConstantsEx.au3>
    6. #include <StaticConstants.au3>
    7. #include <WindowsConstants.au3>
    8. #Region ### START Koda GUI section ### Form=
    9. Dim $Checkbox[2]
    10. $Form1 = GUICreate("Form1", 450, 178, 251, 139)
    11. $Start = GUICtrlCreateButton("Start", 304, 120, 137, 49)
    12. $Alle = GUICtrlCreateButton(" Alle Auswählen", 152, 120, 137, 49)
    13. $kein = GUICtrlCreateButton("Keine Auswahl", 8, 120, 137, 49)
    14. $Checkbox[0] = GUICtrlCreateCheckbox("Paint", 10, 39, 121, 25)
    15. GUICtrlSetFont(-1, 12, 400, 0, "arial")
    16. $Checkbox[1] = GUICtrlCreateCheckbox("Notepad", 10, 80, 121, 25)
    17. GUICtrlSetFont(-1, 12, 400, 0, "arial")
    18. $Label1 = GUICtrlCreateLabel("Checkbox test", 123, 10, 191, 36)
    19. GUICtrlSetFont(-1, 20, 800, 0, "arial")
    20. GUICtrlSetColor(-1, 0x006AB9)
    21. GUISetState(@SW_SHOW)
    22. #EndRegion ### END Koda GUI section ###
    23. While 1
    24. $nMsg = GUIGetMsg()
    25. Switch $nMsg
    26. Case $GUI_EVENT_CLOSE
    27. Exit
    28. Case $Start
    29. If BitAND(GUICtrlRead($Checkbox[0]) ,$GUI_CHECKED) Then Run ('mspaint.exe')
    30. If BitAND(GUICtrlRead($Checkbox[1]) ,$GUI_CHECKED) Then Run ('Notepad.exe')
    31. Case $Alle
    32. For $i = 0 To 1
    33. GUICtrlSetState($Checkbox[$i], $GUI_CHECKED)
    34. Next
    35. Case $kein
    36. For $i = 0 To 1
    37. GUICtrlSetState($Checkbox[$i], $GUI_UNCHECKED)
    38. Next
    39. EndSwitch
    40. WEnd
    Alles anzeigen
    MfG Raupi

    Meine UDF´S:
    WM_Notify per Funktion UDF zum Anzeigen von Hilfetexten und einer Uhr in der Statusbar.Anzeige einer Uhr in der Menüzeile
    GIF,JPG und BMP Dateien aus Resource laden.
    Array aus Dll-Datei laden UDF zum schreiben und lesen von Array´s in(aus) ein(em) INI-File
    LUA Script zum erstellen eines Funktionsheaders.
    Tipp: Zum bearbeiten von DLL Dateien kann man den XN Resource Editor benutzen, ist besser als Reshacker

    Sokrates schrieb:

    "Wer weiß, dass er nichts weiß, weiß mehr als der, der nicht weiß, dass er nichts weiß."

    Werner Krauß schrieb:

    Der Witz ist das Erdgeschoss des Humors, die Satire der Erste Stock, die Ironie der Zweite, der Sarkasmus das Mansardenstübchen.
  • Hi, Du kannst aber auch den Status der Checkboxen switchen (wie ein Kippschalter), dann sparst Du dir die Button. 8)

    AutoIt

    1. #region ### START Koda GUI section ###
    2. Global $tate = 4, $aCheckbox[2]
    3. GUICreate("Status Switch", 450, 178)
    4. $close = GUICtrlCreateButton("Beenden", 304, 120, 137, 49)
    5. $tart = GUICtrlCreateButton("Start", 152, 120, 137, 49)
    6. $all = GUICtrlCreateButton("All off/on", 8, 120, 137, 49)
    7. $aCheckbox[0] = GUICtrlCreateCheckbox("Paint", 10, 39, 121, 25)
    8. GUICtrlSetFont(-1, 12, 400, 0, "arial")
    9. $aCheckbox[1] = GUICtrlCreateCheckbox("Notepad", 10, 80, 121, 25)
    10. GUICtrlSetFont(-1, 12, 400, 0, "arial")
    11. GUICtrlCreateLabel("Checkbox test", 123, 10, 191, 36)
    12. GUICtrlSetFont(-1, 20, 800, 0, "arial")
    13. GUICtrlSetColor(-1, 0x006AB9)
    14. GUISetState(@SW_SHOW)
    15. #endregion ### END Koda GUI section ###
    16. While 1
    17. $nMsg = GUIGetMsg()
    18. Switch $nMsg
    19. Case -3, $close
    20. ExitLoop
    21. Case $tart
    22. If BitAND(GUICtrlRead($aCheckbox[0]), 1) Then Run('mspaint.exe')
    23. If BitAND(GUICtrlRead($aCheckbox[1]), 1) Then Run('Notepad.exe')
    24. Case $all
    25. $tate = BitXOR($tate, 1, 4)
    26. For $k = 0 To 1 ;i statisch kein Ubound
    27. GUICtrlSetState($aCheckbox[$k], $tate)
    28. Next
    29. EndSwitch
    30. WEnd
    Alles anzeigen
  • Danke an

    Raupi und RR04!

    Beide Skripte sind prima da lernt man wieder was neues dazu.

    Ich werde nun auch diese Skripte umsetzen mit andere Programme damit ich es auch da beherrsche wie z.B

    Autoplay Media Studio
    Setup Factory
    INNO
    Flash Prof.
    Blender

    Tausend Dank noch mal!

    MfG

    Baron


    ------ Windows Automated Roving Robot 7
    (W.A.R.R 7) ------

Webutation