Using scrollbars
Posted: Tue Aug 24, 2010 2:50 pm
Hey what is the code for scrollbars both V and H for scrolling a panel or something else like in a listbox or a multiline textbox?
Code: Select all
And this would scroll lines in a textbox:
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
HScrollBar1.LargeChange = 1
HScrollBar1.Maximum = ListBox1.Items.Count - 1
End Sub
Private Sub HScrollBar1_Scroll(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ScrollEventArgs) Handles HScrollBar1.Scroll
ListBox1.SelectedIndex = HScrollBar1.Value
End Sub
Code: Select all
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
VScrollBar1.LargeChange = 1
End Sub
Private Sub VScrollBar1_Scroll_1(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ScrollEventArgs) Handles VScrollBar1.Scroll
If TextBox1.Text.Length > 0 Then
Dim lineStarts As List(Of Integer) = New List(Of Integer)
For i As Integer = 0 To TextBox1.Text.Length - 2
If TextBox1.Text.Substring(i, 2) = vbCrLf Then
lineStarts.Add(i)
End If
Next
VScrollBar1.Maximum = lineStarts.Count
If VScrollBar1.Value < lineStarts.Count Then
TextBox1.SelectionStart = lineStarts(VScrollBar1.Value)
Else
TextBox1.SelectionStart = TextBox1.Text.Length
End If
TextBox1.ScrollToCaret()
End If
End Sub