Größen der Form deffinieren

1. offizieller Beitrag

    Hallo,

    ich bin gerade dran einen kleinen browser zu bauen mit ein paar lustigen funktionen ;) und ich komme grade nicht weiter denn ich möchte die größe meiner gui verändern hierma ein ausschnitt aus meinem script

    Spoiler anzeigen
    [autoit]

    #include <IE.au3>

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

    $LOL = _IECreateEmbedded()

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

    Global $input

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

    $breite = 350
    $hoehe = 350

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

    $AFFE = GUICreate("Mini Browser",$breite,$hoehe)
    GUICtrlCreateObj($LOL,0,0,$breite,$hoehe)
    GUISETSTATE(@SW_SHOW)

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

    _IENavigate($LOL, @SCriptDir & "/Mini.htm")

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

    HotKeySet("{F7}","_breite50")
    Hotkeyset("{F8}","_Hoehe50")

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

    Func _breite50()
    $breite = $breite + 50
    EndFunc

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

    Func _Hoehe50()
    $hoehe = $hoehe + 50
    Endfunc

    [/autoit]
    • Offizieller Beitrag

    Hallo,

    Größenänderung vom Fenster geht mit WinMove und vom Control mit GuiCtrlSetPos!

    Spoiler anzeigen
    [autoit]

    #include <IE.au3>

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

    $LOL = _IECreateEmbedded()

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

    Global $input

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

    $breite = 350
    $hoehe = 350

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

    $AFFE = GUICreate("Mini Browser",$breite,$hoehe)
    $IECtrl = GUICtrlCreateObj($LOL,0,0,$breite,$hoehe)
    GUISETSTATE(@SW_SHOW)

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

    _IENavigate($LOL, @SCriptDir & "/Mini.htm")

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

    HotKeySet("{F7}","_breite50")
    Hotkeyset("{F8}","_Hoehe50")

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

    Func _breite50()
    $aWGP = WinGetPos($AFFE)
    WinMove($AFFE, "", $aWGP[0], $aWGP[1], $aWGP[2] + 50, $aWGP[3])
    $aWGCS = WinGetClientSize($AFFE)
    GUICtrlSetPos($IECtrl,0,0,$aWGCS[0], $aWGCS[1])
    EndFunc

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

    Func _Hoehe50()
    $aWGP = WinGetPos($AFFE)
    WinMove($AFFE, "", $aWGP[0], $aWGP[1], $aWGP[2], $aWGP[3] + 50)
    $aWGCS = WinGetClientSize($AFFE)
    GUICtrlSetPos($IECtrl,0,0,$aWGCS[0], $aWGCS[1])
    Endfunc

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

    While 1
    Sleep(100)
    WEnd

    [/autoit]