你好很高興回答你的問題,但是又很遺憾,對于你的問題又無能為力。也許你自己已經(jīng)找到答案明天就是新的一年了,在這里祝你在新的一年里,心想事成。謝謝!

創(chuàng)新互聯(lián)公司專業(yè)為企業(yè)提供上林網(wǎng)站建設(shè)、上林做網(wǎng)站、上林網(wǎng)站設(shè)計(jì)、上林網(wǎng)站制作等企業(yè)網(wǎng)站建設(shè)、網(wǎng)頁設(shè)計(jì)與制作、上林企業(yè)網(wǎng)站模板建站服務(wù),10余年上林做網(wǎng)站經(jīng)驗(yàn),不只是建網(wǎng)站,更提供有價(jià)值的思路和整體網(wǎng)絡(luò)服務(wù)。
還需要把 WordWrap 屬性設(shè)置為 false。
--------------
備注
如果 WordWrap 屬性設(shè)置為 true,則不管 ScrollBars 屬性的設(shè)置是什么,都不會(huì)顯示水平滾動(dòng)條。
一般,我都不喜歡做這樣報(bào)上一條下一條,太專業(yè)的數(shù)據(jù)庫操作不適合終端用戶。
如果必須要做,你可以這樣:按排序規(guī)則,取到健列表。保存到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
'當(dāng)前的鍵值
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
是這個(gè)辦法的,只是要加一句:
TextBox1.SelectionLength = 0
TextBox1.SelectionStart = TextBox1.Text.Length
TextBox1.ScrollToCaret()
另外,文本框的內(nèi)容修改后要再次執(zhí)行上面的三句代碼
在屬性窗口設(shè)置文本框的MultiLine屬性為True,這樣文本框就成為多行顯示的文本框。
然后,修改文本框的ScrollBars屬性;1
--
出現(xiàn)水平滾動(dòng)條,2
--
出現(xiàn)垂直滾動(dòng)條,3
--
水平、垂直光條都出現(xiàn)。
網(wǎng)站欄目:vb.net文本框?yàn)g覽條,vb中文本框滾動(dòng)條
網(wǎng)頁路徑:http://chinadenli.net/article29/dsiscjh.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供網(wǎng)站導(dǎo)航、App設(shè)計(jì)、搜索引擎優(yōu)化、商城網(wǎng)站、標(biāo)簽優(yōu)化、面包屑導(dǎo)航
聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主,如果涉及侵權(quán)請盡快告知,我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場,如需處理請聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載,或轉(zhuǎn)載時(shí)需注明來源: 創(chuàng)新互聯(lián)