XProfan

- page 1 -

Uwe's variante comme mögliche XPSE

window 200,100-300,150
long Éditer=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
    imprimer gettext$(edit)
    imprimer sendmessage(updown,udm_getpos,0,0)
    waitinput

}

intéressant cela ca pas funktioniert:

cls
long Éditer=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
    imprimer gettext$(edit)
    waitinput

}

GDL

Salut,

habe mich avec Michaels Code trop tôt gefreut.laisser sich avec gettext$() pas auslesen.

Original-Autor: Thomas Bois
Bearbeited: Michael Dell
declare m&

Proc CrSpinEdit

    Paramètres 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
    Déclarer sed&,alignCT&

    Si (align&>3)

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

    EndIf

    Casenote (art&=0): art& = 6000  keinen Punkt mettons
    InitCommCntrl()
    sed& = CreateSpinED($54800226+alignCT&+art&,0,0,0,0,wHndl&,$0FFFF,%HINSTANCE,
    Contrôle(Éditer,,$50000000+align&,x&,y&,dx&,dy&,wHndl&,0,%HInstance,$200),
    sed_max&,sed_min&,sed_start&)
    locate 15,10
    imprimer Erstellungsinhalt= +gettext$(sed&)
    Retour sed&

ENDPROC

**** Beispiel ****
Windowtitle Über Systemmenü finissons
Cls Externe(USER32.DLL,GetSysColor,15)
Normales Contrôle
m&=CrSpinEdit(%HWnd,10,10,100,22,10010,9990,10000,0,1)  à gauche  + UpDown à droite - Punkt
CrSpinEdit(%HWnd,10,50,100,22,10010,9990,10000,1,1)  Zentriert + UpDown à droite - Punkt
CrSpinEdit(%HWnd,10,90,100,22,10010,9990,10000,2,1)  à droite  + UpDown à droite - Punkt
Gedrehtes Contrôle
CrSpinEdit(%HWnd,150,10,100,22,10010,9990,10000,6,0)  à droite  + UpDown à gauche + Punkt
CrSpinEdit(%HWnd,150,50,100,22,10010,9990,10000,5,0)  Zentriert + UpDown à gauche + Punkt
CrSpinEdit(%HWnd,150,90,100,22,10010,9990,10000,4,0)  à gauche  + UpDown à gauche + Punkt

Tandis que 1

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

Endwhile

Fin

Probiere eh bien iFs Vorschlag aus.

salut
Georg

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

GDL

allô iF,

étais plus rapide, peux ne...aucune Spinedit mittels gettext$() de cette Codebeispielen auslesen.

salut
Georg

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

Jörg
Sellmeyer

allô Georg,

avec cela funktioniert es:

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

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

GDL

und dir, super.

salut
Georg

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

- page 2 -

GDL

Probiere eh bien selbst déjà avec Xprofan seinen settext et wm_settext rum, bekomme es mais pas hin.
Jörg weisste zufällig aussi qui Possibilité pour settext.merci.

salut
Georg

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

24.08.2007 ▲

Jörg
Sellmeyer

allô Georg,
tu dois wieder qui Message UDM_GetBuddy einsetzen:

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

So sollte es marcher.

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

alors cet Spinedit hat es vraie dans sich.eh bien aller qui Up/Downpfeile pour
SetText SendMessage(m&,$046A,0,0),9992
pas plus.

salut
Georg

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

25.08.2007 ▲

Martin
Kempf

je stehe aussi avant diesem Tausenderpunktproblem et frage mich, obs dans qui Version 11.2 mittlerweile peut-être une einfachen commutateur gibt, um cette Trennpunkt abzuschalten?

21.08.2009 ▲