XProfan

Español

Julian
Schmidt

¡Hola,
Yo sería como un VScroll sin esta komischen Pfeile links y rechts redactar.
Yo vermute el Yo dessen Stil bearbeiten muss. Wo finde Soy un Überblick a esta. Yo habe ya en Konstantinopel geschaut! Dort finde Soy un Eintrag Scrollbar, es el una Scrollbalken? Reicht lo el Stil con SetStyle a transferencia? Oder muss Yo el Element por Control redactar?

Kompilieren Marca Separación

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

mientras que 1

    waitkey
    caso iskey(27) : end

Endwhile

LG

Julian

bild-08.07.2011-15.09-kopie.png	5 kB

Hochgeladen:	08.07.2011

Ladeanzahl:
		Descargar

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

08.07.2011 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

- Página 1 -

zwischenablage01.png	12 kB

Hochgeladen:	08.07.2011

Ladeanzahl:
		Descargar

08.07.2011 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Jörg
Sellmeyer

Im Foro hay no direkten Suchergebnisse

Komisch - y wieso finde Yo entonces igual en el ersten Contribución una lauffähiges Ejemplo...?

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

08.07.2011 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Tust veces como si Usted lesen kannst!

08.07.2011 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Julian
Schmidt

@Jörg
hmmmm....sí el Ejemplo Yo übersehen

@All
¿Cómo se puede Yo el Postion el Trackbar conjunto

Kompilieren Marca Separación

declarar slider1&,slider2&, slider3&,slider4&
cls
Conjunto("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
    imprimir "Trackbar 1:";255-SendMessage(slider1&,$0400,0,0);"  "
    imprimir "Trackbar 2:";100-SendMessage(slider2&,$0400,0,0);"  "
    imprimir "Trackbar 3:";SendMessage(slider3&,$0400,0,0);"  "
    imprimir "Trackbar 4:";SendMessage(slider4&,$0400,0,0);"  "

endwhile

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

09.07.2011 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

- Página 2 -

Was meinsten...

09.07.2011 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Julian
Schmidt

hmmmm....vermutlich es TBM_SETPOS oder TBM_SETSEL.

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

09.07.2011 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

So siehts veces de: [...]

09.07.2011 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Julian
Schmidt

hmmm...sí.
Nun se zwar el Position gesetzt, pero la Scrollbalken no es movido.
Gibt lo dafür auch una Message? ¿Es TBM_SETSEL?
Kompilieren Marca Separación

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 Cita Zeilenweise Cita

Dieter
Zornow

TBM_setpos = $0405 no $0406
si du $0405 nimmst debería lo ir

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 Cita Zeilenweise Cita

Julian
Schmidt

Dieter Zornow (09.07.11)

TBM_setpos = $0405 no $0406
si du $0405 nimmst debería lo ir

tener Todavía, oder?
Kompilieren Marca Separación

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 Cita Zeilenweise Cita

Thomas
Freier

Probier veces
Kompilieren Marca Separación

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

Gruß Thomas
Windows XP SP2, XProfan X2

09.07.2011 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Julian
Schmidt

hmmm...danke
Kompilieren Marca Separación

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