XProfan

Italia

Julian
Schmidt

Ciao,
ich würde gerne einen VScroll ohne diese komischen Pfeile links und rechts erstellen.
Ich vermute das ich dessen Stil bearbeiten muss. Wo finde ich einen Überblick zu diesen. Ich habe bereits in Konstantinopel geschaut! Dort finde ich einen Eintrag Scrollbar, ist das ein Scrollbalken? Reicht es den Stil mit SetStyle zu trasferimento? Oder muss ich das Element per Control erstellen?

Kompilieren Markieren Separieren

Windowstyle 24
Window 100,200-200,70
Windowtitle "Scrollbalken"
var Scrollbalken&=Create("HScroll",%hwnd,"",10,10,width(%hwnd)-20,height(%hwnd)-20)
SetScrollRange Scrollbalken&,0,100
SetScrollPos Scrollbalken&,50

while 1

    waitkey
    case iskey(27) : end

Endwhile

LG

Julian

bild-08.07.2011-15.09-kopie.png	5 kB

Hochgeladen:	08.07.2011

Downloadcounter:
		Download

˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗
Webseite [...]

08.07.2011 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

- Page 1 -

zwischenablage01.png	12 kB

Hochgeladen:	08.07.2011

Downloadcounter:
		Download

08.07.2011 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

Jörg
Sellmeyer

Im Foro gibt es keine direkten Suchergebnisse

Komisch - und wieso finde ich dann gleich im ersten Beitrag ein lauffähiges Beispiel...?

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

08.07.2011 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

Tust mal als ob Du lesen kannst!

08.07.2011 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

Julian
Schmidt

@Jörg
hmmmm....ja das Beispiel habe ich übersehen

@All
Wie kann ich die Postion der Trackbar setzen

Kompilieren Markieren Separieren

declare slider1&,slider2&, slider3&,slider4&
cls
Set("decimals",0)
slider1&=Control("MSCTLS_TRACKBAR32", "Trackbar01", $54000012, 10, 100, 25, 100, %hwnd, 2011, %hInstance, $00010004)
slider2&=Control("MSCTLS_TRACKBAR32", "Trackbar02", $5400000e, 70, 100, 40, 100, %hwnd, 2011, %hInstance, $00010004)
slider3&=control("MSCTLS_TRACKBAR32","Trackbar03",$50400061,10,210,400,30,%hwnd,0,%hinstance)
slider4&=control("MSCTLS_TRACKBAR32","Trackbar04",$50000010,10,250,400,30,%hwnd,0,%hinstance)
SendMessage(slider1&,$0406,0,MakeLong(0,255))
SendMessage(slider2&,$0406,0,MakeLong(0,100))
SendMessage(slider3&,$0406,0,MakeLong(0,100))
SendMessage(slider4&,$0406,0,MakeLong(0,100))

whilenot %scankey=27

    waitinput
    locate 1,1
    print "Trackbar 1:";255-SendMessage(slider1&,$0400,0,0);"  "
    print "Trackbar 2:";100-SendMessage(slider2&,$0400,0,0);"  "
    print "Trackbar 3:";SendMessage(slider3&,$0400,0,0);"  "
    print "Trackbar 4:";SendMessage(slider4&,$0400,0,0);"  "

endwhile

˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗
Webseite [...]

09.07.2011 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

- Page 2 -

Was meinsten...

09.07.2011 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

Julian
Schmidt

hmmmm....presumibilmente ist es TBM_SETPOS oder TBM_SETSEL.

˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗
Webseite [...]

09.07.2011 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

So siehts mal aus: [...]

09.07.2011 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

Julian
Schmidt

hmmm...ja.
Nun wird zwar die Position gesetzt, aber der Scrollbalken wird nicht verschoben.
Gibt es dafür auch eine Message? Ist es TBM_SETSEL?
Kompilieren Markieren Separieren

declare slider1&,slider2&, slider3&,slider4&
cls
Set("decimals",0)
slider1&=Control("MSCTLS_TRACKBAR32", "Trackbar01", $54000012, 10, 100, 25, 100, %hwnd, 2011, %hInstance, $00010004)
slider2&=Control("MSCTLS_TRACKBAR32", "Trackbar02", $5400000e, 70, 100, 40, 100, %hwnd, 2011, %hInstance, $00010004)
slider3&=control("MSCTLS_TRACKBAR32","Trackbar03",$50400061,10,210,400,30,%hwnd,0,%hinstance)
slider4&=control("MSCTLS_TRACKBAR32","Trackbar04",$50000010,10,250,400,30,%hwnd,0,%hinstance)
SendMessage(slider1&,$0406,0,MakeLong(0,255))
SendMessage(slider2&,$0406,0,MakeLong(0,100))
SendMessage(slider3&,$0406,0,MakeLong(0,100))
SendMessage(slider4&,$0406,0,MakeLong(0,100))
SendMessage(slider4&,$0405,0,50)'SetPos

