Hauptbutton festlegen

  • Hiho,

    ich glaube das ist eine folge der neuen versionen, weil ich mir sicher bin, dass es vorher ging *g*

    also ich habe 1 gui mit 2 tabs ... auf dem 2. tab ist ein button "add", der als main-button, wenn man auf diesen reiter wechselt, deklariert sein soll.
    also wenn ich, im inputfeld darüber, eine adresse eingebe und enter drücke, soll "add" ausgeführt werden.

    leider weiss ich nicht, wie ich es umschreiben soll

    [autoit]


    ;ie-gui
    $guiie = GUICreate("Internet Explorer Settings", 300, 250)
    WinSetTrans($guiie, "", 240)
    $ok2 = GUICtrlCreateButton("&Ok", 20, 220, 70, -1, $BS_DEFPUSHBUTTON )
    $cancel2 = GUICtrlCreateButton("&Cancel", 220, 220, 70)
    ;tab 1 - access
    GUICtrlCreateTab(0, 0, 300, 215)
    GUICtrlCreateTabItem("Access Options")
    GUICtrlCreateGroup("Access Options", 30, 30, 220, 160)
    $access = GUICtrlCreateCheckbox("automatic Internet Access", 70, 53)
    GUICtrlSetTip($access, "If you select this option, you will automaticly get access to the Internet, without writing your personal details every time")
    If $ieaxx = 1 then GUICtrlSetState($access, 1)
    $access2 = GUICtrlCreateCheckbox("automatic Portal Access", 70, 78)
    GUICtrlSetTip($access2, "If you select this option, you will automaticly get access to the Portal")
    If $portalaxx = 1 then GUICtrlSetState($access2, 1)
    GUICtrlCreateLabel("UserID", 55, 112, 50)
    $user = GUICtrlCreateInput("", 115, 110, 100)
    GUICtrlSetTip($user, "Please enter your UserID")
    If $ieaxx = 1 then GUICtrlSetData($user, $ieuser)
    $passw = GUICtrlCreateLabel("Password", 55, 152, 50)
    $pw = GUICtrlCreateInput("", 115, 150, 100, "", BitOr($ES_PASSWORD, $ES_AUTOHSCROLL))
    GUICtrlSetTip($pw, "Please enter your current password, but keep in mind that you have to change it, when you select a new Windows-Password")
    If $ieaxx = 1 then GUICtrlSetData($pw, _StringEncrypt ( 0, IniRead(@scriptdir & "\" & $ini, "IE-Settings", "Password", ""), $pwkey , 4 ))
    ;tab 2 - urls
    GUICtrlCreateTab(-1, -1, 300, 215)
    GUICtrlCreateTabItem("Internet Sites")
    $add2 = GUICtrlCreateButton("&Add", 10, 60, 60, -1, $BS_DEFPUSHBUTTON ) ;es geht um diesen button, der soll durch ein drücken der enter-taste ausgeführt werden
    GUICtrlSetTip($add2, "Here you can enter a URL you want to launch after the start")
    $remove2 = GUICtrlCreateButton("&Remove", 10, 90, 60)
    GUICtrlSetTip($remove2, "Remove the seleted item")
    $clear2 = GUICtrlCreateButton("C&lear", 10, 120, 60)
    GUICtrlSetTip($clear2, "Removes all items")
    $urlinput = GUICtrlCreateInput("www.", 10, 30, 280, 20)
    GUICtrlSetTip($urlinput, "Please enter here the URL you want to launch")
    $urllist = GUICtrlCreateList("", 80, 60, 210, 150, $WS_HSCROLL + $WS_VSCROLL + $LBS_DISABLENOSCROLL)
    _GUICtrlListBox_SetHorizontalExtent($urllist, 500)
    If $flag2 = True Then
    Else
    If $RunUrls = 1 Then
    For $i = 1 To $var2[0][0]
    GUICtrlSetData($urllist, $var2[$i][1])
    Next
    Else
    EndIf
    EndIf

    [/autoit]
  • Da mir viele Teile des Scripts fehlen, kann iches nur beschränkt testen ...

    Das mit dem Add-Button macht eigentlich wenig Sinn, besser wäre es so in der Art ...

    Spoiler anzeigen
    [autoit]


    While 1

    $msg = GUIGetMsg()
    Switch $msg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $urlinput
    GUICtrlSetData($urllist, GUICtrlRead($urlinput))
    GUICtrlSetData($urlinput, "www.")
    Case $urllist
    GUICtrlSetStyle($ok2, $BS_DEFPUSHBUTTON)
    EndSwitch
    WEnd

    [/autoit]


    Gruß
    Greenhorn

    @Admins
    Ich bitte nochmals um Korrektur der AutoIt Code Darstellung, die Tababstände werden hier irgendwie doppelt so groß dargestellt, wie in Scite.
    Wenn ich hier die Tab Abstände auf 2 Leerzeichen kürze sieht's normal aus ! (s.o.)
    Danke


    Einmal editiert, zuletzt von Greenhorn (8. Dezember 2007 um 19:20)