Beiträge von RR04

  • Listview-Datenbank-Beispiel

    Alina,
    Oscar hat in seinem Beispiel kein Datum drin. Das Datum muss immer gewandelt werden, also erst ins Autoit-Format, dann sortieren und ins deutsche Format zurück (siehe PN). ;)

    [autoit]


    ; Die Überschriften für das Listview und für das "Neuer Eintrag"-Fenster
    Global $sHeader = "Anzahl der Bücher|Buchtitel|Autor|Verlag|Erscheinungsdatum|???"

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

    ; [ ... ]

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

    ; 10 Px nicht ausreichend besser 50px
    ; 6. Spalte = 10 Px breit, links ausgerichtet
    _GUICtrlListView_SetColumn($hLVHandle, 5, "???", 50, 0)
    ; Ende

    [/autoit]

  • Button Farbe

    Hi,
    ich hoffe ich habe es richtig verstanden?

    Spoiler anzeigen
    [autoit]


    #AutoIt3Wrapper_AU3Check_Parameters=-d -w 1 -w 2 -w 3 -w 4 -w 5 -w 6
    #include <ButtonConstants.au3>
    #include <WindowsConstants.au3>
    ;~ +> $WS_CLIPSIBLINGS —> WindowsConstants.au3
    ;~ +> $BS_BOTTOM —> ButtonConstants.au3
    ;~ +> $BS_MULTILINE —> ButtonConstants.au3

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

    Global $msg, $tate = 1, $sMsg[2], $Color[2] = [0xFF0000, 0x00FF00]
    $sMsg[0] = '\nViel Spaß wünscht\nRitzelrocker04 !'
    $sMsg[1] = '\nDas ist ein\nmehrzeiliger Text\nin einem\nfarbigen Button'

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

    GUICreate('Colored_Image_Button-Tut', 300, 150)
    GUICtrlCreateIcon("shell32.dll", -14, 40, 40, 32, 32, 0)
    Global $btnColor = GUICtrlCreateButton(StringFormat($sMsg[1]), 10, 10, 230, 100, BitOR($WS_CLIPSIBLINGS, $BS_BOTTOM, $BS_MULTILINE))
    GUICtrlSetBkColor(-1, 0x00FF00)
    GUISetState()

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

    While True
    $msg = GUIGetMsg()
    Switch $msg
    Case -3 ;$GUI_EVENT_CLOSE
    MsgBox(64, 'Colored_Image_Button-Tut', StringFormat($sMsg[0]), 3)
    ExitLoop
    Case $btnColor
    $tate = BitXOR($tate, 0, 1)
    For $k = 0 To 1 ;i statisch kein Ubound
    GUICtrlSetData($btnColor, StringFormat($sMsg[$tate]))
    GUICtrlSetBkColor($btnColor, $Color[$tate])
    Next
    EndSwitch
    WEnd
    ; Ende

    [/autoit]

  • Problem bei Random()

    Hallo, hier mal ein Beispiel.

    Spoiler anzeigen
    [autoit]


    #AutoIt3Wrapper_AU3Check_Parameters=-w 1 -w 2 -w 3 -w 4 -w 5 -w 6
    ;~ +> $GUI_EVENT_CLOSE —> GUIConstantsEx.au3

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

    $GUI_Einstellungen = GUICreate("Einstellungen", 700, 430)
    $GUI_Einstellungen_Daten = GUICtrlCreateMenu("Daten")
    $GUI_Einstellungen_Daten_SS = GUICtrlCreateMenuItem("Schließen", $GUI_Einstellungen_Daten)

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

    $lblCkb = GUICtrlCreateLabel("Ferienmodus aktiv", 30, 20, 90, 17)
    $Checkbox = GUICtrlCreateCheckbox("", 130, 20, 13, 13)
    $lblipt = GUICtrlCreateLabel("Bonus Minuten:", 370, 20, 80, 17)
    $iptInput = GUICtrlCreateInput("15", 460, 20, 25, 17)
    GUICtrlSetBkColor(-1, 0x00ff00) ; Grün

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

    $Group1 = GUICtrlCreateGroup(" Schulzeit ", 20, 50, 330, 325)
    GUICtrlSetBkColor(-1, 0xFFCCFF) ; Rosa
    #region Label Colum
    Global $alblOV[6]
    Global $alblOver[6] = ["Start", "Ende", "Maximal", "Start", "Ende", "Maximal"]
    For $i = 0 To 5
    $alblOV[$i] = GUICtrlCreateLabel($alblOver[$i], 125 + $i * 80, 70, 60, 17)
    Next
    #endregion Label Colum
    GUICtrlCreateGroup("", -99, -99, 1, 1)

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

    $Group2 = GUICtrlCreateGroup(" Ferien ", 350, 50, 330, 325)
    GUICtrlSetBkColor(-1, 0xCCFFFF) ; Mintgrün
    #region Label Wochentag
    Global $aLabel[14]
    Global $aLbl[14] = ['Montag', 'Montag', 'Dienstag', 'Dienstag', 'Mitwoch', 'Mitwoch', 'Donnerstag', 'Donnerstag', 'Freitag', 'Freitag', 'Samstag', 'Samstag', 'Sonntag', 'Sonntag']
    For $j = 0 To 13
    $aLabel[$j] = GUICtrlCreateLabel($aLbl[$j], 50 + Mod($j, 2) * 540, 100 + Int($j / 2) * 40, 60, 20)
    Next
    #endregion Label Wochentag

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

    #region Input
    Global $aIpt[42]
    For $k = 0 To 41
    $aIpt[$k] = GUICtrlCreateInput($k + 1, 120 + Mod($k, 6) * 80, 98 + Int($k / 6) * 40, 60, 20)
    Next
    #endregion Input
    GUICtrlCreateGroup("", -99, -99, 1, 1)

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

    GUISetState(@SW_SHOW)

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

    While True
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case -3, $GUI_Einstellungen_Daten_SS ;, $GUI_EVENT_CLOSE
    ExitLoop
    EndSwitch
    WEnd
    ; Ende

    [/autoit]

  • PhotoViewer

    Der Nutzer wählt einen beliebigen Ordner mit den Bilddateien (*.jpg), die Anzahl der Bilder im Ordner sind noch unbekannt.
    Der kleine Bildbetrachter ermittelt Anzahl, Bezeichnung des Bildermaterials und erstellt eine Bilderpräsentation.
    Die Bilder können in einzelnen Schritten vorwärts, rückwärts oder als Diashow betrachtet werden. Die Bildwechselzeit ist einstellbar und eine laufende Diashow kann unterbrochen werden.

    Sprache: Deutsch
    Betriebssysteme: Windows XP bis Windows 8 64bit
    Version: PhotoViewer.1146_2013-09-28

    Danke für die Downloads bisher : 47

    Spoiler anzeigen
    [autoit]


    #RequireAdmin
    #region ;**** Directives created by AutoIt3Wrapper_GUI ****
    #AutoIt3Wrapper_Icon=mona.ico
    #AutoIt3Wrapper_Outfile=PhotoViewer.exe
    #AutoIt3Wrapper_UseUpx=n
    #AutoIt3Wrapper_Res_Description=Kleiner Bildbetrachter
    #AutoIt3Wrapper_Res_Fileversion=1.1.4.6
    #AutoIt3Wrapper_Res_LegalCopyright=© by Ritzelrocker04
    #AutoIt3Wrapper_Res_Language=1031
    #AutoIt3Wrapper_Res_Field=Compiled by|Ritzelrocker04
    #AutoIt3Wrapper_Res_Field=Original Name|AutoIt PhotoViewer
    #AutoIt3Wrapper_AU3Check_Parameters=-d -w 1 -w 2 -w 3 -w 4 -w 5 -w 6
    #endregion ;**** Directives created by AutoIt3Wrapper_GUI ****

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

    #include <ComboConstants.au3>
    #include <Date.au3>
    #include <EditConstants.au3>
    #include <File.au3>
    #include <GDIPlus.au3>
    #include <GUIConstantsEx.au3>
    #include <GuiStatusBar.au3>
    #include <Misc.au3>
    #include <StaticConstants.au3>

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

    Opt('MustDeclareVars', 1)

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

    OnAutoItExitRegister("_quit")
    _GDIPlus_Startup()

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

    FileInstall('autoit9_wall.jpg', @TempDir & "\autoit9_wall.jpg", 1)
    Global $Msg, $tartpic = @TempDir & "\autoit9_wall.jpg"
    Global $ourcePath, $path, $PicList, $how = 1, $PicSwitchTime = 1000, $tepPic = 0
    Global $hGraphics, $hImage, $hBrush_Grey, $iX, $iY, $iW, $iH
    ;$sVersion = "0.36 " wird erst nach dem kompilieren wirksam.
    Global $sTitle = "AutoIt PhotoViewer ", $sDate = "28.09.2013 ", $sVersion = FileGetVersion(@ScriptFullPath)
    Global $sMsgUpdate = '%s\n\nDer Nutzer wählt einen beliebigen Ordner' _
    & '\nmit den Bilddateien (*.jpg), die Anzahl der Bilder\nim Ordner sind noch unbekannt.\n\n' _
    & 'Der kleine Bildbetrachter ermittelt Anzahl, Bezeichnung\ndes Bildermaterials und erstellt eine Bilderpräsentation.' _
    & '\n\nDie Bilder können in einzelnen Schritten\nvorwärts, rückwärts oder als Diashow betrachtet werden.\n' _
    & 'Die Bildwechselzeit ist einstellbar und\neine laufende Diashow kann unterbrochen werden.' _
    & '\n\nVersion:\t%s\nBuild:\t%s\n\nCopyright: © 2013 by Ritzelrocker04\n\nAutor:\nRitzelrocker04 / RR04' _
    & '\nritzelrocker04.bplaced.net\n\nWeiter zur Homepage ?'

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

    Global $hGui = GUICreate($sTitle, 1000, 618)

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

    #region ### Group Präsentation ###
    Global $pic = GUICtrlCreatePic($tartpic, 10, 10, 660, 500)
    Global $lblLabel = GUICtrlCreateLabel(StringFormat('%s', $sTitle), 20, 520, 640, 22, $SS_CENTER)
    GUICtrlSetFont(-1, 11, 400, 0, "Arial")
    #endregion ### Group Präsentation ###

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

    #region ### Group Information ###
    GUICtrlCreateLabel('', 680, 10, 310, 360)
    GUICtrlSetBkColor(-1, 0xCBCBCB)
    GUICtrlSetState(-1, $GUI_DISABLE)
    Global $iptInfo[4]
    For $i = 0 To 3
    $iptInfo[$i] = GUICtrlCreateInput("", 700, 60 + $i * 80, 270, 22, $ES_READONLY)
    GUICtrlSetBkColor(-1, 0xffffff); 0x000000 ; 0xffffff ; 0xCBCBCB
    Next
    #endregion ### Group Information ###

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

    Global $iptSourcePath = GUICtrlCreateInput("", 10, 562, 660, 22, $ES_READONLY)
    GUICtrlCreateLabel("Die Zeit in Sekunden bis zum Bildwechsel.", 680, 425, 310, 17, $SS_CENTER)
    Global $cmbSwitchTime = GUICtrlCreateCombo("3", 680, 445, 310, 25, BitOR($GUI_SS_DEFAULT_COMBO, $CBS_DROPDOWNLIST))
    GUICtrlSetData(-1, "2|4|5|6", "3")
    Global $btnLeft = GUICtrlCreateButton("<", 680, 390, 150, 25)
    Global $btnRight = GUICtrlCreateButton(">", 840, 390, 150, 25)
    Global $btnShow = GUICtrlCreateButton("Show starten", 680, 480, 150, 25)
    GUICtrlSetState($btnShow, $GUI_FOCUS)
    Global $btnShowCancel = GUICtrlCreateButton("Show beenden", 840, 480, 150, 25)
    ;~ Show beenden beendet nicht das Programm !
    GUICtrlSetState($btnShowCancel, $GUI_DISABLE)
    GUICtrlCreateLabel("Den Bildpfad auswählen.", 680, 540, 310, 17, $SS_CENTER)
    Global $btnFolder = GUICtrlCreateButton("...", 680, 560, 310, 25)

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

    #region ### StatusBar ###
    Global $tatusBar = _GUICtrlStatusBar_Create($hGui)
    Global $tatusBar_PartsWidth[2] = [900, -1]
    _GUICtrlStatusBar_SetParts($tatusBar, $tatusBar_PartsWidth)
    _GUICtrlStatusBar_SetText($tatusBar, $sTitle & 'v' & $sVersion, 0)
    _GUICtrlStatusBar_SetMinHeight($tatusBar, 20)
    #endregion ### StatusBar ###

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

    GUISetState(@SW_SHOW)

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

    AdlibRegister("_clock", 1000)

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

    While True
    $Msg = GUIGetMsg()
    Switch $Msg
    Case -3
    If MsgBox(64 + 4, $sTitle _
    & ' UpdateCheck', StringFormat($sMsgUpdate, $sTitle, $sVersion, $sDate)) = 6 Then _
    ShellExecute("http://ritzelrocker04.bplaced.net/")
    FileDelete($tartpic)
    Exit

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

    Case $btnFolder
    $path = FileSelectFolder('Bitte das Bildverzeichnis auswählen :', '', 6, $ourcePath, $hGui)
    If StringRight($path, 1) <> '\' Then $path &= '\'
    $ourcePath = $path
    GUICtrlSetData($iptSourcePath, $path)

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

    $PicList = _FileListToArray($path, "*.jpg")
    If @error = 1 Or @error = 4 Then
    MsgBox(16, "Error", "Keine Dateien oder Ordner gefunden.")
    Exit
    EndIf

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

    GUICtrlSetData($iptInfo[0], StringFormat('Bilder gesamt : %i', $PicList[0]))

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

    Case $btnLeft, $btnRight, $btnShow
    _specialEvents()
    EndSwitch
    WEnd

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

    ;~ Vor Verwendung eines der drei Events den Pfad prüfen.
    Func _specialEvents()
    If $path <> '' Then
    Switch $Msg
    Case $btnLeft
    ;i $btnLeft
    $tepPic -= 1
    If $tepPic < 1 Then $tepPic = $PicList[0]
    _picStep()

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

    Case $btnRight
    ;i $btnRight
    $tepPic += 1
    If $tepPic > $PicList[0] Then $tepPic = 1
    _picStep()

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

    Case $btnShow
    ;i $btnShow
    GUICtrlSetState($btnShowCancel, $GUI_ENABLE)
    $PicSwitchTime *= GUICtrlRead($cmbSwitchTime)

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

    Do
    GUICtrlSetData($iptInfo[1], StringFormat('Aktuelles Bild : %i', $how))
    _setImageProportion($path & $PicList[$how])
    GUICtrlSetData($lblLabel, StringFormat('%s', $PicList[$how]))
    _PicSwitchTime($PicSwitchTime)
    $how += 1
    Until $how > $PicList[0]

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

    ;i Startbild anzeigen
    GUICtrlSetImage($pic, $tartpic)
    GUICtrlSetState($btnShowCancel, $GUI_DISABLE)

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

    ;i Hinweis Ende der Show
    GUICtrlSetData($lblLabel, "Fertig - Ende der Bilderschau !")
    MsgBox(64, "Fertig", "Ende der Bilderschau !")
    For $i = 0 To 3
    GUICtrlSetData($iptInfo[$i], '')
    Next
    GUICtrlSetData($iptSourcePath, '')
    GUICtrlSetData($lblLabel, StringFormat('%s', $sTitle))
    $PicSwitchTime = 1000
    $path = ''
    $how = 1
    EndSwitch
    Else
    MsgBox(64, "Eingaben", "Bitte erst den Bildpfad eingeben.")
    EndIf
    EndFunc ;==>_specialEvents

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

    Func _picStep()
    GUICtrlSetData($iptInfo[1], StringFormat('Aktuelles Bild : %i', $tepPic))
    GUICtrlSetImage($pic, $path & $PicList[$tepPic])
    GUICtrlSetData($lblLabel, StringFormat('%s', $PicList[$tepPic]))
    _setImageProportion($path & $PicList[$tepPic])
    EndFunc ;==>_picStep

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

    Func _PicSwitchTime($time)
    Local $tstart = TimerInit()
    While TimerDiff($tstart) < $time
    ;i Mit Ende-Taste oder Button "Show beenden" die Show vorzeitig beenden.
    If GUIGetMsg() = $btnShowCancel Or _IsPressed("23") Then $how = $PicList[0] + 1
    WEnd
    EndFunc ;==>_PicSwitchTime

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

    ; #_setImageProportion# =========================================================================================================
    ; Title .........: _setImageProportion
    ; AutoIt Version : v3.3.8.1 oder höher
    ; Language ......: Deutsch
    ; Description ...: Bilder in einer anderen Größe darstellen, bei gleicher Proportion
    ; Note ..........: Verwendung von GDIPLUS, einpassen der Bilder in einen vorgegebenen Rahmen.
    ; Author(s) .....: Ritzelrocker04
    ; Homepage ......: http://ritzelrocker04.bplaced.net/
    ; ===============================================================================================================================
    Func _setImageProportion($var)
    $hGraphics = _GDIPlus_GraphicsCreateFromHWND($hGui)
    Local $hBitmap = _GDIPlus_BitmapCreateFromGraphics(660, 500, $hGraphics)
    Local $hBitmapContext = _GDIPlus_ImageGetGraphicsContext($hBitmap)

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

    $hImage = _GDIPlus_ImageLoadFromFile($var)
    Local $width = _GDIPlus_ImageGetWidth($hImage)
    Local $height = _GDIPlus_ImageGetHeight($hImage)

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

    GUICtrlSetData($iptInfo[2], StringFormat('Bildformat: %ipx x %ipx', $width, $height))
    GUICtrlSetData($iptInfo[3], StringFormat('Bildverhältnis: %.3f', $width / $height))

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

    $hBrush_Grey = _GDIPlus_BrushCreateSolid(0xFFCBCBCB)
    _GDIPlus_GraphicsFillRect($hBitmapContext, 0, 0, 660, 500, $hBrush_Grey)

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

    $iH = 640 * $height / $width
    $iY = 10 + (480 - $iH) / 2
    $iX = 10
    $iW = 640
    If $iH > 480 Then
    $iW = 480 / ($height / $width)
    $iX = 10 + (640 - $iW) / 2
    $iY = 10
    $iH = 480
    EndIf

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

    ;~ Das Bild einpassen.
    ;~ _GDIPlus_GraphicsDrawImageRect($hGraphics, $hImage, $iX, $iY, $iW, $iH)
    _GDIPlus_GraphicsDrawImageRect($hBitmapContext, $hImage, $iX, $iY, $iW, $iH)
    _GDIPlus_GraphicsDrawImageRect($hGraphics, $hBitmap, 10, 10, 660, 500)
    EndFunc ;==>_setImageProportion

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

    Func _clock()
    Local $clock = _DateTimeFormat(_NowCalc(), 5)
    _GUICtrlStatusBar_SetText($tatusBar, @TAB & $clock, 1)
    EndFunc ;==>_clock

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

    Func _quit()
    _GDIPlus_GraphicsDispose($hGraphics)
    _GDIPlus_BrushDispose($hBrush_Grey)
    _GDIPlus_ImageDispose($hImage)
    _GDIPlus_Shutdown()
    EndFunc ;==>_quit
    ; Ende

    [/autoit]

  • ini Mehrfacheingabe und auslesen

    Hi, die Sektionen in meinem Beispiel werden von mir beim schreiben festgelegt (siehe Benutzerdaten und Position ), sowie ein weiteres Beispiel mit Namen, Vornamen und Uhrzeit. ;)

    [autoit]


    IniWrite($ini, "Benutzerdaten", "Name", GUICtrlRead($iptInput))

    IniWriteSection($ini, "Position", $data)

    [/autoit]
    Spoiler anzeigen
    [autoit]


    Dim $data, $ini = @ScriptDir & "\My_ini.ini"

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

    GUICreate("IniRead-IniWrite - Tut", 300, 150)
    GUICtrlCreateLabel("VName", 5, 12, 40, 17)
    GUICtrlCreateLabel("NName", 5, 40, 40, 17)
    $iptVName = GUICtrlCreateInput("Max", 50, 10, 107, 20)
    $iptNName = GUICtrlCreateInput("Muster", 50, 40, 107, 20)
    $btnSave = GUICtrlCreateButton("Speichern", 165, 10, 75, 22)
    $btnOut = GUICtrlCreateButton("Ausgabe", 165, 45, 75, 22)
    $lblOut = GUICtrlCreateLabel("", 10, 130, 230, 17)

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

    GUISetState(@SW_SHOW)

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

    While True
    $time = @HOUR & ':' & @MIN & ':' & @SEC
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case -3
    FileDelete($ini) ;i ini löschen
    ExitLoop
    Case $btnSave
    IniWrite($ini, "Zeit", "Eintrag", $time)
    $data = "VName=" & GUICtrlRead($iptVName) _
    & @CRLF & "NName=" & GUICtrlRead($iptNName)
    IniWriteSection($ini, "Nutzer", $data)
    Case $btnOut
    GUICtrlSetData($lblOut, StringFormat('%s %s um %s eingetragen !', _
    IniRead($ini, "Nutzer", "VName", "Kein Fund"), _
    IniRead($ini, "Nutzer", "NName", "Kein Fund"), _
    IniRead($ini, "Zeit", "Eintrag", "Kein Fund")))
    EndSwitch
    WEnd
    ; Ende

    [/autoit]

  • ini Mehrfacheingabe und auslesen

    Hallo und Willkommen!
    Hier einige Beispiele:

    Spoiler anzeigen
    [autoit]


    #include <GUIConstantsEx.au3>

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

    Dim $data, $ini = @ScriptDir & "\config.ini"
    Dim $name = IniRead($ini, "Benutzerdaten", "Name", "Kein Fund")

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

    GUICreate("IniRead-IniWrite - Tut", 250, 150)
    GUICtrlCreateLabel("Name", 10, 12, 28, 17)
    $iptInput = GUICtrlCreateInput("", 48, 10, 107, 20)
    GUICtrlSetData(-1, $name)
    $btnSave = GUICtrlCreateButton("Speichern", 165, 10, 75, 22)
    $lblOut = GUICtrlCreateLabel("", 52, 45, 107, 17)
    $btnOut = GUICtrlCreateButton("Ausgabe", 165, 45, 75, 22)
    $btnSec = GUICtrlCreateButton("Sektion", 165, 77, 75, 22)
    $btnClose = GUICtrlCreateButton("Beenden", 165, 118, 75, 22)

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

    GUISetState(@SW_SHOW)

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

    While True
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE, $btnClose
    FileDelete($ini) ;i ini löschen
    ExitLoop
    Case $btnSave
    IniWrite($ini, "Benutzerdaten", "Name", GUICtrlRead($iptInput))
    $data = "PosX=300" & @LF & "PosY=200" & @LF & "Size=350"
    IniWriteSection($ini, "Position", $data)
    Case $btnOut
    $name = IniRead($ini, "Benutzerdaten", "Name", "Kein Fund")
    GUICtrlSetData($lblOut, $name)
    Case $btnSec
    $nameSec = IniReadSection($ini, "Position")
    If @error Then
    MsgBox(4096, "", "Ein Fehler ist aufgetreten, wahrscheinlich keine INI-Datei.")
    Else
    For $i = 1 To $nameSec[0][0]
    MsgBox(64, "IniReadSection", "Inhalt" & @CRLF & "Sektion: Position" _
    & @CRLF & "Anzahl der Einträge: " & $i & ' / ' & $nameSec[0][0] & @CRLF _
    & "Key: " & $nameSec[$i][0] & @CRLF & "Value: " & $nameSec[$i][1])
    Next
    EndIf
    EndSwitch
    WEnd
    ; Ende

    [/autoit]

  • Welcher Button wurde gedrückt

    Vielen Dank noch mal! ;)

    [autoit]


    Opt("GUIOnEventMode", 1)
    $hGui = GUICreate("Meine GUI", 300, 200)
    GUISetOnEvent(-3, "SpecialEvents")
    $Btn1 = GUICtrlCreateButton("Button1", 110, 100, 70, 20)
    GUICtrlSetOnEvent(-1, "SpecialEvents")
    $Btn2 = GUICtrlCreateButton("Button2", 110, 140, 70, 20)
    GUICtrlSetOnEvent(-1, "SpecialEvents")

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

    GUISetState()

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

    While Sleep(1000)
    WEnd

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

    Func SpecialEvents()
    Switch @GUI_CtrlId
    Case -3
    MsgBox(0, "Close Pressed", "ID=" & @GUI_CtrlId & " WinHandle=" & @GUI_WinHandle)
    Exit
    Case 3, 4
    $Button = "$Btn1"
    If @GUI_CtrlId = 4 Then $Button = "$Btn2"
    MsgBox(0, "Window", "Folgender Button wurde gedrückt: " & $Button)
    ;~ Case 3
    ;~ MsgBox(0, "Window", "ID=" & @GUI_CtrlId & " WinHandle=" & @GUI_WinHandle)
    ;~ Case 4
    ;~ MsgBox(0, "Window", "ID=" & @GUI_CtrlId & " WinHandle=" & @GUI_WinHandle)
    EndSwitch
    EndFunc ;==>SpecialEvents
    ; Ende

    [/autoit]

  • Welcher Button wurde gedrückt

    Hi, ich möcht herausfinden, ob Button 1 oder 2 gedrückt wurde.
    Danke schon mal.

    [autoit]


    $hGui = GUICreate("Meine GUI", 300, 200)

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

    $Btn1 = GUICtrlCreateButton("Button1", 110, 100, 70, 20)
    $Btn2 = GUICtrlCreateButton("Button2", 110, 140, 70, 20)

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

    GUISetState()

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

    While True
    $Msg = GUIGetMsg()
    Switch $Msg
    Case -3
    ExitLoop
    Case $Btn1, $Btn2
    $newID = GUICtrlGetHandle($Msg)
    ConsoleWrite("Button-X : " & $newID & @CRLF)
    If $newID = 0x00110574 Then MsgBox(64, "GUICtrlGetHandle", '$Btn1')
    If $newID = 0x001503E2 Then MsgBox(64, "GUICtrlGetHandle", '$Btn2')
    MsgBox(64, "xxx", $newID)
    EndSwitch
    WEnd
    ; Ende

    [/autoit]

  • IniRead Problem

    Error, Du schreibst ja selbst, dass es ein Fehler ist.

    [autoit]


    ;~ A standard ini file looks like:
    ;~ [SectionName]
    ;~ Key=Value
    IniWrite("C:\Temp\myfile.ini", "SectionName", "key", "Value")

    [/autoit]

  • Tidy geht nicht unter Win8 64bit

    Herzlichen Dank für Euer großes Interesse an meinem Problem!

    Hier meine Erfolge:

    1. Installation nach "C:\Autoit3".
    Das war der große Durchbruch und erstmalig funktionierte überhaupt etwas.
    2. UAC deaktiviert.
    Keine unbedingte Veränderung?
    3. Installation der aktuellen Beta.
    Tidy funktioniert weiterhin,
    ABER nach einem Neustart gibt es Probleme.
    4. Den Ordner "C:\Autoit3" Rechtsklick->Eigenschaften aufrufen.
    Haken bei Schreibschutz entfernt!
    5. Erneute Installation der aktuellen Beta.
    Tidy funktioniert weiterhin,
    ABER nach einem Neustart gibt es wieder Probleme.

    Ergebnis:
    Tidy in Autoit unter Windows 8 nur ohne Beta-Versionen möglich!

    Somit bin ich auf dem gleichen Stand, wie Water (siehe Post 8).