gui größe verändern

[autoit]

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <IE.au3>

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

$IE = _IECreateEmbedded()

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

Global $html

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

#Region ### START Koda GUI section ### Form=c:\program files\autoit3\scite\koda\forms\webbrowser.kxf
$Form1 = GUICreate("Webbrowser", 1234, 537, 208, 124, BitOR($WS_SIZEBOX, $WS_SYSMENU, $WS_MAXIMIZEBOX,$WS_MINIMIZEBOX))
$Menu_Datei = GUICtrlCreateMenu("&Datei")
$Menu_Einstellungen = GUICtrlCreateMenuItem("Einstellungen", $Menu_Datei)
$Menu_beenden = GUICtrlCreateMenuItem("Beenden", $Menu_Datei)
$GUI_url = GUICtrlCreateInput("http://:autoit.de", 72, 8, 801, 21)
GUICtrlSetResizing(-1, $GUI_DOCKSIZE + $GUI_DOCKLEFT + $GUI_DOCKTOP)
$Label1 = GUICtrlCreateLabel("Adresse:", 8, 8, 67, 24)
GUICtrlSetResizing(-1, $GUI_DOCKSIZE + $GUI_DOCKLEFT + $GUI_DOCKTOP)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
$GUI_go = GUICtrlCreateButton("Go!", 880, 8, 65, 25, $WS_GROUP)
GUICtrlSetResizing(-1, $GUI_DOCKSIZE + $GUI_DOCKLEFT + $GUI_DOCKTOP)
$GUI_home = GUICtrlCreateButton("HOME", 1072, 8, 89, 25, $WS_GROUP)
$browser = GUICtrlCreateObj($IE, 8, 40, 1020, 435)
GUICtrlSetResizing(-1, $GUI_DOCKBORDERS)

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

GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

_IENavigate($IE, "http://www.autoit.de")

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit

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

Case $Menu_beenden
Exit
Case $GUI_go
$html = GUICtrlRead($GUI_url)
;~ MsgBox(0,"",$html);funzt doch...
_IENavigate($IE, $html)
EndSwitch
WEnd

[/autoit]