Du bist nicht angemeldet.

Kontrollzentrum

Spenden

Jeder Euro hilft uns, euch zu helfen.

Adsense

Downloads

Stabil: 3.3.8.1 (Q, H)
Stabil: 3.3.12.0 (Q, H)
Beta: 3.3.11.5 (Q, H)
SciTE: 4/5/2014 (Q, H)
Hilfe Deutsch: 12/23/2013 (Q)
Download: OrganizeIncludes (Q)
Stand: 02.06.2014 - 2:21 Uhr
  • »Baron1977« ist der Autor dieses Themas

Registrierungsdatum: 3. Februar 2009

  • Private Nachricht senden

1

Sonntag, 26. Februar 2012, 13:57

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 Spoiler

AutoIt-Quellcode

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

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit

        Case $Start
            For $i = 0 To 1
            If GUICtrlRead($Checkbox[$i]) = $GUI_CHECKED Then RunWait ('mspaint.exe')
            Next
        Case $Alle
            For $i = 0 To 1
            GUICtrlSetState($Checkbox[$i], $GUI_CHECKED)
            Next
        Case $kein
            For $i = 0 To 1
            GUICtrlSetState($Checkbox[$i], $GUI_UNCHECKED)
            Next
    EndSwitch
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« (26. Februar 2012, 15:53)


Raupi

Drecksack aus Überzeugung

Registrierungsdatum: 30. August 2008

Wohnort: Frankfurt am Main

Beruf: Drecksack

  • Private Nachricht senden

2

Sonntag, 26. Februar 2012, 14:16

  Spoiler Spoiler

AutoIt-Quellcode

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
#Region - Timestamp
; 2012-02-26 14:15:47
#EndRegion

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
Dim $Checkbox[2]
$Form1 = GUICreate("Form1", 450, 178, 251, 139)
$Start = GUICtrlCreateButton("Start", 304, 120, 137, 49)
$Alle = GUICtrlCreateButton(" Alle Auswählen", 152, 120, 137, 49)
$kein = GUICtrlCreateButton("Keine Auswahl", 8, 120, 137, 49)
$Checkbox[0] = GUICtrlCreateCheckbox("Paint", 10, 39, 121, 25)
GUICtrlSetFont(-1, 12, 400, 0, "arial")
$Checkbox[1] = GUICtrlCreateCheckbox("Notepad", 10, 80, 121, 25)
GUICtrlSetFont(-1, 12, 400, 0, "arial")
$Label1 = GUICtrlCreateLabel("Checkbox test", 123, 10, 191, 36)
GUICtrlSetFont(-1, 20, 800, 0, "arial")
GUICtrlSetColor(-1, 0x006AB9)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit

        Case $Start
            If BitAND(GUICtrlRead($Checkbox[0]) ,$GUI_CHECKED) Then Run ('mspaint.exe')
            If BitAND(GUICtrlRead($Checkbox[1]) ,$GUI_CHECKED) Then Run ('Notepad.exe')
        Case $Alle
            For $i = 0 To 1
            GUICtrlSetState($Checkbox[$i], $GUI_CHECKED)
            Next
        Case $kein
            For $i = 0 To 1
            GUICtrlSetState($Checkbox[$i], $GUI_UNCHECKED)
            Next
    EndSwitch
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

Zitat von »Sokrates«

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

Zitat von »Werner Krauß«

Der Witz ist das Erdgeschoss des Humors, die Satire der Erste Stock, die Ironie der Zweite, der Sarkasmus das Mansardenstübchen.

RR04

User

Registrierungsdatum: 25. August 2007

  • Private Nachricht senden

3

Sonntag, 26. Februar 2012, 15:29

Hi, Du kannst aber auch den Status der Checkboxen switchen (wie ein Kippschalter), dann sparst Du dir die Button. 8)

AutoIt-Quellcode

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
#region ### START Koda GUI section ###
Global $tate = 4, $aCheckbox[2]
GUICreate("Status Switch", 450, 178)
$close = GUICtrlCreateButton("Beenden", 304, 120, 137, 49)
$tart = GUICtrlCreateButton("Start", 152, 120, 137, 49)
$all = GUICtrlCreateButton("All off/on", 8, 120, 137, 49)
$aCheckbox[0] = GUICtrlCreateCheckbox("Paint", 10, 39, 121, 25)
GUICtrlSetFont(-1, 12, 400, 0, "arial")
$aCheckbox[1] = GUICtrlCreateCheckbox("Notepad", 10, 80, 121, 25)
GUICtrlSetFont(-1, 12, 400, 0, "arial")
GUICtrlCreateLabel("Checkbox test", 123, 10, 191, 36)
GUICtrlSetFont(-1, 20, 800, 0, "arial")
GUICtrlSetColor(-1, 0x006AB9)
GUISetState(@SW_SHOW)
#endregion ### END Koda GUI section ###

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case -3, $close
            ExitLoop
        Case $tart
            If BitAND(GUICtrlRead($aCheckbox[0]), 1) Then Run('mspaint.exe')
            If BitAND(GUICtrlRead($aCheckbox[1]), 1) Then Run('Notepad.exe')
        Case $all
            $tate = BitXOR($tate, 1, 4)
            For $k = 0 To 1 ;i statisch kein Ubound
                GUICtrlSetState($aCheckbox[$k], $tate)
            Next
    EndSwitch
WEnd

  • »Baron1977« ist der Autor dieses Themas

Registrierungsdatum: 3. Februar 2009

  • Private Nachricht senden

4

Sonntag, 26. Februar 2012, 15:52

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