Allgemeine Fragen zur PROFAN Programmierung
Views (Heute): 249637 (11073)
  Suchen
 Zurück zur Übersicht
 AutorThema: SpinEdit
Rene Wagner
Datum:13.06.01 15:21 Antwortenals Email verschicken (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 Antwortenals Email verschicken (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 Antwortenals Email verschicken (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 Antwortenals Email verschicken (apollo@rw-net.de) 


Jo, funzt. Danke.


Maik Strohfeldt
Datum: 13.06.01 20:39 Antwortenals Email verschicken (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