XProfan

Français

Julian
Schmidt

Salut,
je serait volontiers une VScroll sans cet komischen Pfeile à gauche et à droite erstellen.
je vermute le moi dessen Stil Travailler muss. wohin finde je une Überblick trop cette. j'ai bereits dans Konstantinopel geschaut! là finde je une Eintrag Scrollbar, ist cela un Scrollbalken? Reicht es den Stil avec SetStyle trop transfert? ou bien muss je cela Element per Contrôle erstellen?

Kompilieren Marque Séparation

Windowstyle 24
Fenêtre 100,200-200,70
Windowtitle "Scrollbalken"
var Scrollbalken&=Créer("HScroll",%hwnd,»,10,10,width(%hwnd)-20,height(%hwnd)-20)
SetScrollRange Scrollbalken&,0,100
SetScrollPos Scrollbalken&,50

tandis que 1

    waitkey
    cas 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 citation

Absatzweise Citation Zeilenweise Citation

- page 1 -

zwischenablage01.png	12 kB

Hochgeladen:	08.07.2011

Downloadcounter:
		Download

08.07.2011 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Jörg
Sellmeyer

Im Forum gibt es aucun direkten Suchergebnisse

Komisch - et wieso finde je ensuite juste im ersten Beitrag un lauffähiges Beispiel...?

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

08.07.2011 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Tust la fois comme si Du lesen peux!

08.07.2011 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Julian
Schmidt

@Jörg
hmmmm....oui cela Beispiel habe je übersehen

@All
comment peux je qui Postion qui Trackbar mettons

Kompilieren Marque Séparation

declare slider1&,slider2&, slider3&,slider4&
cls
Set("decimals",0)
slider1&=Contrôle("MSCTLS_TRACKBAR32", "Trackbar01", $54000012, 10, 100, 25, 100, %hwnd, 2011, %hInstance, $00010004)
slider2&=Contrôle("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
    imprimer "Trackbar 1:";255-SendMessage(slider1&,$0400,0,0);"  "
    imprimer "Trackbar 2:";100-SendMessage(slider2&,$0400,0,0);"  "
    imprimer "Trackbar 3:";SendMessage(slider3&,$0400,0,0);"  "
    imprimer "Trackbar 4:";SendMessage(slider4&,$0400,0,0);"  "

endwhile

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

09.07.2011 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

- page 2 -

quoi meinsten...

09.07.2011 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Julian
Schmidt

hmmmm....probablement ist es TBM_SETPOS ou bien TBM_SETSEL.

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

09.07.2011 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

So siehts la fois aus: [...]

09.07.2011 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Julian
Schmidt

hmmm...oui.
eh bien wird zwar qui Position gesetzt, mais qui Scrollbalken wird pas déménagé.
Gibt es pour aussi une Message? Ist es TBM_SETSEL?
Kompilieren Marque Séparation

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 citation

Absatzweise Citation Zeilenweise Citation

Dieter
Zornow

TBM_setpos = $0405 pas $0406
si du $0405 prends sollte es aller

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 citation

Absatzweise Citation Zeilenweise Citation

Julian
Schmidt

Dieter Zornow (09.07.11)

TBM_setpos = $0405 pas $0406
si du $0405 prends sollte es aller

hab je doch, ou bien?
Kompilieren Marque Séparation

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 citation

Absatzweise Citation Zeilenweise Citation

Thomas
Freier

Probier la fois
Kompilieren Marque Séparation

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

Gruß Thomas
Windows XP SP2, XProfan X2

09.07.2011 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Julian
Schmidt

hmmm...merci
Kompilieren Marque Séparation

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