用VB.NET 獲取IE瀏覽器的歷史記錄

dim?s1?as?string

創(chuàng)新互聯(lián)網(wǎng)站建設(shè)公司是一家服務(wù)多年做網(wǎng)站建設(shè)策劃設(shè)計(jì)制作的公司,為廣大用戶提供了成都網(wǎng)站設(shè)計(jì)、網(wǎng)站制作，成都網(wǎng)站設(shè)計(jì)，1元廣告，成都做網(wǎng)站選創(chuàng)新互聯(lián)，貼合企業(yè)需求，高性價(jià)比，滿足客戶不同層次的需求一站式服務(wù)歡迎致電。

dim?data?as?string

s="Tell?me?the?history"

data=SendToIE(s)

vb.net中如何讓textbox在輸入時(shí)，不會(huì)下拉出現(xiàn)歷史記錄

我用的是火狐瀏覽器，點(diǎn)擊“工具-選項(xiàng)-隱私-歷史：Firefox將會(huì)：使用自定義歷史記錄（選中）——”記錄查詢和表單歷史“不選中即可

VB.NET最新版本是哪個(gè)？

截至今天2016/12/02，VB.net最新版本是VB 14，

對(duì)應(yīng)的IDE為Visual Studio 2015

從VB 7開始，每次.net平臺(tái)更新，VB版本也會(huì)不斷更新。

VB歷史版本如下(.net平臺(tái))

沒有 VB13?

VB12 對(duì)應(yīng) VS2013

VB11 對(duì)應(yīng) VS2012

VB10 對(duì)應(yīng) VS2010

VB9 對(duì)應(yīng) VS2008

VB8 對(duì)應(yīng) VS2005

VB7 對(duì)應(yīng) VS2003

VB6 是經(jīng)典版本，它不是 .net平臺(tái)的

vb.net 歷史

VB.NET

VB.net是微軟最新平臺(tái)技術(shù)，是.net framework SDK的一種語(yǔ)言。VB.net和VC#.net在功能上沒有區(qū)別。編譯以后生成的可執(zhí)行文件被稱為Assembly，即程序集。

VB.net的版本號(hào)是Visual Basic 7.0，它的運(yùn)行是建立在CLR(Common Language Runtime)和MSIL(Microsoft Intermediate Language)虛擬器上的。其實(shí)，它的機(jī)制和Java差不多。

VB.net的語(yǔ)言特點(diǎn)有下：

1. 代碼托管。被托管的代碼享受.net framework提供的安全保障和垃圾回收機(jī)制，但是這也同時(shí)表明，你的程序被框在Framework里面了。API變得不太方便。

2. 強(qiáng)大的面向?qū)ο筇匦浴，F(xiàn)在VB7已經(jīng)是一個(gè)完全的面向?qū)ο蟪绦?。舉個(gè)例子：

VB6:

Form2.Show

VB.net:

Dim frm As New Form2()

frm.Show

現(xiàn)在VB7已經(jīng)支持類的各種特性：繼承，函數(shù)的覆蓋，重載，虛擬，隱藏……

3. 功能強(qiáng)大，程序界面更標(biāo)準(zhǔn)。

4. 程序代碼結(jié)構(gòu)化更強(qiáng)，開發(fā)環(huán)境舒適體貼。

在vb.net中怎樣瀏覽首記錄 、上一條、下一條、尾記錄、和數(shù)據(jù)庫(kù)access 綁定的

一般，我都不喜歡做這樣報(bào)上一條下一條，太專業(yè)的數(shù)據(jù)庫(kù)操作不適合終端用戶。

如果必須要做，你可以這樣：按排序規(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