Ja tiež vôbec nie som si istý, či viem, čo vlastne chcete, ale ak Vám to pomôže?...
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
VScrollBar1.Value = VScrollBar1.Maximum
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
VScrollBar1.Value = VScrollBar1.Minimum
End Sub
End Class
alebo
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
TextBox1.Multiline = True
TextBox1.ScrollBars = ScrollBars.Vertical
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox1.SelectionStart = 0
TextBox1.ScrollToCaret()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
TextBox1.SelectionStart = TextBox1.TextLength + 1
TextBox1.ScrollToCaret()
End Sub
End Class
alebo http://www.vbnet.cz/forum-tema--491-velk...
|