| |
| |
|
Alfred
Wagner | Hello people
Giebt it really instead of
EDIT1% = @Create(SpinEdits,%HWND,0;0;999,300,260,50,18)
one
EDIT1% = Control(SpinEdits,,.................... ?
so like with
Text1& =Control(EDIT,TestText ,1409353728,360,0265,0100,0015,%HWND,0,%hinstance,0)
thank you very much already time in the vorhinein
Regards
Alfred with family |
|
| |
| |
| |
|
|
Frank
Abbing | | Should really his: msctls_updown32 |
|
| |
| |
| |
|
|
Uwe
''Pascal''
Niemeier | Hello people!
here a something ausgefallene Variante:
CompileMarkSeparationwindow 10,10-500,570
usefont MS Sans Serif,15,7,0,0,0
setdialogfont 1
def CreateUpDownControl(12) !comctl32,CreateUpDownControl
declare dlg&,ED&,UD&,a#
dim a#,16
dlg&=create(dialog,%hwnd,Test,200,200,80,100)
ED&=control(edit,,$540100C5 ,11,10,48,16,dlg&,1,0,$20000)
UD&=CreateUpDownControl($54000002,0,0,0,0,dlg&,1,0,ED&,3000,100,950)
setwindowpos UD&=10,27-50,40
long a#,0=0--Zählgeschwindigkeit Beginn: 1
long a#,4=1
long a#,8=3--Zählgeschwindigkeit nach 3 Sekunden: 5
long a#,12=5
sendmessage(UD&,1131,2,a#)--UDM_SETACCEL
while 1
waitinput
locate 0,0
print gettext$(ED&)
endwhile
HTH
Pascal |
|
| |
| |
| |
|
|
Michael
Wodrich | One accelerator, almost How with my Funkwecker.
Tolles part... 
Best wishes
Michael Wodrich |
|
| |
| Programmieren, das spannendste Detektivspiel der Welt. | 06/11/06 ▲ |
|
| |
|
|
Alfred
Wagner | thanks
uwe and frank
grüße
Alfred with family |
|
| |
| |
| |
|
(909)
Deutsch
English
Français
Español
Italia