checkbox zweites Programm zu ordnen.

    • [ gelöst ]

      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-Quellcode

      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



      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-Quellcode

      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
      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-Quellcode

      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
      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) ------

    autoit.de Webutation