Autor | Thema: SpinEdit | | Datum:13.06.01 15:21 
(apollo@rw-net.de) | |
Tach auch.
Mit folgendem Code erstelle ich ein SpinEdit:
declare tage&
def CreateSpinEdit(12) !"COMCTL32","CreateUpDownControl"
cls
Let tage&=CreateSpinEdit($50000026,0,0,0,0,%HWND,2002,%hinstance,CreateEdit(%HWND,"",240,40,121,22),50,1,5)
whilenot @equ(%key,2)
waitinput
endwhile
Wie kann ich dieses SpinEdit nun auslesen? Wenn ich einfach den Wert des Handles abfrage, kommt da irgendwas anderes.
Kann mir da wer helfen?
gruss, Rene
Profan-Forum: http://profan.rw-net.de
|
| | | Datum:13.06.01 15:59 
(g.putschalka@utanet.at) | |
Hallo Rene,
probier folgendes (ich hoffe es ist komplett, ich habe es aus einem
meiner Programme entnommen - schreib mir, wenn es nicht funktioniert.
Auf meiner Homepage ist das Programm CdEtiket dort ist so ein Control in Verwendung.
' ========
' Funktionen definieren
Def CreateSkipCtl(12) !"COMCTL32","CreateUpDownControl"
Def GetSkipHdl(1) SendMessage(@&(1),1130,0,0)
' Kontrol und Editfeld definieren
Let SkbCtl&=@CreateSkipCtl($54000026,0,0,0,0,MsDlg&,2002,\
%hinstance,CreateEdit(MsDlg&,"",179,450,37,20),100,0,0)
Let SkbEdt& = @GetSkipHdl(SkbCtl&)
' Wert auslesen
Let Wert$ = @GetText$(SkbEdt&)
' ========
Mfg Gerhard. Homepage: http://members.telering.at/g.putschalka/index.html
|
| | | Datum: 13.06.01 20:39 
(mail@msgroup.de) | |
Hallo!
Ein kleiner Blick in den Beispiele-Ordner deines Visual-Window-Pro2-Ordners hätte genügt! ;) Da sollte eine SpinEdit-Demo liegen.
Evtl. werde ich demnächst eine große Lib mit zig VWP-Demos veröffentlichen. Vielleicht inkl. des großen Texteditors, der auf dem diesjährigem PROFAN²-Treffen der PWS gezeigt wurde.
Viele Grüße,
--
Maik Strohfeldt, MS Group Software
http://www.msgroup.de
|
|
|