| |
| |
|
Alfred
Wagner | Hallo Leute
Giebt es eigentlich anstatt
EDIT1% = @Create(SpinEdit,%HWND,0;0;999,300,260,50,18)
ein
EDIT1% = Control(SpinEdit,,.................... ?
so ähnlich wie bei
Text1& =Control(EDIT,TestText ,1409353728,360,0265,0100,0015,%HWND,0,%hinstance,0)
vielen dank schon mal im vorhinein
Grüße
Alfred mit Familie |
|
| |
| |
| |
|
|
Frank
Abbing | | Müsste eigentlich sein: msctls_updown32 |
|
| |
| |
| |
|
|
Uwe
''Pascal''
Niemeier | Hallo Leute!
Hier eine etwas ausgefallene Variante:
KompilierenMarkierenSeparierenwindow 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 wie bei meinem Funkwecker.
Tolles Teil... 
Schöne Grüße
Michael Wodrich |
|
| |
| Programmieren, das spannendste Detektivspiel der Welt. | 11.06.2006 ▲ |
|
| |
|
|
Alfred
Wagner | danke
uwe und frank
grüße
Alfred mit Familie |
|
| |
| |
| |
|
(443)
Deutsch
English
Français
Español
Italia