_Gui_Plus_ Funktionen
Die _GUI_Plus_ Funktionen sind mir gänzlich unbekannt. Solltest du aber Funktionen der GDIPlus.au3 meinen, solltest du deinen Post dahin gehend anpassen,
mfg (auto-)Bert
Beiträge von autoBert
-
-
Hallo PSblnkd,
wie du an folgendem Beispiel:
Alles anzeigenCode- #include <GUIConstantsEx.au3>
- Global $idTab, $idCboNmames
- Example()
- Func Example()
- Opt("GUIOnEventMode", 1) ;0=disabled, 1=OnEvent mode enabled
- GUICreate("My GUI Tab", 250, 150); will create a dialog box that when displayed is centered
- GUISetOnEvent($GUI_EVENT_CLOSE, "MyExit")
- GUISetBkColor(0x00E0FFFF)
- GUISetFont(9, 300)
- $idTab = GUICtrlCreateTab(10, 10, 200, 100)
- GUICtrlSetOnEvent(-1, "WichTab")
- GUICtrlCreateTabItem("tab0")
- GUICtrlCreateLabel("label0", 30, 80, 50, 20)
- GUICtrlCreateButton("OK0", 20, 50, 50, 20)
- GUICtrlCreateInput("default", 80, 50, 70, 20)
- GUICtrlCreateTabItem("tab----1")
- GUICtrlCreateLabel("label1", 30, 80, 50, 20)
- $idCboNmames = GUICtrlCreateCombo("", 20, 50, 60, 120)
- GUICtrlSetData(-1, "Trids|CyberSlug|Larry|Jon|Tylo|guinness", "Jon"); default Jon
- GUICtrlCreateButton("OK1", 80, 50, 50, 20)
- GUICtrlCreateTabItem("tab2")
- GUICtrlSetOnEvent(-1, "isItSecondTab")
- GUICtrlSetState(-1, $GUI_SHOW); will be display first
- GUICtrlCreateLabel("label2", 30, 80, 50, 20)
- GUICtrlCreateButton("OK2", 140, 50, 50)
- GUICtrlCreateTabItem(""); end tabitem definition
- GUICtrlCreateLabel("Click on tab and see the title", 20, 130, 250, 20)
- GUISetState(@SW_SHOW)
- While 1
- Sleep(10000)
- WEnd
- EndFunc ;==>Example
- Func MyExit()
- Exit
- EndFunc
- Func wichTab()
- Local $iTab =GUICtrlRead($idTab)
- WinSetTitle($hGui,'', 'Tab: ' & $iTab & ' is active')
- Switch $iTab
- Case 1
- GUICtrlSetData($idCboNmames, "guinness")
- case Else
- ;do nnothing
- EndSwitch
- EndFunc
- Func isItSecondTab()
- MsgBox(64, 'TabItemEvent', 'Tab2 was clicked')
- EndFunc
,anhand von Tab2, siehst reagieren TabItems nicht auf ein zugeordnetes Event. Du musst also dem Tab ein Event zuordnen und mit Hilfe von GuiCtrlRead ermitteln welches TabItem aktiviert wurde. In obigem Beispiel wird guinness in der Combo beim wechseln auf Tab1 ausgewählt.
mfg (auto-)Bert
-
Hallo Musashi,
ich habe es früher für Downloads verwendet. Gerade durch das rekursive Herunterladen ist es sehr nützlich. Nach Umzug und daher größeren Bandbreite nehme ich aber wieder Inetget,
mfg (auto-)Bert
-
Danke, klappt
mfg (auto-)Bert
-
Hallo @all,
zuerst einmal ein schönes, gutes und vor allem gesundes Neues Jahr.
Und jetzt zu meinem Problem, wie die Überschrift schon sagt scheitere ich am Vorbelegen eines Datums:
Alles anzeigenC- #include <GUIConstantsEx.au3>
- #include <DateTimeConstants.au3>
- $hMain = GUICreate("My GUI get date", 200, 200, 800, 200)
- $date = GUICtrlCreateDate('31/12' & @YEAR, 5, 5, 140, 25, $DTS_UPDOWN)
- GUICtrlSetFont(-1, 12)
- $DTM_SETFORMAT_ = 0x1032
- $style = "dd/MM/yyyy"
- GUICtrlSendMsg($date, $DTM_SETFORMAT_, 0, $style)
- GUISetState()
- GUICtrlSetData($date, '31/12' & @YEAR)
- Do
- Until GUIGetMsg() = $GUI_EVENT_CLOSE
- MsgBox(0, "Datum", GUICtrlRead($date))
die Vorlage für obiges Script ist afaik von @Oskar. Ich bin am rätseln warum immer das aktuelle Tagesdatum angezeigt wird. Spätere Änderungen in der GUI sind aber möglich.
mfg /auto-)Bert
-
Hallo BigRox,
im Entwicklerforum gibt es eine UDF dafür: https://www.autoitscript.com/f…=comments#comment-1389908.
Du kannst dir aber auch einmal ine Hilfe das Beispiel zu _GUIScrollBars_Init (besonders die ChildGui links unten) anschauen, vielleicht kommt di dab ja noch eine andere Idee,
mfg (auto-) Bert
-
Ich suche nach einer Einstellung, dass mir in der Errormsg die Line ausgibt, in der das Script abgestürzt ist. (Line 8324 ist es nicht)
Du vergisst, dass die Include-Files mit eingebunden werden! Wenn du dein Skript durch den Au3-Stripper (/mo) laufen lässt, kannst du im gestripten File die Zeilen-Nr. mit Code einsehen.
-
Was ich immer noch nicht verstehe: Warum geht es mit dem exitloop nach dem else bei den Inputs "EAN" und "Menge", aber nicht bei Charge?
Nach EAN wird der Cursor mit CotrolClick auf das Chargen-Input gesetzt
Nach Menge wird die GUI gelöscht und neu aufgebaut, Cursor ist daher in EAN.
Wenn du nach Charge den Cursor mit ControlClick auf Menge setzt funktioniert auch das.
mfg (auto)Bert
-
Bin mir mittlerweile sicher das du Menge so wie Charge (dort macht du es) vorbereiten solltest:
Der ControlClick setzt den Eingabecursor, das leere Eingabefeld scheint erwünscht.
mfg (auto)Bert
-
Dann ändere einmal zu:
Alles anzeigenCode- While 3
- $nMsg = GUIGetMsg()
- Switch $nMsg
- Case $GUI_EVENT_CLOSE
- Exit
- Case $Input2
- MsgBox(0, 'Input2', 'Eingabe erfolgt!', 5)
- $charge = GUICtrlRead($Input2)
- ; Erste Bedingung
- Local $aResult = StringRegExp($charge, '[0-9]{6,6}[a-zA-Z]{2}', $STR_REGEXPARRAYMATCH)
- If @error Then
- MsgBox(0, 'Input2', 'Eingabe fehlerhaft!')
- ControlSetText("Eti-Scan", "", "[CLASS:Edit; INSTANCE:2]", "")
- ControlClick("Eti-Scan", "", "[CLASS:Edit; INSTANCE:2]")
- ; Zweite Bedingung
- ;If StringLen($charge)<>8 Then
- ;ControlSetText("Eti-Scan", "", "[CLASS:Edit; INSTANCE:2]", "")
- ;ControlClick("Eti-Scan", "", "[CLASS:Edit; INSTANCE:2]")
- Else
- ExitLoop
- EndIf
- EndSwitch
- WEnd
- MsgBox(0, 'Input2', 'Eingabe richtig = EXITLOOP!!!', 5)
- ; ControlClick("Eti-Scan", "", "[CLASS:Edit; INSTANCE:3]")
Außerdem noch die beiden aderen sleeps etfernen, da unnötig.
Falls die MsgBox EXITLOOP erscheint sich aber trotzdem nichts tut einfach die letzte Zeile aktivieren. ContrrolClick verwendest du ja auch um in das Input für Charge zu wechseln.
mfg (auto)Bert
-
Diie Analyse von:
Alles anzeigenCode- While 3
- $nMsg = GUIGetMsg()
- Switch $nMsg
- Case $GUI_EVENT_CLOSE
- Exit
- Case $Input2
- Sleep(500)
- $charge = GuiCtrlRead($Input2)
- ; Erste Bedingung
- Local $aResult = StringRegExp($charge, '[0-9]{6,6}[a-zA-Z]{2}', $STR_REGEXPARRAYMATCH)
- If @error Then
- ControlSetText("Eti-Scan", "", "[CLASS:Edit; INSTANCE:2]", "")
- ControlClick("Eti-Scan", "", "[CLASS:Edit; INSTANCE:2]")
- ; Zweite Bedingung
- ;If StringLen($charge)<>8 Then
- ;ControlSetText("Eti-Scan", "", "[CLASS:Edit; INSTANCE:2]", "")
- ;ControlClick("Eti-Scan", "", "[CLASS:Edit; INSTANCE:2]")
- Else
- ExitLoop
- EndIf
- EndSwitch
- WEnd
lässt nur 2 Schlüsse zu:
- Die Eingabe erfolgt nicht in $Input2 (unwarscheinlich, da es in den beiden anderen Inputs ja klappt)
- Der StringRegExp löst einen Error aus (auch unwarscheinlich, da es an 2 anderen Arbeitsplätzen klappt)
Um das Geheimnis zu lüften kannst du zu Debugzwecken MsgBoxen einbauen:
Alles anzeigenCode- While 3
- $nMsg = GUIGetMsg()
- Switch $nMsg
- Case $GUI_EVENT_CLOSE
- Exit
- Case $Input2
- MsgBox(0, 'Input2', 'Eingabe erfolgt!')
- Sleep(500)
- $charge = GuiCtrlRead($Input2)
- ; Erste Bedingung
- Local $aResult = StringRegExp($charge, '[0-9]{6,6}[a-zA-Z]{2}', $STR_REGEXPARRAYMATCH)
- If @error Then
- MsgBox(0, 'Input2', 'Eingabe fehlerhaft!')
- ControlSetText("Eti-Scan", "", "[CLASS:Edit; INSTANCE:2]", "")
- ControlClick("Eti-Scan", "", "[CLASS:Edit; INSTANCE:2]")
- ; Zweite Bedingung
- ;If StringLen($charge)<>8 Then
- ;ControlSetText("Eti-Scan", "", "[CLASS:Edit; INSTANCE:2]", "")
- ;ControlClick("Eti-Scan", "", "[CLASS:Edit; INSTANCE:2]")
- Else
- MsgBox(0, 'Input2', 'Eingabe richtig = EXITLOOP!!!')
- ExitLoop
- EndIf
- EndSwitch
- WEnd
mfg (auto)Bert
-
vielen Dank, Du hast den Kaffeesatz hervorragend aufgegossen und verstanden!
Danke, aber da auch
Hauptsache ist aber, dass es sich hier gar nicht um flexible Werte handelt.
ReDim $aTMP[$imCol][2] ist immer gleich groß. Es ist immer $aTMP[UBound($aArray_Base, 2)][2]. Oder sehe ich das falsch? Wenn nicht, ist es ein Fehler, das in die Schleife zu packen. Es muss nur einmal ausgeführt werden.
Recht hat kannst du noch zu
Alles anzeigenCode- #include <Array.au3>
- Local $aArray
- Local $aArray_Base[3][3] = [["Wert 1", "Wert 2", "Wert 3"], ["10", "20", "30"], ["40", "50", "60"]]
- ;_ArrayDisplay($aArray_Base, "2D array")
- $imCol = UBound($aArray_Base, 2) ;$UBOUND_Columns
- $imRow = UBound($aArray_Base, 1) ;$UBOUND_ROWS
- Dim $aTMP[$imCol][2]
- For $iRows = 1 To $imRow - 1 ;
- For $iCols = 0 To $imCol - 1
- $aTMP[$iCols][0] = $aArray_Base[0][$iCols]
- $aTMP[$iCols][1] = $aArray_Base[$iRows][$iCols]
- Next
- _ArrayDisplay($aTMP, $iRows)
- Next
abändern, bingt noch einnige milliSekunden.
mfg (auto)Bert
-
Da hast wohl versehentlich die ReDim Zeile in die Schleife gepackt
war volle Absicht, kann (sollte?) mit DIM ersetzt werden.
-
Ich hab den Kaffesatz mal aufgegossen:
Alles anzeigenCode- #include <Array.au3>
- Local $aArray, $aTMP[2][2]
- Local $aArray_Base[3][3] = [["Wert 1", "Wert 2", "Wert 3"], ["10", "20", "30"], ["40", "50", "60"]]
- ;_ArrayDisplay($aArray_Base, "2D array")
- $imCol = UBound($aArray_Base, 2) ;$UBOUND_Columns
- $imRow = UBound($aArray_Base, 1) ;$UBOUND_ROWS -1
- For $iRows = 1 To $imRow - 1 ;
- ReDim $aTMP[$imCol][2]
- For $iCols = 0 To $imCol - 1
- $aTMP[$iCols][0] = $aArray_Base[0][$iCols]
- $aTMP[$iCols][1] = $aArray_Base[$iRows][$iCols]
- Next
- _ArrayDisplay($aTMP, $iRows)
- Next
Das Skript liefert mit den gegebenenDaten das gewünschte Ergebnis. Ob der Aufguss auch stark genug für grössere Datenmengen ist musst du selbst austesten. Das Zwischenpeichern der UBound Dimensionen geschieht aus Performancegründen
mfg (auto)Bert
-
Hast Du zufällig Ahnung ob es außer den Umweg über den Browser ein html Print tool (Kommandozeile gibt?
ShellExecute mit $SHEX_PRINT beim Parameter verb sollte dies problemlos (ohne sichtbares Browser öffnen) tun.
-
-
Ich habe ein problem mit dem start stop knopf + wenn ich auf start gedrückt habe funktioniert das Programm aber so bald ich stop drücke oder versuche die Gui zu schließen geht das nicht
Das liegt an deiner Programmlogik. Hier ein kleines Skript:
Alles anzeigenC- ;https://autoit.de/index.php?thread/83656-button-klick-erkennen-wenn-funktion-l%C3%A4uft-so-wie-ein-hotkey/&postID=669356#post669356
- #include <GUIConstantsEx.au3>
- #include <WindowsConstants.au3>
- $gui = GUICreate("KLeines 1 X 1", 400, 120)
- $Start = GUICtrlCreateButton("&Start", 10, 10)
- $PauseResume = GUICtrlCreateButton("&Pause", 10, 40)
- $Anzeige = GUICtrlCreateLabel("Anzeige", 10, 90, 380)
- GUISetState()
- While 1
- _EventHandler()
- WEnd
- Func _EventHandler()
- $msg = GUIGetMsg()
- Switch $msg
- Case $GUI_EVENT_CLOSE
- Exit
- Case $Start
- GUICtrlSetState($Start, $GUI_DISABLE)
- For $i = 1 To 10
- For $j = 1 To 10
- $sToSend = $j & " * " & $i & " = " & $i * $j
- GUICtrlSetData($Anzeige, $sToSend)
- _MySleep(200)
- Next
- Next
- GUICtrlSetState($Start, $GUI_ENABLE)
- Case $PauseResume
- If GUICtrlRead($PauseResume) = "&Pause" Then
- GUICtrlSetData($PauseResume, "&Weiter")
- While GUICtrlRead($PauseResume) <> "&Pause"
- _MySleep(50)
- WEnd
- Else
- GUICtrlSetData($PauseResume, "&Pause")
- EndIf
- EndSwitch
- EndFunc ;==>_EventHandler
- Func _MySleep($iMSec)
- Local $iStart = TimerInit()
- Do
- _EventHandler()
- Until TimerDiff($iStart) >= $iMSec
- EndFunc ;==>_MySleep
welches demonstriert, wie eine Schleife pausiert und wieder fortgeführt werden kann. Wie du am Link in Zeile 1 siehst, bist du nicht der einzigste mit diesem Logik Problem.
mfg (auto)Bert
-
@Oscar's Starplayer benutzt diese Technik.
-
Stell doch einfach dein bisheriges Skript ein, dann ist es einfacher.
Ansonsten in der benutzten Func zum Ermitteln der Dateien (z. B.: _FileListToArrayRec) einfach den entsprechenden Schalter ($FLTAR_FileS) benutzen. Eine andere Möglichkeit, allerndings evtl langsamer, in der sicher benutzeten Schleife vor jedem Eintrag auf Datei bzw. Ordner prüfen.
mfg (auto)Bert
-
Das SSO steht für Single Sign-on und der unbekannte Benutzer bist Du!
Mir macht es nichts aus, mich noch einmal anzumelden. Und in der derzeitigen Umgebung, mit der gelegentlich künstlichen Hektik, macht das Entfernen der Anmeldedaten jetzt noch mehr Sinn!
Und es muß doch möglich sein das generierte Device über die Eingabeaufforderung zu entfernen.
mfg (auto)Bert