Fuente/ Codesnippets | | | | | 
Michael
Dell | Manches es sólo Ansichtssache 
KompilierenMarcaSeparaciónOrginal von Thomas Hölzer
Bearbeitet: Michael Dell
UDM_SETPOS = 1127;
UDM_GETPOS = 1128;
Def InitCommCntrl(0) !ComCtl32.Dll,InitCommonControls
Def CreateSpinED(12) !ComCtl32.Dll,CreateUpDownControl
Proc CrSpinEdit
Parameters wHndl&,x&,y&,dx&,dy&,sed_max&,sed_min&,sed_start&,align&,alignCT&
Declare sed&
Case Or(Lt(align&,1),Gt(align&,2)): align& = 0
If Equ(alignCT&,1)
alignCT& = $5480022E
Else
alignCT& = $54800226
EndIf
InitCommCntrl()
sed& = CreateSpinED(alignCT&,0,0,0,0,wHndl&,$0FFFF,%hinstance,
Control(Edit,,$50000000+align&,x&,y&,dx&,dy&,wHndl&,0,%HInstance,$200),
sed_max&,sed_min&,sed_start&)
budd& = SendMessage(sed&,1130,0,0)
Return sed&
EndProc
Windowtitle Über Systemmenü beenden
Cls RGB(200,208,216)
Normales Control
CrSpinEdit(%HWnd,10,10,100,22,10010,9990,10000,0,0) Links
CrSpinEdit(%HWnd,10,50,100,22,10010,9990,10000,1,0) Zentriert
CrSpinEdit(%HWnd,10,90,100,22,10010,9990,10000,2,0) Rechts
Gedrehtes Control
CrSpinEdit(%HWnd,150,10,100,22,10010,9990,10000,0,1) Links
CrSpinEdit(%HWnd,150,50,100,22,10010,9990,10000,1,1) Zentriert
CrSpinEdit(%HWnd,150,90,100,22,10010,9990,10000,2,1) Rechts
While 1
WaitInput
Wend
Saludo
Michael... |
| | | | Salu Michael...
Hab zwar krumme Fieß awer dofir e' ecklich Gsicht! | 26.10.2004 ▲ |
| | |
| |  | Sehr schön! Fehlt miur todavía...
 |
| | | | | | |
| | 
Jörg
Sellmeyer | Leider es el Code por el Forumssoftware zerschossen.
Yo habs veces otra vez producido.
'Orginal por Thomas Hölzer
'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
Parámetros wHndl&,x&,y&,dx&,dy&,sed_max&,sed_min&,sed_start&,align&,alignCT&
Declarar sed&,budd&
Case Or(Lt(align&,1),Gt(align&,2)): align& = 0
If Equ(alignCT&,1)
alignCT& = $5480022E
Más
alignCT& = $54800226
EndIf
InitCommCntrl()
sed& = CreateSpinED(alignCT&,0,0,0,0,wHndl&,$0FFFF,%hInstance,\
Control("Edit","",$50000000+align&,x&,y&,dx&,dy&,wHndl&,0,%HInstance,$200),\
sed_max&,sed_min&,sed_start&)
budd& = SendMessage(sed&,1130,0,0)
Volver sed&
ENDPROC
Windowtitle "Über Systemmenü beenden"
Cls RGB(200,208,216)
'Normales Control
CrSpinEdit(%HWnd,10,10,100,22,10010,9990,10000,0,0)'Links
CrSpinEdit(%HWnd,10,50,100,22,10010,9990,10000,1,0)'Zentriert
CrSpinEdit(%HWnd,10,90,100,22,10010,9990,10000,2,0)'Rechts
'Gedrehtes Control
CrSpinEdit(%HWnd,150,10,100,22,10010,9990,10000,0,1)'Links
CrSpinEdit(%HWnd,150,50,100,22,10010,9990,10000,1,1)'Zentriert
CrSpinEdit(%HWnd,150,90,100,22,10010,9990,10000,2,1)'Rechts
Mientras que 1
WaitInput
Wend
|
| | | | | | |
| | 
p.specht
 | | Mit GetText(sed&) klappt no, a el Werte el SpinEdits a kommen. Was mache Yo falso? |
| | | | Computer: Gerät, daß es in Mikrosekunden erlaubt, 50.000 Fehler zu machen, zB 'daß' statt 'das'... | 24.05.2018 ▲ |
| | |
| |
Jörg
Sellmeyer | | | | | | | |
| |
p.specht
| Leider a doof:
...
SpinH&=CrSpinEdit(%HWnd,150,90,100,22,10010,9990,10000,2,1)
Mientras que 1:WaitInput
locate 30,30:imprimir GetSpinBuddy(SpinH&);" "
EndWhile
FIN
... brachte no (Liefert konstanten Valor). |
| | | | XProfan 11Computer: Gerät, daß es in Mikrosekunden erlaubt, 50.000 Fehler zu machen, zB 'daß' statt 'das'... | 24.05.2018 ▲ |
| | |
| |
Jörg
Sellmeyer | Logisch! Es en efecto el Handle des Buddys.
Usted musst GetText$(GetSpinBuddy(hdl&)) abfragen.
Como bietet se entonces auch una Headereintrag una:
SpinTxt( = GetText$(GetSpinBuddy(;
Imprimir ~SpinTxt(%hwnd,hdl&)) ' el 2. Klammer no vergessen!
Oder igual ne entsprechende Procedimiento:
|
| | | | Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ...  | 24.05.2018 ▲ |
| | |
| |
p.specht
| | | | | XProfan 11Computer: Gerät, daß es in Mikrosekunden erlaubt, 50.000 Fehler zu machen, zB 'daß' statt 'das'... | 24.05.2018 ▲ |
| | |
|
Zum QuelltextThemeninformationenDieses Thema ha 4 subscriber: |
(913)
Deutsch
English
Français
Español
Italia