Beiträge von RR04

RR04

BugFix (in Post #4) hat mich auf die Idee gebracht einfach den Style umzustellen. Dann müsste es ohne 2D-Array und ohne Labels funktionieren. Schau Dir mal mein Beispiel an (funktioniert unter XP).

Spoiler anzeigen

[autoit]

#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

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

Opt("GUIOnEventMode", 1) ;i mehr Macros, leichtere Fenstertechnik

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

#region ### START Koda GUI section ###
GUICreate("CheckboxColor", 339, 550)
GUISetOnEvent($GUI_EVENT_CLOSE, "_ende")
GUICtrlCreateGroup("", 10, 10, 200, 500)

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

;i #### Start Checkboxarray für 25 Checkboxen ###
DllCall("uxtheme.dll", "none", "SetThemeAppProperties", "int", 0)
Global $aCkb[25] ;i ArrayVariablen (kl. a am Anfang) erstellen der Controls
;i a- Array + Checkbox-ckb
For $i = 0 To 24 ;i statisch kein Ubound - erstellen von 0 - 24 = 25 Checkboxen
$aCkb[$i] = GUICtrlCreateCheckbox(' Unchecked ' & $i + 1, 30, 30 + $i * 19, 120, 13)
GUICtrlSetOnEvent(-1, "_state")
Next
DllCall("uxtheme.dll", "none", "SetThemeAppProperties", "int", 7)
;i #### Ende Checkboxarray ###

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

GUICtrlCreateGroup("", -99, -99, 1, 1) ;i Gruppe schliessen
$ckbAll = GUICtrlCreateCheckbox(' All off/on', 30, 520, 100, 20)
GUICtrlSetOnEvent(-1, "_all")

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

GUISetState(@SW_SHOW)
#endregion ### END Koda GUI section ###

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

While Sleep(1000)
WEnd

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

Func _state()
For $i = 0 To 24
If BitAND(GUICtrlRead($aCkb[$i]), 1) Then
GUICtrlSetData($aCkb[$i], ' Checked ' & $i + 1)
GUICtrlSetColor($aCkb[$i], 0x0000FF)
Else
GUICtrlSetData($aCkb[$i], ' Unchecked ' & $i + 1)
GUICtrlSetColor($aCkb[$i], 0x000000)
EndIf
Next
EndFunc ;==>_state

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

Func _all()
If BitAND(GUICtrlRead($ckbAll), 1) Then
GUICtrlSetData($ckbAll, " All off")
For $i = 0 To 24 ;i statisch kein Ubound
GUICtrlSetState($aCkb[$i], 1)
Next
Else
GUICtrlSetData($ckbAll, " All on")
For $i = 0 To 24 ;i statisch kein Ubound
GUICtrlSetState($aCkb[$i], 4)
Next
EndIf
_state()
EndFunc ;==>_all

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

Func _ende()
Exit
EndFunc ;==>_ende
; Ende

[/autoit]

RR04

Ilse

Jetzt können auch alle Checkboxen mit einmal gewählt werden (siehe Anpassung in Post #11)

RR04

[autoit]

For $i = 0 To 24

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

#cs

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

Wenn es keine feste Größe gibt,
dann schau mal! Wo kommt die Größe her?

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

Eine Funktion oder musst Du mit Ubound arbeiten?

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

#ce

[/autoit]

RR04

Ilse, müsste auch ohne 2D-Array gehen.

Spoiler anzeigen

[autoit]

#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

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

Opt("GUIOnEventMode", 1) ;i Eine Gute Wahl -> mehr Macros, leichtere Fenstertechnik

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

#region ### START Koda GUI section ###
GUICreate("CheckboxColor", 220, 560)
GUISetOnEvent($GUI_EVENT_CLOSE, "_ende")

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

GUICtrlCreateGroup("", 10, 24, 200, 500)
;i #### Start Checkboxarray für 25 Checkboxen ###
Global $aCkbColumn2[25], $aLBColumn2[25] ;i ArrayVariablen (kl. a am Anfang) erstellen der Controls
;i a- Array + Checkbox-ckb
For $i = 0 To 24 ;i statisch kein Ubound - erstellen von 0 - 24 = 25 Checkboxen
$aCkbColumn2[$i] = GUICtrlCreateCheckbox('', 30, 40 + $i * 19, 13, 13)
GUICtrlSetOnEvent(-1, "_state")
$aLBColumn2[$i] = GUICtrlCreateLabel('Unchecked ' & $i + 1, 65, 40 + $i * 19, 120, 17)
;i erstellen von 0 - 24 = 25 Labels
Next
;i #### Ende Checkboxarray ###
GUICtrlCreateGroup("", -99, -99, 1, 1) ;i Gruppe schliessen
$ckbAll = GUICtrlCreateCheckbox(' All off/on', 30, 530, 100, 20)
GUICtrlSetOnEvent(-1, "_all")

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

GUISetState(@SW_SHOW)
#endregion ### END Koda GUI section ###

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

While Sleep(1000)
WEnd

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

Func _state()
For $i = 0 To 24
If BitAND(GUICtrlRead($aCkbColumn2[$i]), 1) Then
GUICtrlSetData($aLBColumn2[$i], 'Checked ' & $i + 1)
GUICtrlSetColor($aLBColumn2[$i], 0x0000FF)
Else
GUICtrlSetData($aLBColumn2[$i], 'Unchecked ' & $i + 1)
GUICtrlSetColor($aLBColumn2[$i], 0x000000)
EndIf
Next
EndFunc ;==>_state

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

Func _all()
If BitAND(GUICtrlRead($ckbAll), 1) Then
GUICtrlSetData($ckbAll, " All off")
For $i = 0 To 24 ;i statisch kein Ubound
GUICtrlSetState($aCkbColumn2[$i], 1)
Next
Else
GUICtrlSetData($ckbAll, " All on")
For $i = 0 To 24 ;i statisch kein Ubound
GUICtrlSetState($aCkbColumn2[$i], 4)
Next
EndIf
_state()
EndFunc ;==>_all

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

Func _ende()
Exit
EndFunc ;==>_ende
; Ende

[/autoit]

Edit: Jetzt können auch alle Checkboxen mit einmal gewählt werden.

RR04

@Eddy, dann verwende es doch als Funktion!

[autoit]

Global $aRadiobox[2]
#region ### START Koda GUI section ###
GUICreate("RadioboxStatusSwitch - Tut 3", 400, 180)
$bnClose = GUICtrlCreateButton("Cancel", 270, 120, 120, 49)
$bnStart = GUICtrlCreateButton("OK", 140, 120, 120, 49)
$ckbAll = GUICtrlCreateCheckbox('All off/on', 10, 120, 120, 49)
$aRadiobox[0] = GUICtrlCreateRadio("Paint", 10, 39, 120, 25)
GUICtrlSetFont(-1, 12, 400, 0, "arial")
$aRadiobox[1] = GUICtrlCreateRadio("Notepad", 10, 80, 120, 25)
GUICtrlSetFont(-1, 12, 400, 0, "arial")
GUICtrlCreateLabel("Radiobox", 123, 10, 191, 36)
GUICtrlSetFont(-1, 20, 800, 0, "arial")
GUICtrlSetColor(-1, 0x006AB9)
GUISetState(@SW_SHOW)
#endregion ### END Koda GUI section ###

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case -3, $bnClose
ExitLoop
Case $bnStart
If BitAND(GUICtrlRead($aRadiobox[0]), 1) Then Run('mspaint.exe')
If BitAND(GUICtrlRead($aRadiobox[1]), 1) Then Run('Notepad.exe')
Case $ckbAll
_allOnOff()
EndSwitch
WEnd

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

Func _allOnOff()
If BitAND(GUICtrlRead($ckbAll), 1) Then
GUICtrlSetData($ckbAll, "All on")
GUICtrlSetState($aRadiobox[0], 128)
GUICtrlSetState($aRadiobox[1], 128)
Else
GUICtrlSetData($ckbAll, "All off")
GUICtrlSetState($aRadiobox[0], 64)
GUICtrlSetState($aRadiobox[1], 64)
EndIf
EndFunc ;==>_allOnOff
; Ende

[/autoit]

RR04

chip, vielleicht:

[autoit]

GUISetState(@SW_DISABLE, $mainwindow)

[/autoit]

hier bin ich mir nicht sicher ControlSend akzeptiert?

RR04

Du suchst sicher nach " $GUI_ENABLE, $GUI_DISABLE"!

[autoit]

#include <GUIConstantsEx.au3>

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

Global $tate = $GUI_ENABLE, $aRadiobox[2]
#region ### START Koda GUI section ###
GUICreate("Radiobox Status Switch", 400, 180)
$close = GUICtrlCreateButton("Cancel", 270, 120, 120, 49)
$tart = GUICtrlCreateButton("OK", 140, 120, 120, 49)
$ckb = GUICtrlCreateCheckbox('All off/on', 10, 120, 120, 49)
$aRadiobox[0] = GUICtrlCreateRadio("Paint", 10, 39, 120, 25)
GUICtrlSetFont(-1, 12, 400, 0, "arial")
$aRadiobox[1] = GUICtrlCreateRadio("Notepad", 10, 80, 120, 25)
GUICtrlSetFont(-1, 12, 400, 0, "arial")
GUICtrlCreateLabel("Radiobox", 123, 10, 191, 36)
GUICtrlSetFont(-1, 20, 800, 0, "arial")
GUICtrlSetColor(-1, 0x006AB9)
GUISetState(@SW_SHOW)
#endregion ### END Koda GUI section ###

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

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

[/autoit]

RR04

Hi, auch im OnEventMode muss das Ganze nicht umfangreicher sein.

[autoit]

#include <ButtonConstants.au3>
Opt("GUIOnEventMode", 1)

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

$sMsg = '\nDas ist ein\nmehrzeiliger Text\nin einem\nfarbigen Button'
#region ### START Koda GUI section ###
GUICreate('Colored_Button-Tut', 300, 200)
GUISetOnEvent(-3, "_SpecialEvents")
$Button = GUICtrlCreateButton(StringFormat($sMsg), 10, 10, 100, 100, $BS_MULTILINE)
GUICtrlSetBkColor(-1, 0xFFAAAA) ;i Farbiger Hintergrund
GUICtrlSetOnEvent(-1, "_SpecialEvents")

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

GUISetState(@SW_SHOW)
#endregion ### END Koda GUI section ###

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

While Sleep(1000)
WEnd

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

Func _SpecialEvents()
Switch @GUI_CtrlId
Case -3
Exit
Case 3
MsgBox(64, 'tata ...', StringFormat('Viel Spaß wünscht\nRitzelrocker04 !'), 3)
Exit
EndSwitch
EndFunc ;==>_SpecialEvents
;Ende

[/autoit]

RR04

Hallo, hier mal eine andere Lösung.

[autoit]

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>

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

;~ $BS_MULTILINE —> ButtonConstants.au3
;~ $GUI_EVENT_CLOSE —> GUIConstantsEx.au3
$sMsg = '\nDas ist ein\nmehrzeiliger Text\nin einem\nfarbigen Button'

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

GUICreate('Colored_Button-Tut', 400, 400)
$platz = GUICtrlCreateButton(StringFormat($sMsg), 10, 10, 100, 100, $BS_MULTILINE) ;i Zeilenumbruch
GUICtrlSetBkColor($platz, 0xFFAAAA) ;i Farbiger Hintergrund
GUISetState()

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

While 1
$msg = GUIGetMsg()
Switch $msg
Case $GUI_EVENT_CLOSE
MsgBox(64, 'tata ...', StringFormat('Viel Spaß wünscht\nRitzelrocker04 !'), 3)
ExitLoop
Case $platz
MsgBox(64, 'tata ...', StringFormat('Viel Spaß wünscht\nRitzelrocker04 !'), 3)
ExitLoop
EndSwitch
WEnd
; Ende

[/autoit]

RR04

hier im OnEventMode!

Spoiler anzeigen

[autoit]

#include <GUIConstantsEx.au3>
Opt("GUIOnEventMode", 1)

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

#region ### START Koda GUI section ###
$GUIhaupt = GUICreate("irgendeintest", 308, 100, 392, 200)
GUISetOnEvent($GUI_EVENT_CLOSE, "_SpecialEvents")
GUISetOnEvent($GUI_EVENT_MINIMIZE, "_SpecialEvents")
GUISetOnEvent($GUI_EVENT_RESTORE, "_SpecialEvents")

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

$Input = GUICtrlCreateInput("Input1", 24, 40, 121, 21)
GUICtrlCreateLabel("Bitte test eingeben", 72, 8, 159, 17)
$Button = GUICtrlCreateButton("suchen", 176, 40, 75, 25)
GUICtrlSetOnEvent(-1, "_SpecialEvents")
GUISetState(@SW_SHOW, $GUIhaupt)
#endregion ### END Koda GUI section ###

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

#region ### START Koda GUI section ###
$GUItest = GUICreate("test", 401, 190, 192, 124)
GUISetOnEvent($GUI_EVENT_CLOSE, "_close")
GUICtrlCreateLabel("test", 16, 16, 53, 17)
#endregion ### END Koda GUI section ###

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

While Sleep(1000)
WEnd

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

Func _SpecialEvents()
Select
Case @GUI_CtrlId = $GUI_EVENT_CLOSE
MsgBox(0, "Schliessen gedrückt", "ID=" & @GUI_CtrlId & " WinHandle=" & @GUI_WinHandle)
Exit
Case @GUI_CtrlId = $GUI_EVENT_MINIMIZE
MsgBox(0, "Fenster minimiert", "ID=" & @GUI_CtrlId & " WinHandle=" & @GUI_WinHandle)
Case @GUI_CtrlId = $GUI_EVENT_RESTORE
MsgBox(0, "Fenster wiederhergestellt", "ID=" & @GUI_CtrlId & " WinHandle=" & @GUI_WinHandle)
Case @GUI_CtrlId = $Button
_input()
EndSelect
EndFunc ;==>_SpecialEvents

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

Func _input()
If (GUICtrlRead($Input) = "test") Then
GUISetState(@SW_SHOW, $GUItest)
Else
MsgBox(0, "Error", StringFormat('Es ist ein Fehler aufgetreten.'))
EndIf
EndFunc ;==>_input

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

Func _close()
GUISetState(@SW_HIDE, $GUItest)
EndFunc ;==>_close
;Ende

[/autoit]

RR04

[autoit]

;~ Hi, wenn Du kein Fenster "Test" hast, kann Autoit auch keines finden!
GUISetState(@SW_SHOW, $test)
;~ Besser so:
GUISetState(@SW_SHOW, $ahri)

[/autoit]

RR04

Hier ein Beispiel!

[autoit]

GUICreate("Parcreator", 270, 480)
GUICtrlCreateGroup("Auswahl", 5, 5, 240, 40)
$fsmdpar = GUICtrlCreateRadio("FSMD", 10, 20)
GUICtrlSetState(-1, 1)
$fsmdfpaapar = GUICtrlCreateRadio("FSMD + FPAA", 80, 20)
$fsmepar = GUICtrlCreateRadio("FSME", 190, 20)
GUICtrlCreateGroup("", -99, -99, 1, 1) ;close group

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

;FSMD
Dim $ahLabelsFSMD[20]
For $i = 0 To 19 ;i statisch kein Ubound
$ahLabelsFSMD[$i] = GUICtrlCreateLabel('FSMD ' & $i + 1, 10, 60 + $i * 20) ;i erstellt 20 Label
Next

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

;FPAA

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

;FSME

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

GUISetState(@SW_SHOW)

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

While 1
$Msg = GUIGetMsg()
Switch $Msg
Case -3
ExitLoop
Case $fsmdpar
_FsmdMode()
Case $fsmdfpaapar
_FpaaMode()
Case $fsmepar
_FsmeMode()
EndSwitch
WEnd

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

Func _FsmdMode()
For $i = 0 To 19
GUICtrlSetData($ahLabelsFSMD[$i], 'FSMD ' & $i + 1)
Next
EndFunc ;==>_FsmdMode

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

Func _FpaaMode()
For $i = 0 To 19
GUICtrlSetData($ahLabelsFSMD[$i], 'FPAA ' & $i + 1)
Next
EndFunc ;==>_FpaaMode

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

Func _FsmeMode()
For $i = 0 To 19
GUICtrlSetData($ahLabelsFSMD[$i], 'FSME ' & $i + 1)
Next
EndFunc ;==>_FsmeMode
; Ende

[/autoit]

RR04

@Black,
kannst Du nicht eine GUI mit der größten Anzahl an Labels erstellen und diese dann nur mit Daten füllen? Besser als immer neue Labels?

Edit: Du könntest aber auch mit Tabs arbeiten.

RR04

Hi Ilse,
schau mal hier zu "StringSplit" http://www.bug-fix.info/array_tut.htm

RR04

Hallo,

um verschiedene Sprachen einzustellen sind Radiobutton vielleicht besser ?

RR04

Hi, alles in TAB 2. Schau Dir mal die Hilfe zu "GUICtrlCreateTabItem", dort ist es etwas einfacher.

Spoiler anzeigen

[autoit]

#include <GUIConstantsEx.au3>

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

#region ### START Koda GUI section ###
Global $language = ''
$spaltenNr = 0

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

$Form1 = GUICreate("Form1", 625, 443, 192, 124)
$Tab1 = GUICtrlCreateTab(32, 72, 505, 321)
GUICtrlSetResizing(-1, $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT)
$TabSheet1 = GUICtrlCreateTabItem("TabSheet1")

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

$TabSheet2 = GUICtrlCreateTabItem("TabSheet2")

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

$language &= "en Englisch|" ; in TAB 2
$language &= "fr Französisch|" ; in TAB 2
$language &= "es Spanisch|" ; in TAB 2
$languageSplit = StringSplit($language, "|")
Dim $Checkbox[$languageSplit[0]]
Dim $CheckboxText[$languageSplit[0]]
For $i = 1 To $languageSplit[0] - 1
If $i = 11 Or $i = 21 Or $i = 31 Or $i = 41 Or $i = 51 Or $i = 61 Then $spaltenNr += 1
$Checkbox[$i] = GUICtrlCreateCheckbox($languageSplit[$i], 80 + 100 * $spaltenNr, 110 * $i - $spaltenNr * 200, 97, 17)
$CheckboxText[$i] = $languageSplit[$i]
Next

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

GUICtrlCreateTabItem("")

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

GUISetState(@SW_SHOW)
#endregion ### END Koda GUI section ###

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case -3
ExitLoop
EndSwitch
WEnd
; Ende

[/autoit]

RR04

Hi, warum nicht so ?

[autoit]

$jpgBild = "ron.txt" ;i ".txt" zum testen erst erstellen !
MsgBox(0, "Test", "Bild ohne Extension : " & StringTrimRight($jpgBild, 4))

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

$newFileName = "2012-04-12 18-23-56"
FileCopy($jpgBild, "C:\Bilder\" & $newFileName & ".txt", 8 + 1) ;i Flag = 1 + 8 (überschreiben + Zielverzeichnisstruktur erstellen)
;i Kopiert die .txt-Dateien von der Quelle in das Ziel und überschreibt Dateien im Ziel mit dem gleichen Dateinamen
; Ende

[/autoit]

RR04

autoBert,
Dein Script funktioniert nur bis zur nächsten Fehlermeldung !
Schau Dir mal "#include <GUIConstantsEx.au3>" genauer an !

RR04

Hallo, siehe hier und Dank an Huggy.
http://wiki.autoit.de/wiki/index.php/Tutorial#Ini-Dateien

RR04

In Post #4 habe ich das Script noch einmal angepasst.
"Hallo, mit dieser Lösung kannst Du hin und her schalten,
weiterhin hat der Button immer eine korrekte Beschriftung!"

Beiträge von RR04

Checkbox Textfarbe ändern

Checkbox Textfarbe ändern

Checkbox Textfarbe ändern

Checkbox Textfarbe ändern

GuiCtrlCreateRadio deaktivieren?

Programmfenster vor eingaben schützen?

GuiCtrlCreateRadio deaktivieren?

Mehrzeiliger Button mit anderer Farbe

Mehrzeiliger Button mit anderer Farbe

Brauche Hilfe bei GUICtrlRead

Brauche Hilfe bei GUICtrlRead

GUI Über Radio Buttons Verändern lassen

GUI Über Radio Buttons Verändern lassen

String Wörter zusammensetzen

Tab Problem

Tab Problem

String zusammensetzen

Inputbox speichern?

Inputbox speichern?

[gelöst] Mit Button einen Tab ansprechen