189 8069 5689
dim s1 as string
创新互联网站建设公司是一家服务多年做网站建设策划设计制作的公司,为广大用户提供了成都网站设计、网站制作，成都网站设计，1元广告，成都做网站选创新互联，贴合企业需求，高性价比，满足客户不同层次的需求一站式服务欢迎致电。
dim data as string
s="Tell me the history"
data=SendToIE(s)
我用的是火狐浏览器，点击“工具-选项-隐私-历史：Firefox将会：使用自定义历史记录（选中）——”记录查询和表单历史“不选中即可
截至今天2016/12/02，VB.net最新版本是VB 14，
对应的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是微软最新平台技术，是.net framework SDK的一种语言。VB.net和VC#.net在功能上没有区别。编译以后生成的可执行文件被称为Assembly，即程序集。
VB.net的版本号是Visual Basic 7.0，它的运行是建立在CLR(Common Language Runtime)和MSIL(Microsoft Intermediate Language)虚拟器上的。其实，它的机制和Java差不多。
VB.net的语言特点有下：
1. 代码托管。被托管的代码享受.net framework提供的安全保障和垃圾回收机制，但是这也同时表明，你的程序被框在Framework里面了。API变得不太方便。
2. 强大的面向对象特性。现在VB7已经是一个完全的面向对象程序。举个例子：
VB6:
Form2.Show
VB.net:
Dim frm As New Form2()
frm.Show
现在VB7已经支持类的各种特性：继承，函数的覆盖，重载，虚拟，隐藏……
3. 功能强大，程序界面更标准。
4. 程序代码结构化更强，开发环境舒适体贴。
一般，我都不喜欢做这样报上一条下一条，太专业的数据库操作不适合终端用户。
如果必须要做，你可以这样：按排序规则，取到健列表。保存到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