whilenot %scankey=27

    locate 1,1
    print "Trackbar 1:";255-SendMessage(slider1&,$0400,0,0);"  "
    print "Trackbar 2:";100-SendMessage(slider2&,$0400,0,0);"  "
    print "Trackbar 3:";SendMessage(slider3&,$0400,0,0);"  "
    print "Trackbar 4:";SendMessage(slider4&,$0400,0,0);"  "
    waitinput

endwhile

˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗
Webseite [...]

09.07.2011 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

Dieter
Zornow

TBM_setpos = $0405 nicht $0406
wenn du $0405 nimmst sollte es gehen

Er ist ein Mann wie ein Baum. Sie nennen ihn Bonsai., Win 7 32 bit und Win 7 64 bit, mit XProfan X2

09.07.2011 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

Julian
Schmidt

Dieter Zornow (09.07.11)

TBM_setpos = $0405 nicht $0406
wenn du $0405 nimmst sollte es gehen

hab ich doch, oder?
Kompilieren Markieren Separieren

declare slider1&,slider2&, slider3&,slider4&
cls
Set("decimals",0)
slider1&=Control("MSCTLS_TRACKBAR32", "Trackbar01", $54000012, 10, 100, 25, 100, %hwnd, 2011, %hInstance, $00010004)
slider2&=Control("MSCTLS_TRACKBAR32", "Trackbar02", $5400000e, 70, 100, 40, 100, %hwnd, 2011, %hInstance, $00010004)
slider3&=control("MSCTLS_TRACKBAR32","Trackbar03",$50400061,10,210,400,30,%hwnd,0,%hinstance)
slider4&=control("MSCTLS_TRACKBAR32","Trackbar04",$50000010,10,250,400,30,%hwnd,0,%hinstance)
SendMessage(slider1&,$0406,0,MakeLong(0,255))
SendMessage(slider2&,$0406,0,MakeLong(0,100))
SendMessage(slider3&,$0406,0,MakeLong(0,100))
SendMessage(slider4&,$0406,0,MakeLong(0,100))
SendMessage(slider4&,$0405,0,50)'SetPos

whilenot %scankey=27

    locate 1,1
    print "Trackbar 1:";255-SendMessage(slider1&,$0400,0,0);"  "
    print "Trackbar 2:";100-SendMessage(slider2&,$0400,0,0);"  "
    print "Trackbar 3:";SendMessage(slider3&,$0400,0,0);"  "
    print "Trackbar 4:";SendMessage(slider4&,$0400,0,0);"  "
    waitinput

endwhile

˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗
Webseite [...]

09.07.2011 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

Thomas
Freier

Probier mal
Kompilieren Markieren Separieren

var x%=60
sendmessage(slider3&,$405,30,x%)e>

Gruß Thomas
Windows XP SP2, XProfan X2

09.07.2011 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

Julian
Schmidt

hmmm...danke
Kompilieren Markieren Separieren

declare slider1&,slider2&, slider3&,slider4&
cls
Set("decimals",0)
slider1&=Control("MSCTLS_TRACKBAR32", "Trackbar01", $54000012, 10, 100, 25, 100, %hwnd, 2011, %hInstance, $00010004)
slider2&=Control("MSCTLS_TRACKBAR32", "Trackbar02", $5400000e, 70, 100, 40, 100, %hwnd, 2011, %hInstance, $00010004)
slider3&=control("MSCTLS_TRACKBAR32","Trackbar03",$50400061,10,210,400,30,%hwnd,0,%hinstance)
slider4&=control("MSCTLS_TRACKBAR32","Trackbar04",$50000010,10,250,400,30,%hwnd,0,%hinstance)
SendMessage(slider1&,$0406,0,MakeLong(0,255))
SendMessage(slider2&,$0406,0,MakeLong(0,100))
SendMessage(slider3&,$0406,0,MakeLong(0,100))
SendMessage(slider4&,$0406,0,MakeLong(0,100))'SetRange
Sendmessage(slider3&,$405,1,50)'SetPos

whilenot %scankey=27

    locate 1,1
    print "Trackbar 1:";255-SendMessage(slider1&,$0400,0,0);"  "'GetPos
    print "Trackbar 2:";100-SendMessage(slider2&,$0400,0,0);"  "
    print "Trackbar 3:";SendMessage(slider3&,$0400,0,0);"  "
    print "Trackbar 4:";SendMessage(slider4&,$0400,0,0);"  "
    waitinput

endwhile