Weiß jemand, wie man sowas scrollbar bekommt ?
Code
Declare Long x, y, Handle Texte[], Edits[], Buttons[]
Declare hsv&,hsh&,htx&
Window 600, 390
hsh& = @Create("HScroll",%hwnd,"", 2, 300, 560, 22)
hsv& = @Create("VScroll",%hwnd,"", 560, 2, 580, 310)
SetScrollRange hsh&, 2, 550 'x-pos scrollbereich
SetScrollRange hsv&, 2, 350 'y-pos scrollbereich
x = 10
y = 10
WhileLoop 0, 19
Texte[&LOOP] = Create("Text", %HWnd, Str$(&LOOP + 1) + ". Eingabe :", x, y, 100, 25)
Edits[&LOOP] = Create("Edit", %HWnd, "", x + 110, y, 60, 25)
Buttons[&LOOP] = Create("Button",%HWnd, Str$(&LOOP), x + 200, y, 60, 25)
Inc y, 40
EndWhile
While 1
WaitInput
EndWhile
End
Alles anzeigen
Die Scrollbalken gibt es ja. Das Fenster sollte auch nicht größer sein.