Allgemeine Fragen zur PROFAN Programmierung

Views (Heute): 249637 (11073)

| Suchen
| Zurück zur Übersicht

Autor | Thema: SpinEdit
Rene Wagner
| 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
Sascha
| Datum:13.06.01 15:50 (sascha@willecke-net.de) |
Versuchs mal mit @gettext$(handle) Sonst weiß ich auch nichts! MFG Sascha http://www.profan.willecke-net.de
Gerhard Putschalka
| 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
Rene Wagner
| Datum:13.06.01 16:56 (apollo@rw-net.de) |
Jo, funzt. Danke.
Maik Strohfeldt
| 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

| Zurück zur Übersicht