XProfan

très joli! Absent miur encore...

26.10.2004 ▲

Kompilieren Marque Séparation

Jörg
Sellmeyer

malheureusement ist qui Code par qui Forumssoftware zerschossen.
je habs la fois wieder hergestellt.

'Orginal de Thomas Bois
'Bearbeitet: Michael Dell
'UDM_SETPOS              = 1127;
'UDM_GETPOS              = 1128;
 $I profalt.inc
Def InitCommCntrl(0) !"ComCtl32.Dll","InitCommonControls"
Def CreateSpinED(12) !"ComCtl32.Dll","CreateUpDownControl"

Proc CrSpinEdit

    Paramètres wHndl&,x&,y&,dx&,dy&,sed_max&,sed_min&,sed_start&,align&,alignCT&
    Déclarer sed&,budd&
    Cas Or(Lt(align&,1),Gt(align&,2)): align& = 0

    Si Equ(alignCT&,1)

        alignCT& = $5480022E

    D'autre

        alignCT& = $54800226

    EndIf

    InitCommCntrl()
    sed&  = CreateSpinED(alignCT&,0,0,0,0,wHndl&,$0FFFF,%HINSTANCE,\
    Contrôle("Edit",»,$50000000+align&,x&,y&,dx&,dy&,wHndl&,0,%HInstance,$200),\
    sed_max&,sed_min&,sed_start&)
    budd& = SendMessage(sed&,1130,0,0)
    Retour sed&

ENDPROC

Windowtitle "Über Systemmenü beenden"
Cls RGB(200,208,216)
'Normales Contrôle
CrSpinEdit(%HWnd,10,10,100,22,10010,9990,10000,0,0)'à gauche
CrSpinEdit(%HWnd,10,50,100,22,10010,9990,10000,1,0)'Zentriert
CrSpinEdit(%HWnd,10,90,100,22,10010,9990,10000,2,0)'à droite
'Gedrehtes Contrôle
CrSpinEdit(%HWnd,150,10,100,22,10010,9990,10000,0,1)'à gauche
CrSpinEdit(%HWnd,150,50,100,22,10010,9990,10000,1,1)'Zentriert
CrSpinEdit(%HWnd,150,90,100,22,10010,9990,10000,2,1)'à droite

Tandis que 1

    WaitInput

Wend

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

22.05.2018 ▲

p.specht

avec GetText(sed&) klappt es pas, à qui Werte qui SpinEdits trop venons. quoi fais je faux?

Computer: Gerät, daß es in Mikrosekunden erlaubt, 50.000 Fehler zu machen, zB 'daß' statt 'das'...

Kompilieren Marque Séparation

Jörg
Sellmeyer

Proc GetSpinBuddy

    Paramètres SpinEd&
    Retour SendMessage(SpinEd&,1130,0,0)

ENDPROC

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

p.specht

malheureusement trop doof:
...
SpinH&=CrSpinEdit(%HWnd,150,90,100,22,10010,9990,10000,2,1)

Tandis que 1:WaitInput
locate 30,30:imprimer GetSpinBuddy(SpinH&);" "
Endwhile
FIN

... brachte es pas (Liefert konstanten Wert).

XProfan 11
Computer: Gerät, daß es in Mikrosekunden erlaubt, 50.000 Fehler zu machen, zB 'daß' statt 'das'...

Kompilieren Marque Séparation

Jörg
Sellmeyer

Logisch! c'est oui aussi cela Handle des Buddys.
Du musst GetText$(GetSpinBuddy(hdl&)) abfragen.
là bietet sich ensuite aussi un Headereintrag un:
SpinTxt( = GetText$(GetSpinBuddy(;

Imprimer ~SpinTxt(%hwnd,hdl&)) ' qui 2. Klammer pas oublier qc!

ou bien juste ne entsprechende Procédure:

Proc GetSpinTxt

    Paramètres SpinEd&
    Retour GetText $(SendMessage(SpinEd&,1130,0,0))

ENDPROC

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

p.specht

DANKE!

XProfan 11
Computer: Gerät, daß es in Mikrosekunden erlaubt, 50.000 Fehler zu machen, zB 'daß' statt 'das'...