Hallo,
ich habe ein Programm geschrieben, welches umfangreiche Batch-Commandos vereinfacht.
Nun wollte ich zur Dokumentation in dem Programm eine Hilfe-Funktion einbinden.
Mein Problem ist: Der Inhalt ist einfach zu groß für das erzeugte Fenster, kennt jemand eine Lösung wie man ein Fenster mit Scrollbalken erzeugt, allerdings soll dabei die Formatierungen nicht verlorengehen.
Gruss Thorsten
Hier ist der Code:
[autoit]
#include <GUIConstants.au3>
Opt("GUICoordMode",2)
GUICreate("Hilfe",750, 890, -1, -1,BitOr($WS_OVERLAPPEDWINDOW,$WS_CLIPSIBLINGS,$WS_CLIPCHILDREN))
[/autoit][autoit][/autoit][autoit]$GuiEdit=GUICtrlCreateEdit ("", -1, -1,750, 890,$ES_AUTOVSCROLL+$WS_VSCROLL)
[/autoit][autoit][/autoit][autoit][/autoit][autoit][/autoit][autoit]$font="Times New Roman"
$font1="Times New Roman Fett"
GUICreate("Hilfe",750, 890, -1, -1,BitOr($WS_OVERLAPPEDWINDOW,$WS_CLIPSIBLINGS,$WS_CLIPCHILDREN))
[/autoit][autoit][/autoit][autoit]; GUICtrlCreateEdit ("First line"& @CRLF, 176,32,121,97,$ES_AUTOVSCROLL+$WS_VSCROLL)
[/autoit][autoit][/autoit][autoit]GUICtrlCreateLabel ("Syntax: ", 10, -1,70 )
GUICtrlSetFont (-1,12, 400, 4, $font1)
GUICtrlSetData ($GuiEdit,"diag Option:Server ...,parm1 .. ,parm2..., /q", 1) ; next line
GUICtrlSetFont (-1,11, 400, 2, $font)
GUICtrlCreateLabel ("z.B. diag dnsdiag:svd1", -1, 0,300) ; next line
GUICtrlSetFont (-1,11, 400, 0, $font)
GUICtrlCreateLabel ("Bereich Allgemein-Test ((/q) für eine komprimierte Ausgabe):", -1, 5,400) ; next line
GUICtrlSetFont (-1,12, 400, 4, $font)
GUICtrlCreateLabel ("diag --> Testet angegebenen Server mit DcDiag", -1, 0,400) ; next line
GUICtrlSetFont (-1,12, 400, 2, $font)
GUICtrlCreateLabel ("diagall --> Testet alle Server (gesamte Domäne) mit DcDiag", -1, 0,700) ; next line
GUICtrlSetFont (-1,12, 400, 2, $font)
GUICtrlCreateLabel ("diagdebug --> Gibt erweiterte Informationen über angegebenen DNS Server mit DcDiag aus", -1, 0,700) ; next line
GUICtrlSetFont (-1,12, 400, 2, $font)
GUICtrlCreateLabel ("diagdebugall --> Gibt erweiterte Informationen über alle Server (gesamte Domäne) mit DcDiag aus", -1, 0,700) ; next line
GUICtrlSetFont (-1,12, 400, 2, $font)
GUICtrlCreateLabel ("netdiag --> Testet angegebenen Server mit NetDiag aus", -1, 0,700) ; next line
GUICtrlSetFont (-1,12, 400, 2, $font)
GUICtrlCreateLabel ("netdiagdebug --> Gibt erweiterte Informationen über alle Server (gesamte Domäne) mit NetDiag aus", -1, 0,700) ; next line
GUICtrlSetFont (-1,12, 400, 2, $font)
GUICtrlCreateLabel ("Bereich DNS-Test((/q) für eine komprimierte Ausgabe):", -1, 5,700) ; next line
GUICtrlSetFont (-1,12, 400, 4, $font)
GUICtrlCreateLabel ("dns --> Testet angegebenen DNS Server mit DcDiag", -1, 5,700) ; next line
GUICtrlSetFont (-1,12, 400, 2, $font)
GUICtrlCreateLabel ("dnsall --> Testet alle (gesamte Domäne) DNS Server mit DcDiag", -1, 0,700) ; next line
GUICtrlSetFont (-1,12, 400, 2, $font)
GUICtrlCreateLabel ("dnsdebug --> Gibt erweiterte Informationen über angegebenen DNS Server mit DcDiag aus", -1, 0,600) ; next line
GUICtrlSetFont (-1,12, 400, 2, $font)
GUICtrlCreateLabel ("dnsdebugall --> Gibt erweiterte Informationen über alle (gesamte Domäne) DNS Server mit DcDiag aus", -1, 0,700) ; next line
GUICtrlSetFont (-1,12, 400, 2, $font)
GUICtrlCreateLabel ("Bereich DNS-Server:", -1, 5,400) ; next line
GUICtrlSetFont (-1,12, 400, 4, $font)
GUICtrlCreateLabel ("dnsinfo --> Gibt allgemeine Informationen über den angegebenen Server aus", -1, 0,700) ; next line
GUICtrlSetFont (-1,12, 400, 2, $font)
GUICtrlCreateLabel ("dnsstat --> Gibt allgemeine Statistiken über den angegebenen Server aus", -1, 0,700) ; next line
GUICtrlSetFont (-1,12, 400, 2, $font)
GUICtrlCreateLabel ("dnsclearcache --> Löscht den temporären DNS Cache des angegebenen Server", -1, 0,700) ; next line
GUICtrlSetFont (-1,12, 400, 2, $font)
GUICtrlCreateLabel ("enumzones --> Erstellt eime Liste aller DNS-Zonen des angegebenen Server", -1, 0,700) ; next line
GUICtrlSetFont (-1,12, 400, 2, $font)
GUICtrlCreateLabel ("printzone (/gui) oder (Name der Zone)--> Gibt die Clients einer Zone aus bzw. Auswahl über Gui ", -1, 0,700) ; next line
GUICtrlSetFont (-1,12, 400, 2, $font)
GUICtrlCreateLabel ("enumrecord (Name des Clients) --> Gibt detailierte Infos zu einem Client aus (Zone; xxx.xxx.xxx)", -1, 0,850) ; next line
GUICtrlSetFont (-1,12, 400, 2, $font)
GUICtrlCreateLabel ("Bereich NTFrs (File Replication Service:", -1, 5,400) ; next line
GUICtrlSetFont (-1,12, 400, 4, $font)
GUICtrlCreateLabel ("frschk --> Überprüft die Replikation des angegebenen Servers", -1, 0,850) ; next line
GUICtrlSetFont (-1,12, 400, 2, $font)
GUICtrlCreateLabel ("Bereich DHCP-Server:", -1, 5,400) ; next line
GUICtrlSetFont (-1,12, 400, 4, $font)
GUICtrlCreateLabel ("addscope (Bereich) (Name des Bereichs) (Name Empirumserver)-->Erstellt einen Scope", -1, 0,850) ; next line
GUICtrlSetFont (-1,12, 400, 2, $font)
GUICtrlCreateLabel ("z.B. diag /addscope:svt1 x.x.x.x test test1", -1, 0,850) ; next line
GUICtrlSetFont (-1,12, 400, 0, $font)
GUICtrlCreateLabel ("showscope (Bereich))--> Zeigt alle Einträge eines Scopes", -1, 0,850) ; next line
GUICtrlSetFont (-1,12, 400, 2, $font)
GUICtrlCreateLabel ("dumpscope (Bereich))--> Dump eines Scopes ", -1, 0,850) ; next line
GUICtrlSetFont (-1,12, 400, 2, $font)
GUICtrlCreateLabel ("showalldhcpsrv--> Listet alle DHCP-Server der Domäne auf ", -1, 0,850) ; next line
GUICtrlSetFont (-1,12, 400, 2, $font)
GUICtrlCreateLabel ("dhcpinfo--> Gibt Informationen über den angegebenen DHCP-Server aus ", -1, 0,850) ; next line
GUICtrlSetFont (-1,12, 400, 2, $font)
GUICtrlCreateLabel ("Bereich Reset GPO:", -1, 5,400) ; next line
GUICtrlSetFont (-1,12, 400, 4, $font)
GUICtrlCreateLabel ("resetgpo --> Gibt einen Befehl zum resetten der Gruppemnrichtlinien aus", -1, 0,700) ; next line
GUICtrlSetFont (-1,12, 400, 2, $font)
GUICtrlCreateLabel ("Bereich ResetIp:", -1, 5,400) ; next line
GUICtrlSetFont (-1,12, 400, 4, $font)
GUICtrlCreateLabel ("resetip --> Resettet den IP-Stack (Achtung Netzwerkverbindung wird unterbrochen !!!)", -1, 0,700) ; next line
GUICtrlSetFont (-1,12, 400, 2, $font)
GUICtrlCreateLabel ("Bereich TimeSync:", -1, 5,400) ; next line
GUICtrlSetFont (-1,12, 400, 4, $font)
GUICtrlCreateLabel ("timesync --> Führt eine Neuinstallation des Zeitdientes durch", -1, 0,700) ; next line
GUICtrlSetFont (-1,12, 400, 2, $font)
GUISetState ()
; will display an empty dialog box
; Run the GUI until the dialog is closed
Do
$msg = GUIGetMsg()
Until $msg = $GUI_EVENT_CLOSE