重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
你好很高兴回答你的问题,但是又很遗憾,对于你的问题又无能为力。也许你自己已经找到答案明天就是新的一年了,在这里祝你在新的一年里,心想事成。谢谢!
创新互联公司专业为企业提供上林网站建设、上林做网站、上林网站设计、上林网站制作等企业网站建设、网页设计与制作、上林企业网站模板建站服务,10余年上林做网站经验,不只是建网站,更提供有价值的思路和整体网络服务。
还需要把 WordWrap 属性设置为 false。
--------------
备注
如果 WordWrap 属性设置为 true,则不管 ScrollBars 属性的设置是什么,都不会显示水平滚动条。
一般,我都不喜欢做这样报上一条下一条,太专业的数据库操作不适合终端用户。
如果必须要做,你可以这样:按排序规则,取到健列表。保存到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
是这个办法的,只是要加一句:
TextBox1.SelectionLength = 0
TextBox1.SelectionStart = TextBox1.Text.Length
TextBox1.ScrollToCaret()
另外,文本框的内容修改后要再次执行上面的三句代码
在属性窗口设置文本框的MultiLine属性为True,这样文本框就成为多行显示的文本框。
然后,修改文本框的ScrollBars属性;1
--
出现水平滚动条,2
--
出现垂直滚动条,3
--
水平、垂直光条都出现。