| |
| |
|
Alfred
Wagner | allô gens
Giebt es eigentlich anstatt
EDIT1% = @Créer(SpinEdit,%HWND,0;0;999,300,260,50,18)
un
EDIT1% = Contrôle(SpinEdit,,.................... ?
so ähnlich comment chez
Text1& =Control(EDIT,TestText ,1409353728,360,0265,0100,0015,%HWND,0,%HINSTANCE,0)
merci bien déjà la fois im vorhinein
Grüße
Alfred avec la famille |
|
| |
| |
| |
|
|
Frank
Abbing | | Müsste eigentlich son: msctls_updown32 |
|
| |
| |
| |
|
|
Uwe
''Pascal''
Niemeier | allô gens!
ici une quelque chose ausgefallene variante:
KompilierenMarqueSéparationwindow 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 | un accélérateur, presque comment chez meinem Funkwecker.
Tolles partie... 
belle Grüße
Michael Wodrich |
|
| |
| Programmieren, das spannendste Detektivspiel der Welt. | 11.06.2006 ▲ |
|
| |
|
|
Alfred
Wagner | merci
uwe et frank
grüße
Alfred avec la famille |
|
| |
| |
| |
|
(812)
Deutsch
English
Français
Español
Italia