vb.net文本框浏览条,vb中文本框滚动条

请教VB.NET文本框自动滚动的问题

你好很高兴回答你的问题，但是又很遗憾，对于你的问题又无能为力。也许你自己已经找到答案明天就是新的一年了，在这里祝你在新的一年里，心想事成。谢谢！

VB.NET中，我已如下设置，为什么文本框还是没有水平滚动条？

还需要把 WordWrap 属性设置为 false。

--------------

备注

如果 WordWrap 属性设置为 true，则不管 ScrollBars 属性的设置是什么，都不会显示水平滚动条。

在vb.net中怎样浏览首记录 、上一条、下一条、尾记录、和数据库access 绑定的

一般，我都不喜欢做这样报上一条下一条，太专业的数据库操作不适合终端用户。

如果必须要做，你可以这样：按排序规则，取到健列表。保存到list中，上下条，只是改变一索引而已。

Imports System.Data.OleDb

Class BindNavigate

Dim cnn As OleDb.OleDbConnection '打开连接略

Dim lst As New List(Of Integer)

Sub New()

lst = New List(Of Integer)

index = -1

Using da As New OleDbDataAdapter("select id from mytable order by abc,def", cnn), tb As New DataTable

da.Fill(tb)

For Each row As DataRow In tb.Rows

Dim n As Integer = row(0)

lst.Add(n)

Next

If tb.Rows.Count 0 Then CurrentIndex = 0

End Using

End Sub

Dim index As Integer Event CurrentIndexChanged()

Property CurrentIndex As Integer

Get

Return index

End Get

Set(ByVal value As Integer)

Dim b As Boolean = value index

index = value

If b Then RaiseEvent CurrentIndexChanged()

End Set

End Property

'当前的键值

ReadOnly Property CurrentValue As Integer

Get

Return lst(index)

End Get

End Property

Sub MoveFirst()

CurrentIndex = 0

End Sub

Sub MovePrevious()

CurrentIndex -= 1

End Sub

Sub MoveNext()

CurrentIndex += 1

End Sub

Sub MoveLast()

CurrentIndex = lst.Count - 1

End Sub

ReadOnly Property BOF

Get

Return CurrentIndex = 0

End Get

End Property

ReadOnly Property EOF

Get

Return CurrentIndex = lst.Count - 1

End Get

End Property

Private Sub Text_CurrentIndexChanged() Handles Me.CurrentIndexChanged

'绑定过程

End Sub

End Class

vb.net 中有多个文本框，都是有竖直的滚动条，其中文本都不断改变，让所有的文本框都显示最后一行。

是这个办法的,只是要加一句:

TextBox1.SelectionLength = 0

TextBox1.SelectionStart = TextBox1.Text.Length

TextBox1.ScrollToCaret()

另外,文本框的内容修改后要再次执行上面的三句代码

如何在VB上设置文本框的滚动条

在属性窗口设置文本框的MultiLine属性为True，这样文本框就成为多行显示的文本框。

然后，修改文本框的ScrollBars属性；1

--

出现水平滚动条，2

--

出现垂直滚动条，3

--

水平、垂直光条都出现。