Scrollbar, Scrollbalken verschieben

[M Merlin]

Hallo zusammen,
ich erstelle wie folgt eine Srcollbar auf meiner Form:

[highlight=vbnet]
Dim hScrollBar1 As New HScrollBar()
hScrollBar1.AutoScroll = True
[/highlight]


Die Scrollbar erscheint mit dem Scrollbalken links am Anschlag. Ich möchte den Balken an den rechten Anschlag per Code verschieben.

Wie geht das. Hat jamand eine Idee...??

Danke

[Ralf Jansen]

Der rechte Anschlag ist der Maximum Wert der Scrollbar. Also einfach die Value Property (die hält die Position) auf den Wert der Maximum Property setzen.

Edit: Autoscroll??? Gibt es das bei eine Scrollbar?

[M Merlin]

Autoscroll??? Gibt es das bei eine Scrollbar?

Nein. Da habe ich mich verschrieben. Autoscroll bezieht sich auf die Form.
[highlight=vbnet]Me.AutoScroll[/highlight]


Ich habe das schon wier folgt versucht:
[highlight=vbnet]
With hScrollBar1
.Maximum = 100
.Value = 100
End With
[/highlight]

Da verschiebt sich aber der Scrollbalken nicht...

Hast du das bei dioe mal probiert? Geht das bei dir?

[Ralf Jansen]

Hast du das bei dioe mal probiert? Geht das bei dir?

Jetzt gerade und ja es geht.

[M Merlin]

Ich habe hier nochmal nen Beispeil:

[highlight=vbnet]
Public Class Form1
Private Hs As HScrollBar
Private lbl As New Label
Friend WithEvents btn As New Button

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
With Me
With lbl
.Name = "Mylbl"
.Text = "Test"
.Top = 10
.Left = 300
'.Visible = True
'.BringToFront()
End With
.Controls.Add(lbl)
With btn
.Name = "myBtn"
.Text = "Button"
.Top = 50
.Left = 10
End With
.Controls.Add(btn)
Hs = New HScrollBar
.AutoScroll = True
.Width = 100
.Height = 200
End With
End Sub

Private Sub btn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn.Click
Hs.Value = Hs.Maximum
End Sub
End Class
[/highlight]

Das funktioniert bei mir nicht...
Bitte mal ausprobieren...

Danke.

Ist das bei dir auch so, warum oder warum gehts bei dir und bei mir nicht...???

[M Merlin]

Ich denke, ich habe da bisher einen Denkfehler gehabt...

und zwar...

Me.AutoScroll = True zeige ich die Scrollbar der Form an. Mit Hs = New HScrollBar würde ich zwar generell eine Scrollbar erzeugen, die ist aber in der Form noch nicht vorhanden. Würde ich diese mit Me.Controls.Add hinzufügen, wäre zwar eine Scrollbar vorhanden, aber erst einmal ohne wirkund der Scrolleigenschaft.

Also mit Me.AutoScroll = True habe ich nun eine Scrollbar auf der Form und diese Bewegt dann auch die Position des sichtbaren Bereichs der Form.

Wie kann ich aber diesen Balken dieser Scrollbar ganz an den rechten Anschlag schieben...??

[Ralf Jansen]

Entweder mit

Me.ScrollControlIntoView(lbl)

ein Control das z.B ganz rechts liegt in den sichtbaren Bereich holen. Das braucht man meistens eher als eine absolute Position zu setzen. Oder mit

Me.AutoScrollPosition = New Point(500, 0)

eben eine absolute Position direkt setzen. Wobei ich nicht genau weiß auf was sich der Point bezieht und wie man 'den rechten Anschlag' bestimmt.

[M Merlin]

OK.

Danke.
Werd ich mal testen ob ich damit weiterkomme...