Deutsch
Wünsche und Anregungen

Vorschläge für künftige Versionen

TrackBar

 
- Seite 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:
KompilierenMarkierenSeparieren
USERMESSAGES 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


13 kB
Hochgeladen:28.08.2015
Ladeanzahl186
Herunterladen
 
XProfan X3
Website:  [...] 
Facebook:  [...] 
28.08.2015  
 



« Dieser Beitrag wurde als Lösung gekennzeichnet. »


Jörg
Sellmeyer
Du meinst sowas?
KompilierenMarkierenSeparieren
Declare ende%
ende% = 1

If ende% =ende%-1

    ende% = 1
    End'e

EndIf

 
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:
KompilierenMarkierenSeparieren
USERMESSAGES 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 )
 
XProfan X3
Website:  [...] 
Facebook:  [...] 
28.08.2015  
 



 
28.08.2015  
 




Jörg
Sellmeyer
Du meinst sowas?
KompilierenMarkierenSeparieren
Declare ende%
ende% = 1

If ende% =ende%-1

    ende% = 1
    End'e

EndIf

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



Antworten


Thementitel, max. 100 Zeichen.
 

Systemprofile:

Kein Systemprofil angelegt. [anlegen]

XProfan:

 Beitrag  Schrift  Smilies  ▼ 

Bitte anmelden um einen Beitrag zu verfassen.
 

Themenoptionen

5.229 Betrachtungen

Themeninformationen

Dieses Thema hat 3 Teilnehmer:

ByteAttack (2x)
Jörg Sellmeyer (2x)
iF (1x)


Admins  |  AGB  |  Anwendungen  |  Autoren  |  Chat  |  Datenschutz  |  Download  |  Eingangshalle  |  Hilfe  |  Händlerportal  |  Impressum  |  Mart  |  Schnittstellen  |  SDK  |  Services  |  Spiele  |  Suche  |  Support

Ein Projekt aller XProfaner, die es gibt!


Mein XProfan
Private Nachrichten
Eigenes Ablageforum
Themen-Merkliste
Eigene Beiträge
Eigene Themen
Zwischenablage
Abmelden
 Deutsch English Français Español Italia
Übersetzungen

Datenschutz


Wir verwenden Cookies nur als Session-Cookies wegen der technischen Notwendigkeit und bei uns gibt es keine Cookies von Drittanbietern.

Wenn du hier auf unsere Webseite klickst oder navigierst, stimmst du unserer Erfassung von Informationen in unseren Cookies auf XProfan.Net zu.

Weitere Informationen zu unseren Cookies und dazu, wie du die Kontrolle darüber behältst, findest du in unserer nachfolgenden Datenschutzerklärung.


einverstandenDatenschutzerklärung
Ich möchte keinen Cookie