Beiträge von Fintan

  • Wie GUICtrlCreateInput aufteilen in Vorgabewert und Eingabewert? für Ordner-Jumper.

    Hm, hier ist auch noch was falsch!
    Wenn der Ordner noch vorhanden ist, wird er auch geöffnet, soweit so gut.
    Wenn der Ordner nicht mehr da ist, kommt noch die 2. MsgBox, aber dann kommt wieder die Fehler-Meldung von Windows,
    das der Ordner nicht gefunden werden kann!
    Jetzt weiß ich nicht welcher shellexecute, nach der 2.MsgBox geöffnet wird! Wo liegt da der Fehler?

    [autoit]

    $m1 = "Fehlermeldung!"
    $m2 = "Der Ordner ist nicht mehr da!"
    $m2a = "Wollen Sie im alten Ordner nachsehen?"
    $m3 = "Der Ordner ist leider auch hier nicht da!"
    $Pfad2 = "L:\G...\KIen....\AUFTRAG 2011\"
    $Pfad2a = "L:\G...\KIen....\alte AUFTRÄGE 2011\"

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

    Func _go2()
    If Not FileExists($Pfad2 & '02-' & GUICtrlRead($Input2) & '-11') Then
    If MsgBox(262212, $m1, $m2 & @CRLF & @CRLF & $m2a) = 7 Then
    Else
    If Not FileExists($Pfad2a & '02-' & GUICtrlRead($Input2) & '-11') Then
    MsgBox(64, $m1, $m3, 4)
    Else
    ShellExecute('02-' & GUICtrlRead($Input2) & '-11', "", $Pfad2a, "open")
    EndIf
    EndIf
    EndIf
    ShellExecute('02-' & GUICtrlRead($Input2) & '-11', "", $Pfad2, "open")
    EndFunc

    [/autoit]

  • GUI-Hälfte farbig, Controlls funktionieren nicht!

    Hallo

    Ich wollte eine Hälfte meiner GUI einfärben, leider funktionieren die Controlls dann nich mehr!
    Also ich kann dann nicht mehr im farbigen Abschnitt die Buttons anklicken oder eine Nummer in das Inputfeld eintippen.

    So wollte ich sie gestalten:
    Der Inhalt kann nicht angezeigt werden, da er nicht mehr verfügbar ist.

    Hat das schon mal jemand gehabt oder weiß Hilfe, wie bekommt man das so hin.

    Hier der Code:

    Spoiler anzeigen
    [autoit]

    #NoTrayIcon
    #RequireAdmin
    #include <EditConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <GuiEdit.au3>
    #include <WinAPI.au3>
    #include <WindowsConstants.au3>

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

    Local $Pfad1, $Pfad2, $Pfad3, $Pfad4, $Jump1, $Jump2, $Jump3, $Jump4, $Input1, $Input2, $Input3, $Input4, $m1, $m2, $m3, $m4
    $Pfad1 = "L:\G...\KIen....\ANGEBOT 2011\"
    $Pfad2 = "L:\G...\KIen....\AUFTRAG 2011\"
    $Pfad3 = "L:\G...\KIen....\ANGEBOT 2012\"
    $Pfad4 = "L:\G...\KIen....\AUFTRAG 2012\"
    $m1 = "Fehlermeldung!"
    $m2 = "Der Ordner ist nicht mehr da!"
    $m3 = "Fehlermeldung!"
    $m4 = "Der Ordner ist nicht da!"
    Global $hSendFocus
    $hGui = GUICreate("Ordner-Jumper", 400, 120)
    GUICtrlCreateLabel('', 200, 0, 200, 120, 0x01+0x0200)
    GUICtrlSetBkColor(-1,0xD6FE9E)
    GUICtrlCreateLabel("ANGEBOTS-Nummer eingeben", 25, 10, 150, 13)
    GUICtrlSetColor(-1,0x7C7C7C)
    GUICtrlCreateLabel("AUFTRAGS-Nummer eingeben", 25, 65, 150, 13)
    GUICtrlSetColor(-1,0x7C7C7C)
    GUICtrlCreateLabel("ANGEBOTS-Nummer eingeben", 230, 10, 150, 13)
    GUICtrlSetBkColor (-1, 0xD6FE9E)
    GUICtrlCreateLabel("AUFTRAGS-Nummer eingeben", 230, 65, 150, 13)
    GUICtrlSetBkColor (-1, 0xD6FE9E)
    GUICtrlCreateLabel ("|", 200,1,2,120,0x11)

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

    $Input1 = GUICtrlCreateInput("", 63, 30, 35, 20)
    GUICtrlSetLimit(-1, 4)
    GUICtrlCreateLabel("01-", 42, 33, 20, 13)
    GUICtrlSetColor(-1,0x7C7C7C)
    GUICtrlCreateLabel("-11", 102, 33, 20, 13)
    GUICtrlSetColor(-1,0x7C7C7C)
    $Jump1 = GUICtrlCreateButton("1", 125, 29, 23, 23, 0x0040)
    GUICtrlSetTip(-1, "Direkt zum ANGEBOTS-Ordner 2011 springen.")
    GUICtrlSetImage(-1, @SystemDir & '\shell32.dll', -138, 0)

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

    $Input2 = GUICtrlCreateInput("", 63, 85, 35, 20)
    GUICtrlSetLimit(-1, 4)
    GUICtrlCreateLabel("02-", 42, 88, 20, 13)
    GUICtrlSetColor(-1,0x7C7C7C)
    GUICtrlCreateLabel("-11", 102, 88, 20, 13)
    GUICtrlSetColor(-1,0x7C7C7C)
    $Jump2 = GUICtrlCreateButton("2", 125, 84, 23, 23, 0x0040)
    GUICtrlSetTip(-1, "Direkt zum AUFTRAGS-Ordner 2011 springen.")
    GUICtrlSetImage(-1, @SystemDir & '\shell32.dll', -138, 0)

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

    $Input3 = GUICtrlCreateInput("", 268, 30, 35, 20)
    GUICtrlSetLimit(-1, 4)
    GUICtrlCreateLabel("01-", 247, 33, 20, 13)
    GUICtrlSetBkColor (-1, 0xD6FE9E)
    GUICtrlCreateLabel("-12", 307, 33, 20, 13)
    GUICtrlSetBkColor (-1, 0xD6FE9E)
    $Jump3 = GUICtrlCreateButton("3", 330, 29, 23, 23, 0x0040)
    GUICtrlSetTip(-1, "Direkt zum ANGEBOTS-Ordner 2012 springen.")
    GUICtrlSetImage(-1, @SystemDir & '\shell32.dll', -138, 0)

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

    $Input4 = GUICtrlCreateInput("", 268, 85, 35, 20)
    GUICtrlSetLimit(-1, 4)
    GUICtrlCreateLabel("02-", 247, 88, 20, 13)
    GUICtrlSetBkColor (-1, 0xD6FE9E)
    GUICtrlCreateLabel("-12", 307, 88, 20, 13)
    GUICtrlSetBkColor (-1, 0xD6FE9E)
    $Jump4 = GUICtrlCreateButton("4", 330, 84, 23, 23, 0x0040)
    GUICtrlSetTip(-1, "Direkt zum AUFTRAGS-Ordner 2012 springen.")
    GUICtrlSetImage(-1, @SystemDir & '\shell32.dll', -138, 0)

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

    Global $hReturnDummy = GUICtrlCreateDummy()
    GUICtrlSetOnEvent($hReturnDummy, "_Enter")
    Global $Accels[1][2] = [["{ENTER}", $hReturnDummy]]
    GUISetAccelerators($Accels)
    GUISetState()
    GUIRegisterMsg($WM_COMMAND, "_WM_COMMAND")
    GUICtrlSetState($Input4, $GUI_FOCUS)
    While 1
    $msg = GUIGetMsg()
    Switch $msg
    Case $GUI_EVENT_CLOSE
    ExitLoop
    Case $Jump1
    _go1()
    Case $Jump2
    _go2()
    Case $Jump3
    _go3()
    Case $Jump4
    _go4()
    Case $hReturnDummy
    _Enter()
    EndSwitch
    WEnd

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

    Func _Enter()
    Switch $hSendFocus
    Case $Input1
    _go1()
    _GUICtrlEdit_SetSel($Input1, 0, 4)
    Case $Input2
    _go2()
    _GUICtrlEdit_SetSel($Input2, 0, 4)
    Case $Input3
    _go3()
    _GUICtrlEdit_SetSel($Input3, 0, 4)
    Case $Input4
    _go4()
    _GUICtrlEdit_SetSel($Input4, 0, 4)
    EndSwitch
    EndFunc ;==>_Enter

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

    Func _go1()
    If Not FileExists($Pfad1 & '01-' & GUICtrlRead($Input1) & '-11') Then
    MsgBox(64, $m1, $m2, 2)
    Else
    ShellExecute('01-' & GUICtrlRead($Input1) & '-11', "", $Pfad1, "open")
    EndIf
    EndFunc

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

    Func _go2()
    If Not FileExists($Pfad2 & '02-' & GUICtrlRead($Input2) & '-11') Then
    MsgBox(64, $m1, $m2, 2)
    Else
    ShellExecute('02-' & GUICtrlRead($Input2) & '-11', "", $Pfad2, "open")
    EndIf
    EndFunc

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

    Func _go3()
    If Not FileExists($Pfad3 & '01-' & GUICtrlRead($Input3) & '-12') Then
    MsgBox(64, $m3, $m4, 2)
    Else
    ShellExecute('01-' & GUICtrlRead($Input3) & '-12', "", $Pfad3, "open")
    EndIf
    EndFunc

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

    Func _go4()
    If Not FileExists($Pfad4 & '02-' & GUICtrlRead($Input4) & '-12') Then
    MsgBox(64, $m3, $m4, 2)
    Else
    ShellExecute('02-' & GUICtrlRead($Input4) & '-12', "", $Pfad4, "open")
    EndIf
    EndFunc

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

    Func _WM_COMMAND($hWnd, $iMsg, $iwParam, $ilParam)
    Local $hWndFrom = $ilParam
    Local $iCode = _WinAPI_HiWord($iwParam)
    Local $hWndEdit1 = GUICtrlGetHandle($Input1)
    Local $hWndEdit2 = GUICtrlGetHandle($Input2)
    Local $hWndEdit3 = GUICtrlGetHandle($Input3)
    Local $hWndEdit4 = GUICtrlGetHandle($Input4)
    Switch $hWndFrom
    Case $hWndEdit1, $hWndEdit2, $hWndEdit3, $hWndEdit4;
    Switch $iCode
    Case $EN_SETFOCUS
    Switch $hWndFrom
    Case $hWndEdit1
    $hSendFocus = $Input1
    Case $hWndEdit2
    $hSendFocus = $Input2
    Case $hWndEdit3
    $hSendFocus = $Input3
    Case $hWndEdit4
    $hSendFocus = $Input4
    EndSwitch
    Case Else
    EndSwitch
    EndSwitch
    Return $GUI_RUNDEFMSG
    EndFunc ;==>_WM_COMMAND

    [/autoit]

  • Wie GUICtrlCreateInput aufteilen in Vorgabewert und Eingabewert? für Ordner-Jumper.

    Hi
    Jedes Mal wenn ein Ordner nicht vorhanden ist, kommt immer eine MSBox von Windows selber!
    Jetzt wollte ich aber eine selber erstellte nehmen, aber es kommt immer zuerst die Win-MSBox und danach dann meine MSBox!

    Wie kann man das verhindern, dass die Windows-MSBox kommt, sondern nur meine?

    Meine Script sieht mittlerweile so aus:

    Spoiler anzeigen
    [autoit]

    #RequireAdmin
    #NoTrayIcon
    #Region ;**** Directives created by AutoIt3Wrapper_GUI ****
    #AutoIt3Wrapper_Icon=Ordner1.ico
    #AutoIt3Wrapper_Outfile=Ordner-2012-Jumper.exe
    #AutoIt3Wrapper_UseUpx=n
    #AutoIt3Wrapper_Res_Description=Ordner-Jumper für 2012
    #EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
    #include <EditConstants.au3>
    #include <GUIConstantsEx.au3>
    #Include <GuiEdit.au3>
    #include <WinAPI.au3>
    #include <WindowsConstants.au3>

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

    Local $Pfad1, $Pfad2, $Jump1, $Jump2, $Input1, $Input2
    $Pfad1 = "L:\G...\KIen....\ANGEBOT 2011\"
    $Pfad2 = "L:\G...\KIen....\AUFTRAG 2011\"
    Global $hSendFocus
    $hGui = GUICreate("Ordner-Jumper", 210, 120)
    If Not @Compiled Then GUISetIcon('Ordner1.ico')
    GUICtrlCreateLabel("ANGEBOTS-Nummer eingeben", 30, 10, 150, 13)
    GUICtrlCreateLabel("AUFTRAGS-Nummer eingeben", 30, 65, 150, 13)

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

    $Jump1 = GUICtrlCreateButton("1", 130, 29, 23, 23, 0x0040)
    GUICtrlSetTip(-1, "Direkt zum ANGEBOTS-Ordner 2012 springen.")
    GUICtrlSetImage(-1, @SystemDir & '\shell32.dll', -138, 0)
    $Input1 = GUICtrlCreateInput("", 68, 30, 35, 20)
    GUICtrlSetLimit(-1, 4)
    GUICtrlCreateLabel("01-", 47, 33, 20, 13)
    GUICtrlCreateLabel("-12", 107, 33, 20, 13)

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

    $Jump2 = GUICtrlCreateButton("2", 130, 84, 23, 23, 0x0040)
    GUICtrlSetTip(-1, "Direkt zum AUFTRAGS-Ordner 2012 springen.")
    GUICtrlSetImage(-1, @SystemDir & '\shell32.dll', -138, 0)
    $Input2 = GUICtrlCreateInput("", 68, 85, 35, 20)
    GUICtrlSetLimit(-1, 4)
    GUICtrlCreateLabel("02-", 47, 88, 20, 13)
    GUICtrlCreateLabel("-12", 107, 88, 20, 13)
    Global $hReturnDummy = GUICtrlCreateDummy()
    GUICtrlSetOnEvent($hReturnDummy, "_Enter")
    Global $Accels[1][2] = [["{ENTER}", $hReturnDummy]]
    GUISetAccelerators($Accels)
    GUISetState()
    GUIRegisterMsg($WM_COMMAND, "_WM_COMMAND")
    GUICtrlSetState($Input2, $GUI_FOCUS)
    While 1
    $msg = GUIGetMsg()
    Switch $msg
    Case $GUI_EVENT_CLOSE
    ExitLoop
    Case $Jump1
    If ShellExecute('01-' & GUICtrlRead($Input1) & '-12', "", $Pfad1, "open") = 0 Then
    MsgBox(64, "Fehlermeldung!", "Fehler! Der Ordner ist nicht da!", 5)
    EndIf
    Case $Jump2
    If ShellExecute('02-' & GUICtrlRead($Input2) & '-12', "", $Pfad2, "open") = 0 Then
    MsgBox(64, "Fehlermeldung!", "Fehler! Der Ordner ist nicht da!", 5)
    EndIf
    Case $hReturnDummy
    _Enter()
    EndSwitch
    WEnd

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

    Func _Enter()
    Switch $hSendFocus
    Case $Input1
    If ShellExecute('01-' & GUICtrlRead($Input1) & '-12', "", $Pfad1, "open") = 0 Then
    MsgBox(64, "Fehlermeldung!", "Fehler! Der Ordner ist nicht da!", 5)
    EndIf
    _GUICtrlEdit_SetSel($Input1, 0, 4)
    Case $Input2
    If ShellExecute('02-' & GUICtrlRead($Input2) & '-12', "", $Pfad2, "open") = 0 Then
    MsgBox(64, "Fehlermeldung!", "Fehler! Der Ordner ist nicht da!", 5)
    EndIf
    _GUICtrlEdit_SetSel($Input2, 0, 4)
    EndSwitch
    EndFunc ;==>_Enter

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

    Func _WM_COMMAND($hWnd, $iMsg, $iwParam, $ilParam)
    Local $hWndFrom = $ilParam
    Local $iCode = _WinAPI_HiWord($iwParam)
    Local $hWndEdit1 = GUICtrlGetHandle($Input1)
    Local $hWndEdit2 = GUICtrlGetHandle($Input2)
    Switch $hWndFrom
    Case $hWndEdit1, $hWndEdit2;
    Switch $iCode
    Case $EN_SETFOCUS
    Switch $hWndFrom
    Case $hWndEdit1
    $hSendFocus = $Input1
    Case $hWndEdit2
    $hSendFocus = $Input2
    EndSwitch
    Case Else
    EndSwitch
    EndSwitch
    Return $GUI_RUNDEFMSG
    EndFunc ;==>_WM_COMMAND

    [/autoit]

  • Neue AutoIt STABLE!! v3.3.8.0

    Naja, man könnte hier schon den Eindruck bekommen, dass es hier die Leute nicht wissen.
    Unter den Downloads steht halt noch die alte Version drin!
    Steht auch noch dabei, dass der Stand vom 3.1.2012 ist!

    Wann wird es denn da geändert?

  • Office Key auslesen

    Deine Frage kann ich dir nicht beantworten, aber schau dir mal meine Computer-Info.au3 an, bzgl. des Key auslesens.
    Da ist irgendwas geändert gewesen, so das der Key falsch ausgelesen wurde! Das habe ich in meiner korrigiert.
    Vergleiche mal diese mit meiner Key-Auslese-Funktion, da ist ein kleiner Unterschied, weiß aber nicht mehr genau was.
    Computer-Info Thread

  • Computer-Info

    Die Mailfunktion war noch in der 1.8er Version enthalten, da konnte man dann die Infos mailen.

    Ich habe mir mit Hilfe des Forums ja noch eine Info-speicherung als Textdatei in die 1.8er eingefügt.

    Falls das jemand brauchen kann, hänge ich es hier mit an.

    Der Inhalt kann nicht angezeigt werden, da er nicht mehr verfügbar ist.

    Ps: Falls nicht erwünscht, dass ich das alte Script poste, nehme ich es gerne wieder raus!

  • Wie GUICtrlCreateInput aufteilen in Vorgabewert und Eingabewert? für Ordner-Jumper.

    Ich wollte einfach in beiden Inputs ermöglichen über Enter in den Ordner springen zu können.

    Also, ich starte den Ordner-Jumper, Fokus wollte ich auf den 2. Input haben,
    dann kann man über die Zahlentasten 4 Zahlen eingeben und
    mit Enter den Ordner aufrufen.

    Wenn ich zuerst mit der Maus auf den 1. Input gehe und die 4 Zahlen eingebe und Enter drücke,
    sollte es auch gleich in den Ordner springen können.

    Also in beiden die gleiche Funktion um mit Enter in den Ordner zu kommen.

  • Wie GUICtrlCreateInput aufteilen in Vorgabewert und Eingabewert? für Ordner-Jumper.

    Hey vielen Dank.

    Ich habe die Gui noch ein bisschen angepasst und sieht jetzt so aus:
    Der Inhalt kann nicht angezeigt werden, da er nicht mehr verfügbar ist.

    Spoiler anzeigen
    [autoit]


    #NoTrayIcon
    ;#RequireAdmin
    #include <GUIConstantsEx.au3>
    #include <ButtonConstants.au3>
    #include <WindowsConstants.au3>
    #include <GuiEdit.au3>
    Local $Pfad1, $Pfad2, $Jump1, $Jump2, $Input1, $Input2

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

    $Pfad1 = "L:\G...\KIen....\ANGEBOT 2011\"
    $Pfad2 = "L:\G...\KIen....\AUFTRAG 2011\"
    Global $hSendFocus
    GUICreate("Ordner-Jumper", 210, 120)
    If Not @Compiled Then GUISetIcon('Ordner.ico')
    GUICtrlCreateLabel("ANGEBOTS-Nummer eingeben", 30, 10, 150, 13)
    GUICtrlCreateLabel("AUFTRAGS-Nummer eingeben", 30, 65, 150, 13)

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

    $Jump1 = GUICtrlCreateButton("1", 130, 29, 23, 23, 0x0040)
    GUICtrlSetTip(-1, "Direkt zum ANGEBOTS-Ordner 2011 springen.")
    GUICtrlSetImage(-1, @SystemDir & '\shell32.dll', -138, 0)
    $Input1 = GUICtrlCreateInput("", 68, 30, 35, 20)
    GUICtrlSetLimit(-1, 4)
    GUICtrlCreateLabel("01-", 47, 33, 20, 13)
    GUICtrlCreateLabel("-11", 107, 33, 20, 13)

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

    $Jump2 = GUICtrlCreateButton("2", 130, 84, 23, 23, 0x0040)
    GUICtrlSetTip(-1, "Direkt zum AUFTRAGS-Ordner 2011 springen.")
    GUICtrlSetImage(-1, @SystemDir & '\shell32.dll', -138, 0)
    $Input2 = GUICtrlCreateInput("", 68, 85, 35, 20)
    GUICtrlSetLimit(-1, 4)
    GUICtrlCreateLabel("02-", 47, 88, 20, 13)
    GUICtrlCreateLabel("-11", 107, 88, 20, 13)
    Global $hReturnDummy = GUICtrlCreateDummy()
    GUICtrlSetOnEvent($hReturnDummy, "_Enter")
    Global $Accels[1][2] = [["{ENTER}", $hReturnDummy]]
    GUISetAccelerators($Accels)
    GUISetState()
    GUIRegisterMsg($WM_COMMAND, "_WM_COMMAND")
    While 1
    $msg = GUIGetMsg()
    Switch $msg
    Case $GUI_EVENT_CLOSE
    ExitLoop
    Case $Jump1
    ShellExecute('01-' & GUICtrlRead($Input1) & '-11', "", $Pfad1, "open")
    Case $Jump2
    ShellExecute('02-' & GUICtrlRead($Input2) & '-11', "", $Pfad2, "open")
    Case $hReturnDummy
    _Enter()
    EndSwitch
    WEnd

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

    Func _Enter()
    Switch $hSendFocus
    Case $Input1
    ShellExecute('01-' & GUICtrlRead($Input1) & '-11', "", $Pfad1, "open")
    Case $Input2
    ShellExecute('02-' & GUICtrlRead($Input2) & '-11', "", $Pfad2, "open")
    EndSwitch
    EndFunc ;==>_Enter

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

    Func _WM_COMMAND($hWnd, $iMsg, $iwParam, $ilParam)
    Local $hWndFrom = $ilParam
    Local $iCode = _WinAPI_HiWord($iwParam)
    Local $hWndEdit1 = GUICtrlGetHandle($Input1)
    Local $hWndEdit2 = GUICtrlGetHandle($Input2)
    Switch $hWndFrom
    Case $hWndEdit1, $hWndEdit2;
    Switch $iCode
    Case $EN_SETFOCUS
    Switch $hWndFrom
    Case $hWndEdit1
    $hSendFocus = $Input1
    Case $hWndEdit2
    $hSendFocus = $Input2
    EndSwitch
    Case Else
    EndSwitch
    EndSwitch
    Return $GUI_RUNDEFMSG
    EndFunc ;==>_WM_COMMAND

    [/autoit]


    Ich wollte noch den Fokus auf das 2. Input-Feld legen, aber leider verträgt sich das ganze nicht mehr
    mit dem jetzigen Code und die Enter Funktion geht im 2. Input-Feld nicht mehr.

    [autoit]

    GUICtrlSetState($Input2, $GUI_FOCUS)

    [/autoit]


    Hatte GUICtrlSetState unter die $Input2-Variable geschrieben.

    Hier noch die Icons.
    Der Inhalt kann nicht angezeigt werden, da er nicht mehr verfügbar ist.

  • Wie GUICtrlCreateInput aufteilen in Vorgabewert und Eingabewert? für Ordner-Jumper.

    Ich wollte noch in beiden Inputs ermöglichen, den Input per Enter-Taste aufzurufen mit:

    [autoit]

    Dim $AccelKeys[2][2] = [["{Enter}", $Jump1], ["^{Enter}", $Jump2]]
    GUISetAccelerators($AccelKeys)

    [/autoit]


    Es wird aber nur in der $Jump1-Variable das Enter ermöglicht?
    Wenn ich eine Zahl in der $Jump2-Variable eingebe, kommt ein leeres Input vom $Jump1-Feld und sagt der Ordner kann nicht gefunden werden!?
    Kann man nur einmal das Enter definieren? In der Hilfe steht auch nichts dazu.
    Ausprobierte Varianten, die auch nicht funktionieren:

    [autoit]

    Dim $AccelKeys[2][2] = [["{Enter}", $Jump1], ["{Enter}", $Jump2]]
    Dim $AccelKeys[2][2] = [["^{Enter}", $Jump1], ["^{Enter}", $Jump2]]

    [/autoit]

  • Wie GUICtrlCreateInput aufteilen in Vorgabewert und Eingabewert? für Ordner-Jumper.

    Ok danke, damit klappt es jetzt.

    Spoiler anzeigen
    [autoit]

    #NoTrayIcon
    ;#RequireAdmin
    #include <GUIConstantsEx.au3>
    #include <ButtonConstants.au3>

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

    Local $Pfad1, $Pfad2, $Jump1, $Jump2, $Input1, $Input2

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

    $Pfad1= "L:\G...\KIen....\ANGEBOT 2011\"
    $Pfad2= "L:\G...\KIen....\AUFTRAG 2011\"

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

    GUICreate("Ordner-Jumper", 210, 120)
    If Not @compiled Then GUISetIcon('Ordner.ico')
    GUICtrlCreateLabel("ANGEBOTS-Nummer eingeben", 15, 10, 150, 13)
    GUICtrlCreateLabel("AUFTRAGS-Nummer eingeben", 15, 65, 150, 13)

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

    $Jump1= GUICtrlCreateButton("1", 155, 29, 23, 23, 0x0040)
    GUICtrlSetTip(-1, "Direkt zum ANGEBOTS-Ordner 2011 springen.")
    GUICtrlSetImage(-1, @SystemDir & '\shell32.dll', -138, 0)
    $Input1=GUICtrlCreateInput("", 35, 30, 100, 20)
    GUICtrlCreateLabel("01-", 17, 32, 17, 13)
    GUICtrlCreateLabel("-11", 137, 32, 17, 13)

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

    $Jump2= GUICtrlCreateButton("2", 155, 84, 23, 23, 0x0040)
    GUICtrlSetTip(-1, "Direkt zum AUFTRAGS-Ordner 2011 springen.")
    GUICtrlSetImage(-1, @SystemDir & '\shell32.dll', -138, 0)
    $Input2=GUICtrlCreateInput("", 35, 85, 100,20)
    GUICtrlCreateLabel("02-", 17, 87, 17, 13)
    GUICtrlCreateLabel("-11", 137, 87, 17, 13)

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

    GUISetState()
    While 1
    $msg = GUIGetMsg()
    Switch $msg
    Case $GUI_EVENT_CLOSE
    ExitLoop
    Case $Jump1
    ShellExecute('01-'& GUICtrlRead($Input1) &'-11', "", $Pfad1, "open")
    Case $Jump2
    ShellExecute('02-'& GUICtrlRead($Input2) &'-11', "", $Pfad2, "open")
    EndSwitch
    WEnd

    [/autoit]