Hallo StormRider,
du kannst es so machen:
Spoiler anzeigen
#cs ----------------------------------------------------------------------------
AutoIt Version: 3.3.6.1
Author: myName
Script Function:
Template AutoIt script.
#ce ----------------------------------------------------------------------------
; Script Start - Add your code below here
#include <ScrollBarConstants.au3>
#include <GUIConstantsEx.au3>
#include <GuiButton.au3>
#include <StructureConstants.au3>
#include <GUIScrollBars.au3>
#include <GUIScroll.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <TabConstants.au3>
#include <WindowsConstants.au3>
#include <GuiTab.au3>
Global $sIni = @ScriptDir & "\Gui.ini"
Global $iEdits = IniRead($sIni, "Edits", "Count", 1)
Global $hEdit[$iEdits], $iTop = 5
$Kundenkartei = GUICreate("Kundenkartei", 1024, 550)
$Load = GUICtrlCreateButton("Load", 30, 16, 75, 25)
$Save = GUICtrlCreateButton("Save", 130, 16, 75, 25)
$PageControl1 = GUICtrlCreateTab(39, 65, 1204, 24)
GUICtrlSetResizing(-1, $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT)
$TabSheet2 = GUICtrlCreateTabItem(" 1 ")
$TabSheet3 = GUICtrlCreateTabItem(" 2 ")
$hAdd = GUICtrlCreateButton("Hinzufügen", 330, 16, 75, 25)
GUICtrlCreateTabItem("")
$hTabSheet2 = GUICreate("HilfsTab 2", 990, 460, 5, 90, $WS_POPUP, $WS_EX_MDICHILD, $Kundenkartei)
$hTabSheet3 = GUICreate("HilfsTab 3", 990, 460, 5, 90, BitOR($WS_POPUP, $WS_VSCROLL, $WS_CLIPSIBLINGS), $WS_EX_MDICHILD, $Kundenkartei)
For $i = 0 To $iEdits - 1
_newEdit($i)
Next
GUISetState(@SW_SHOW, $Kundenkartei)
Scrollbar_Create($hTabSheet3, $SB_VERT, $iEdits*80)
Scrollbar_Step(20, $hTabSheet3, $SB_VERT)
GUISetState(@SW_HIDE, $hTabSheet3)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $hAdd
ReDim $hEdit[UBound($hEdit) + 1]
_newEdit($iEdits)
$iEdits += 1
IniWrite($sIni, "Edits", "Count", $iEdits)
_GUIScrollBars_SetScrollRange($hTabSheet3, $SB_VERT, 0,$iTop)
Case $PageControl1
If _GUICtrlTab_GetCurSel($PageControl1) = 1 Then
GUISetState(@SW_SHOW, $hTabSheet3)
GUISetState(@SW_HIDE, $hTabSheet2)
Else
GUISetState(@SW_HIDE, $hTabSheet3)
GUISetState(@SW_SHOW, $hTabSheet2)
EndIf
EndSwitch
WEnd
Func _newEdit($iEditNr)
GUISwitch($hTabSheet3)
ConsoleWrite($iEditNr & @CRLF)
$hEdit[$iEditNr] = GUICtrlCreateEdit("", 56, $iTop, 180, 70, BitOR($WS_VSCROLL, $ES_WANTRETURN))
$hEdit[$iEditNr] = GUICtrlCreateEdit("", 236, $iTop, 180, 70, BitOR($WS_VSCROLL, $ES_WANTRETURN))
$hEdit[$iEditNr] = GUICtrlCreateEdit("", 416, $iTop, 180, 70, BitOR($WS_VSCROLL, $ES_WANTRETURN))
$hEdit[$iEditNr] = GUICtrlCreateEdit("", 596, $iTop, 180, 70, BitOR($WS_VSCROLL, $ES_WANTRETURN))
$hEdit[$iEditNr] = GUICtrlCreateEdit("", 776, $iTop, 180, 70, BitOR($WS_VSCROLL, $ES_WANTRETURN))
;$hEdit[$iEditNr] = GUICtrlCreateEdit("", 956, $iTop, 180, 70, BitOR($WS_VSCROLL, $ES_WANTRETURN))
$iTop += 80
GUISwitch($Kundenkartei)
EndFunc ;==>_newEdit
die Optik, speziell die Breiten und Höhe musst du dir noch anpassen,
mfg (Auto)Bert