vb.net历史列表的简单介绍

在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

相关问答

Q1: vb combo 如何记录

vb.net里有个,可以做历史记录vb.net历史列表的,象google那样vb.net历史列表的.

vb6只是存到别处,下次一行行的读取然后 combo.additem 内容即可

例:注册表

Private Sub Form_Load()

AddandLoad ""

End Sub

Private Sub Combo1_KeyDown(KeyCode As Integer, Shift As Integer)

If KeyCode = 13 And Shift = 0 Then

AddandLoad Combo1.Text '先在这里触发了,如果vb.net历史列表你要在别处,只要移动这一行

End If

End Sub

Sub AddandLoad(ByVal s As String)

Dim s1 As String

Dim i As Long

Dim b As Boolean

Do

i = i + 1

s1 = GetSetting(App.Title, "history", "h" i, "")

If Len(s1) = 0 Then Exit Do

b = b Or LCase(s) = LCase(s1)

Me.Combo1.AddItem s1

Loop

If Not b Then

If Len(s) 0 Then

SaveSetting App.Title, "history", "h" i, s

Me.Combo1.AddItem s

End If

End If

End Sub

Q2: vb.net中如何让textbox在输入时，不会下拉出现历史记录

我用的是火狐浏览器，点击“工具-选项-隐私-历史：Firefox将会：使用自定义历史记录（选中）——”记录查询和表单历史“不选中即可

Q3: VB.NET最新版本是哪个？

截至今天2016/12/02vb.net历史列表，VB.net最新版本是VB 14vb.net历史列表，

对应的IDE为Visual Studio 2015

从VB 7开始，每次.net平台更新，VB版本也会不断更新。

VB历史版本如下(.net平台)

没有 VB13 

VB12 对应 VS2013

VB11 对应 VS2012

VB10 对应 VS2010

VB9 对应 VS2008

VB8 对应 VS2005

VB7 对应 VS2003

VB6 是经典版本，它不是 .net平台的

vb.net历史列表的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于、vb.net历史列表的信息别忘了在本站进行查找喔。