| |
| |
|
| - Página 1 - |
|
ByteAttack | Also Yo sería me zusätzliches Control TrackBar wünschen.
Mit Crear("HTrack.... y Crear("VTrack.... como Ejemplo.
En el momento löse Yo el algo umständlich así:
KompilierenMarcaSeparaciónUSERMESSAGES 16
$H windows.ph
$H commctrl.ph
Declare Ende%,TrackBar&,TrackBar2&,Font&,TB1&,TB2&
WindowStyle 30
WindowTitle "TrackBar"
Window %maxX,0-380,200
Font& = Create("Font","Verdana",13,0,0,0,0)
SetDialogFont Font&
CLS ~GetSysColor(15)
' ############ TrackBar mit Skala
Create("Text",%hwnd,"TrackBar mit Skala",15,10,200,24)
TrackBar& = Control("MSCtls_TrackBar32", "", $54010061,10,30,300,35,%hwnd,$4001,%hInstance, 0)
SendMessage(TrackBar&, ~TBM_SETRANGE, 0, MakeLong(0, 100))'Bereich
SendMessage(TrackBar&, ~TBM_SETPOS, 1, 30)'Aktuelle Position
SendMessage(TrackBar&, ~TBM_SETTICFREQ, 10, 0)'Teiler für die Skala
TB1&=Create("Text",%hwnd,"30",320,35,30,25)
SetFont TB1&,Font&
' ############ TrackBar Schmal
Create("Text",%hwnd,"TrackBar Schmal",15,80,200,24)
TrackBar2& = Control("MSCtls_TrackBar32", "", $54010050,10,100,300,25,%hwnd,$4001,%hInstance, 0)
SendMessage(TrackBar2&, ~TBM_SETRANGE, 0, MakeLong(0, 100))'Bereich
SendMessage(TrackBar2&, ~TBM_SETPOS, 1, 30)'Aktuelle Position
TB2&=Create("Text",%hwnd,"30",320,105,30,25)
SetFont TB2&,Font&
SetWindowPos %hwnd=(%maxX/2-190),(%maxY/2-100)-380,200;0
WhileNot ende%
WaitInput
Case %Umessage=16:end
SetText TB1&,Str$(SendMessage(TrackBar&, ~TBM_GETPOS, 0, 0))
SetText TB2&,Str$(SendMessage(TrackBar2&, ~TBM_GETPOS, 0, 0))
EndWhile
|
 |
| |
| |
| |
|
 |
« Dieser Contribución wurde como Solución gekennzeichnet. » |
|
Jörg
Sellmeyer | |
| |
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ...  | 28.08.2015 ▲ |
|
| |
|
|
|
Jörg
Sellmeyer | Etwas weniger umständlich wäre lo a dahin, si du dir una Procedimiento speicherst (z. B. en uno Incluir), el du entonces simplemente aufrufen kannst:
KompilierenMarcaSeparaciónUSERMESSAGES 16
$H windows.ph
$H commctrl.ph
Declare TrackBar&,Font&
WindowStyle 30
WindowTitle "TrackBar"
Window 380,200
Font& = Create("Font","Verdana",13,0,0,0,0)
SetDialogFont Font&
CLS ~GetSysColor(15)
Proc NewTrackbar
Parameters hwnd&,X%,Y%,B%,H%,Bereich%,Pos&,Freq&',Stil&
Declare TB&
TB& = Control("MSCtls_TrackBar32", "", $54010061,X%,Y%,B%,H%,hwnd&,$4001,%hInstance, 0)
SendMessage(TB&, ~TBM_SETRANGE, 0, MakeLong(0, Bereich%))'Bereich
SendMessage(TB&, ~TBM_SETPOS, 1, Pos&)'Aktuelle Position
SendMessage(TB&, ~TBM_SETTICFREQ, Freq&, 0)'Teiler für die Skala
EndProc
TrackBar& = NewTrackbar(%hwnd,10,10,300,35,200,50,10)
SetFont TrackBar&,Font&
While 1
WaitInput
Case %Umessage = 16:Break
Wend
Damit reduziert el zukünftige Schreibarbeit en genau una Línea. |
|
| |
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ... | 28.08.2015 ▲ |
|
| |
|
|
ByteAttack | Schon klar, war en efecto sólo una Ejemplo-Code.
Bitte en el Quelltexten IMMER el Variable Ende% benutzen.
( Das bringt David en el Palme  ) |
|
| |
| |
| |
|
|
 | |
| |
| |
| |
|
|
Jörg
Sellmeyer | |
| |
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ... | 28.08.2015 ▲ |
|
| |
|
(937)
Deutsch
English
Français
Español
Italia