Hallo Stephan,
Ich habe mal ein Beispiel von Rainer Berg etwas abgewandelt:
window 30,30-300,300
declare a&,a%
def TbGetPos(1) sendmessage(&(1),1024,0,0)'------------TBM_GETPOS
def TbSetPos(2) sendmessage(&(1),1029,1,%(2))'---------TBM_SETPOS
a&=control("msctls_trackbar32","",$50000050,10,20,250,30,%hwnd,10,%hinstance)
settimer 1
while 1
a%=TbGetPos(a&)
TbSetPos(a&,a%)
windowtitle str$(TbGetPos(a&))
endwhile
KillTimer
Gruß
Jörg
|