| |
| |
|
| - Page 1 - |
|
ByteAttack | Also ich würde mir das zusätzliches Control TrackBar wünschen.
Mit Create("HTrack.... und Create("VTrack.... als Beispiel.
Zur Zeit löse ich das etwas umständlich so:
KompilierenMarkierenSeparierenUSERMESSAGES 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 Beitrag wurde als Lösung 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 es bis dahin, wenn du dir eine Prozedur speicherst (z. B. in einer Include), die du dann einfach aufrufen kannst:
KompilierenMarkierenSeparierenUSERMESSAGES 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 sich die zukünftige Schreibarbeit auf genau eine Zeile. |
|
| |
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ... | 28.08.2015 ▲ |
|
| |
|
|
ByteAttack | Schon klar, war ja auch nur ein Beispiel-Code.
Bitte bei dem Quelltexten IMMER die Variable Ende% benutzen.
( Das bringt David auf die Palme  ) |
|
| |
| |
| |
|
|
 | |
| |
| |
| |
|
|
Jörg
Sellmeyer | |
| |
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ... | 28.08.2015 ▲ |
|
| |
|
(265)
Deutsch
English
Français
Español
Italia