XProfan

- Página 1 -

Uwe's Variante como mögliche XPSE

window 200,100-300,150
long Editar=create("edit",%hwnd,"",100,10,80,24)
long updown=createupdowncontrol(ws_child | ws_visible | uds_nothousands | uds_setbuddyint | uds_alignright,0,0,0,0,hwnd,555,0,edit,2000,0,1500)

do {

    locate 0,0
    imprimir gettext$(edit)
    imprimir sendmessage(updown,udm_getpos,0,0)
    waitinput

}

Interessant el esto no es funktioniert:

cls
long Editar=create(spinedit,hwnd,4000;-100;5000,0229,0241,0120,0020)
long spin=findwindowex(hwnd,0,msctls_updown32,0)
setstyle spin,ws_child | ws_visible | uds_nothousands | uds_setbuddyint | uds_alignright

do {

    locate 0,0
    imprimir gettext$(edit)
    waitinput

}

GDL

¡Hola,

habe mich con Michaels Code a früh gefreut.Lassen se con gettext$() no auslesen.

Original-Autor: Thomas Hölzer
Bearbeited: Michael Dell
declarar m&

Proc CrSpinEdit

    Parámetros wHndl&,x&,y&,dx&,dy&,sed_max&,sed_min&,sed_start&,align&,art&
    Def InitCommCntrl(0) !ComCtl32.Dll,InitCommonControls
    Def CreateSpinED(12) !ComCtl32.Dll,CreateUpDownControl
    Declarar sed&,alignCT&

    If (align&>3)

        alignCT& = 8
        align& = (align&-4)

    EndIf

    Casenote (art&=0): art& = 6000  no Punkt conjunto
    InitCommCntrl()
    sed& = CreateSpinED($54800226+alignCT&+art&,0,0,0,0,wHndl&,$0FFFF,%hInstance,
    Control(Editar,,$50000000+align&,x&,y&,dx&,dy&,wHndl&,0,%HInstance,$200),
    sed_max&,sed_min&,sed_start&)
    locate 15,10
    imprimir Erstellungsinhalt= +gettext$(sed&)
    Volver sed&

ENDPROC

**** Ejemplo ****
Windowtitle Über Systemmenü final
Cls Externo(USER32.DLL,GetSysColor,15)
Normales Control
m&=CrSpinEdit(%HWnd,10,10,100,22,10010,9990,10000,0,1)  Links  + UpDown Rechts - Punkt
CrSpinEdit(%HWnd,10,50,100,22,10010,9990,10000,1,1)  Zentriert + UpDown Rechts - Punkt
CrSpinEdit(%HWnd,10,90,100,22,10010,9990,10000,2,1)  Rechts  + UpDown Rechts - Punkt
Gedrehtes Control
CrSpinEdit(%HWnd,150,10,100,22,10010,9990,10000,6,0)  Rechts  + UpDown Links + Punkt
CrSpinEdit(%HWnd,150,50,100,22,10010,9990,10000,5,0)  Zentriert + UpDown Links + Punkt
CrSpinEdit(%HWnd,150,90,100,22,10010,9990,10000,4,0)  Links  + UpDown Links + Punkt

Mientras que 1

    WaitInput
    locate 16,10
    imprimir Ausleseinhalt= +gettext$(m&)

EndWhile

End

Probiere nun iFs Vorschlag de.

Servus
Georg

Windows7 Xprofan 8,9,10 [...]

GDL

Hola si,

Warst más rápido, kann kein Spinedit mittels gettext$() de esta Codebeispielen auslesen.

Servus
Georg

Windows7 Xprofan 8,9,10 [...]

Jörg
Sellmeyer

¡Hola Georg,

Damit funktioniert lo:

imprimir "Ausleseinhalt= "+gettext$(SendMessage(m&,1130,0,0))'UDM_GETBUDDY

Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...

GDL

Lo va, klasse.

Servus
Georg

Windows7 Xprofan 8,9,10 [...]

- Página 2 -

GDL

Probiere nun incluso ya con Xprofan seinen settext y wm_settext rum, bekomme lo pero no hin.
Jörg weisste zufällig auch el Möglichkeit para settext.Gracias.

Servus
Georg

Windows7 Xprofan 8,9,10 [...]

24.08.2007 ▲

Jörg
Sellmeyer

¡Hola Georg,
Usted mußt otra vez el Message UDM_GetBuddy einsetzen:

SetText SendMessage(m&,$046A,0,0),9992

So debería lo trabajo.

Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...

25.08.2007 ▲

GDL

Funzt einwandfrei.

Windows7 Xprofan 8,9,10 [...]

25.08.2007 ▲

GDL

Also dieses Spinedit ha lo echt en se.Nun ir el Up/Downpfeile después de
SetText SendMessage(m&,$046A,0,0),9992
no mehr.

Servus
Georg

Windows7 Xprofan 8,9,10 [...]

25.08.2007 ▲

Martin
Kempf

Yo stehe auch antes diesem Tausenderpunktproblem y frage mich, obs en el Versión 11.2 mittlerweile tal vez una einfachen Schalter son, en esta Trennpunkt abzuschalten?

21.08.2009 ▲