| |
| |
|
Alfred
Wagner | ¡Hola Personas
Giebt lo eigentlich anstatt
EDIT1% = @Crear(SpinEdit,%HWND,0;0;999,300,260,50,18)
una
EDIT1% = Control(SpinEdit,,.................... ?
así ähnlich como en
Texto1& =Control(EDIT,TestText ,1409353728,360,0265,0100,0015,%HWND,0,%hInstance,0)
vielen dank ya veces en el vorhinein
Grüße
Alfred con Familie |
|
| |
| |
| |
|
|
Frank
Abbing | | Müsste eigentlich ser: msctls_updown32 |
|
| |
| |
| |
|
|
Uwe
''Pascal''
Niemeier | ¡Hola Personas!
Hier una algo ausgefallene Variante:
KompilierenMarcaSeparaciónwindow 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 | Ein Gaspedal, fast como en mi Funkwecker.
Tolles Teil... 
Schöne Grüße
Michael Wodrich |
|
| |
| Programmieren, das spannendste Detektivspiel der Welt. | 11.06.2006 ▲ |
|
| |
|
|
Alfred
Wagner | danke
uwe y frank
grüße
Alfred con Familie |
|
| |
| |
| |
|
(874)
Deutsch
English
Français
Español
Italia