誰有VB.net從入門到精通的教程啊？能發(fā)一下嗎？小弟有一些VB基礎，但是與VB.NET不通用啊。

有VB 基礎的話 我覺得你學C#比較合適 ,我接觸編程的時候也是用VB6.0 現(xiàn)在 一直使用C# VB.NET 感覺沒那么方便

成都創(chuàng)新互聯(lián)為客戶提供專業(yè)的做網(wǎng)站、網(wǎng)站制作、程序、域名、空間一條龍服務，提供基于WEB的系統(tǒng)開發(fā). 服務項目涵蓋了網(wǎng)頁設計、網(wǎng)站程序開發(fā)、WEB系統(tǒng)開發(fā)、微信二次開發(fā)、成都做手機網(wǎng)站等網(wǎng)站方面業(yè)務。

0基礎怎么學VB??？

VB是一門比較容易入門的語言，也非常適合新手學習編程思想的工具。

1.學習VB首先得有微軟公司的Vb6.0 或者Vb.net，后者是完全面向?qū)ο蟮?，如果沒有任何編程經(jīng)驗可以從前者學起，網(wǎng)上有的下載Vb6.0企業(yè)版。

2.然后有了工具，就要開始真正練習開發(fā)，一般找一本入門的書籍，按照步驟先體驗一下編程的感覺，寫個經(jīng)典的"Hello World!"程序。

3.最重要的就是要理解一些概念，聲明、定義、變量、函數(shù)(方法)、控件、進程、線程，如果是面向?qū)ο蟮膶W習還會涉及到類、接口、繼承、實現(xiàn)等等名詞，單獨去看這些概念會摸不著頭腦，還是要結(jié)合實例去體會這些詞語的意思。

4.有了一定概念之后，再去看程序怎么寫就比較清楚了，慢慢的會越來越熟練的運用一些基本的模塊和方法，進而融入自己的思想，從模仿開始，照著書上或者網(wǎng)友的方法做，運行成功，然后自己試著改幾個參數(shù)或者調(diào)整語句的順序，來了解這個功能實現(xiàn)的原理。

5.最后，已經(jīng)入了門了，也就是說不再是0基礎，已經(jīng)能獨立開發(fā)一些小應用，就可以去看更高級的編程方法，或者學習現(xiàn)在比較流行的Java,C#，Vb.net等比較優(yōu)雅的面向?qū)ο蟮某绦颉?/p>

零基礎學習vb. net怎樣學？

你得先補基礎。

最好去學校，找計算機系的學生，抄下專業(yè)專業(yè)課程和對應的課本（說不定順便能討些舊課本），賣齊這些課本（一般學校里面就有書店）慢慢學。

（以下課程不全）

至少需要讀一遍的：計算機導論、程序設計基礎、軟件工程、編譯原理

重點學習的：算法與數(shù)據(jù)結(jié)構(gòu)、面向?qū)ο蟪绦蛟O計

還有VB.Net需要一定的基礎，建議先從 C++ 或 VB（版本6.0）入門

如何學習vb.net 很多東西難以理解

不用心情不好。

vb.net與vb是完全不同的兩個東西，除了名字類似，基本語法一樣之外，其他的如編程思想，編程模型，技術(shù)等等完全是全新的東西。

同樣地，asp.net也與asp幾乎沒有任何相似之外，也沒有什么血緣關系。而且出乎很多人的意料的是，asp.net不是用basic語法，而是采用了 C# 等.net語言的語法，其編程模型和原理也完全不同。

vb.net是.net框的新開發(fā)工具。而.net是windows的下一代api戰(zhàn)略標準。

在.net平臺上，可以開發(fā)多種不同的應用程序，如windows form程序（如VB的那種），web程序，windows服務……

在.net上有多種不同的語言可以用于開發(fā)。這所有類型的應用，都可以任何一種語言進行開發(fā)。而其中最推薦的，不是vb,而是C#.

建議盡早改學C#，因為C#是為了.net平臺而原生設計的新語言，語法也簡潔。C#的語法與java的語法有很多相似之處。

C#里的一切都是對象。控件也是對象的一種。

不要看中國人的書，都太功利，什么幾步學會，什么快速入門什么的，光是安裝截屏就占100多頁，卻很少從原理上講解。

你可以找一本外國人寫的書看，考慮到你之前學用vb6, 而vb6的對象觀念比較不強，因此估計你對OOP思想需要進一步理解掌握，因此你在選書時，一定要有基本的OOP思想的詳細講解的章節(jié)，這樣你才能真正掌握最新一代的開發(fā)思想。

最后，關于你說的那幾個問題：

類：類型，可以有很多屬性。如“人類”，

對象：一個類的實例。如“張三”這個人。

屬性當然也是屬于一種類型，在.net里，也就是說屬性也是某個類的一個對象。比如：“人類”有個屬性叫“爸爸”，很顯然，“爸爸”的類型也是“人類”。

于是，“張三”的“爸爸”屬性是“張老三”這個人（另一個人類對象）。

Location是TextBox1這個控件（控件也是對象）的一個屬性，這個屬性的類型是Point.

因此，你如果要為TextBox來定義位置，就要用：

TextBox1.Location = new Point(100,100);

就是說，新建一個Point類型的對象，然后把這個對象賦值給TextBox1的location屬性。

簡單來說，OOP可以與現(xiàn)實世界做一個類比，很容易理解的。

求VB.net datagrid 控件的使用方法（入門級）

Dim tab1 As String

Dim DS As New DataSet

Dim SqlStr As String

Dim DTS_A As New DataGridTableStyle

Dim Col_A1, Col_A2, Col_A3 As New DataGridTextBoxColumn

Dim Col_bo As New DataGridBoolColumn

'DS.Tables("tab1").Columns.Add("check", System.Type.GetType("System.Boolean"))

'DS.Tables("tab1").Columns("check").DefaultValue = False

Dim Col_A() As DataGridColumnStyle = {Col_bo, Col_A1, Col_A2, Col_A3}

'主窗口

Private Sub fICitem_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

ProgressBar1.Hide()

grdStyles("tab1")

SQLConn(conn)

Dim i As Integer

'Dim arr As New ArrayList

SqlStr = "SELECT ID, diqu, dname FROM a_diqu Order by ID"

If Not SQLFill(conn, DA, DS, SqlStr, "diqu") Then

MsgBox("服務器連接失敗")

Else

Dim dr As DataRow

For Each dr In DS.Tables("diqu").Rows

'arr.Add(dr("diqu") "." dr("dname"))

cmbDiqu.Items.Add(dr("diqu") "." dr("dname"))

Next

End If

'cmbDiqu.DataSource = arr

cmbDiqu.SelectedIndex = -1

cmbDiqu.Text = ""

End Sub

'DataGrid格式

Private Sub grdStyles(ByVal tab As String)

Dim ii1 As Integer

Dim DTS_A1() As String = {"check", "fshortnumber", "fnumber", "fplanprice"}

Dim DTS_A2() As String = {"檢查框", "貨號", "上市月份", "單價"}

Dim DTS_A3() As Integer = {50, 120, 120, 120} '長度

Dim DTS_A4() As Integer = {2, 0, 2, 1} '對齊方式

DTS_A.MappingName = tab

DTS_A.GridColumnStyles.Clear()

DTS_A.AllowSorting = True

DTS_A.ReadOnly = True

DTS_A.BackColor = Color.DarkGray

DTS_A.AlternatingBackColor = Color.LightGray

For ii1 = 0 To DTS_A1.Length - 1

Col_A(ii1).MappingName = DTS_A1(ii1)

Col_A(ii1).HeaderText = DTS_A2(ii1)

Col_A(ii1).Width = DTS_A3(ii1)

Col_A(ii1).NullText = ""

Col_A(ii1).Alignment = DTS_A4(ii1)

Next

DTS_A.GridColumnStyles.AddRange(Col_A)

grdItem.TableStyles.Add(DTS_A)

grdItem.ReadOnly = True

End Sub

Private Sub fICitem_Closed(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Closed

SQLClose(conn)

End Sub

'顯示表單

Private Sub Show1()

grdStyles("tab1")

txtNum.Text = Trim(txtNum.Text)

grdItem.DataSource = Nothing

SQLStr = "select * from t_icitem_new"

SQLStr = " where fshortnumber like '" txtNum.Text "%'"

SQLStr = " order by fshortnumber"

SQLFill(conn, DA, DS, SQLStr, tab1)

grdItem.CaptionText = "貨號資料"

grdItem.DataSource = DS.Tables(tab1)

ShowRow()

End Sub

'數(shù)據(jù)同步顯示

Private Sub ShowRow()

Dim dr As DataRow

If DS.Tables(tab1).Rows.Count 0 Then

If grdItem.CurrentRowIndex DS.Tables(tab1).Rows.Count Then

grdItem.CaptionText = grdItem.CurrentRowIndex + 1 "/" DS.Tables(tab1).Rows.Count

dr = DS.Tables(tab1).Rows(grdItem.CurrentRowIndex)

txtNum.Text = dr.Item("fshortnumber")

txtPrice.Text = dr.Item("fplanprice")

cmbMonth.Text = dr.Item("fnumber")

Else

txtNum.Text = ""

txtPrice.Text = ""

cmbMonth.Text = ""

End If

Else

txtNum.Text = ""

txtPrice.Text = ""

cmbMonth.Text = ""

End If

End Sub

Private Sub grdItem_CurrentCellChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles grdItem.CurrentCellChanged

ShowRow()

End Sub

'鼠標選定行

Private Sub grdItem_CurrentCellChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles grdItem.CurrentCellChanged

ShowRow()

End Sub

Private Sub btn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _

Handles btnSelect.Click, btnUpdate.Click, btnInsert.Click, btnDelete.Click

Select Case sender.name

Case "btnSelect" '查詢

Show1()

Case "btnUpdate" '修改

SUpdate()

Case "btnInsert" '新增

SInsert()

Case "btnDelete" '刪除

SDelete()

End Select

End Sub

'修改

Private Sub SUpdate()

txtNum.Text = Trim(txtNum.Text)

txtPrice.Text = Trim(txtPrice.Text)

If MsgBox("確定更新？", MsgBoxStyle.YesNo) = MsgBoxResult.Yes Then

SQLStr = "UPDATE t_icitem_new SET "

SQLStr = "fnumber='" cmbMonth.SelectedItem "', "

SQLStr = "fplanprice='" txtPrice.Text "' "

SQLStr = "WHERE fshortnumber='" txtNum.Text "'"

If Not SQLFill2(conn, SQLStr) Then

MsgBox("抱歉，更新失敗:(")

End If

Show1()

End If

End Sub

'新增

Private Sub SInsert()

txtNum.Text = Trim(txtNum.Text)

txtPrice.Text = Trim(txtPrice.Text)

If MsgBox("確定新增？", MsgBoxStyle.YesNo) = MsgBoxResult.Yes Then

SQLStr = "SELECT fshortnumber "

SQLStr = "FROM t_icitem_new "

SQLStr = "WHERE fshortnumber = '" txtNum.Text "' "

SQLFill(conn, DA, DS, SQLStr, "Tmp")

If DS.Tables("Tmp").Rows.Count = 0 Then '如果沒有資料則新增

SQLStr = "INSERT INTO t_icitem_new (fshortnumber,fnumber,fplanprice) VALUES("

SQLStr = "'" txtNum.Text "', "

SQLStr = "'" cmbMonth.SelectedItem "', "

SQLStr = "'" txtPrice.Text "')"

If Not SQLFill2(conn, SQLStr) Then

MsgBox("抱歉，新增失敗:(")

End If

Show1()

Else

MsgBox("資料已存在")

End If

End If

End Sub

'刪除

Private Sub SDelete()

txtNum.Text = Trim(txtNum.Text)

txtPrice.Text = Trim(txtPrice.Text)

If MsgBox("確定刪除" txtNum.Text "？", MsgBoxStyle.YesNo + MsgBoxStyle.DefaultButton2) = MsgBoxResult.Yes Then

SQLStr = "DELETE FROM t_icitem_new "

SQLStr = "WHERE fshortnumber='" txtNum.Text "'"

If Not SQLFill2(conn, SQLStr) Then

MsgBox("抱歉，刪除失敗:(")

End If

Show1()

End If

'鍵盤順序

Private Sub txt_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) _

Handles txtFshop.KeyDown, txtItem.KeyDown

Select Case e.KeyCode

Case Keys.Return

SendKeys.Send("{TAB}")

Case Keys.Right

SendKeys.Send("{TAB}")

Case Keys.Left

SendKeys.Send("+{TAB}")

Case Keys.Down

SendKeys.Send("{TAB 10}")

Case Keys.Up

SendKeys.Send("+{TAB 10}")

End Select

End Sub

學習VB.NET要多久

弟你好：

我是在微軟做教材的員工，據(jù)我了解學習.NET入門并不難。如果你了解JAVA這門語言，那么學習會很輕松。如果沒有接觸過面向?qū)ο缶幊炭赡芫鸵闊┮稽c點。大概也就是1個月左右便可以入門。因為基本上你要是學習VB.NET的話，除了部分語法可以借鑒老的VB，其他基本都要拋棄。但是不會很困難。最重要的就是理解.NET運行原理，掌握語法和部分常用類庫就可以了。

看你所述你似乎想要做網(wǎng)站。市場行情來看，人家免費論壇都已經(jīng)發(fā)布源碼很多了，無論是ASP還是.NET開發(fā)，都變得非常容易。如果想從這方面就業(yè)，前景也不是很樂觀。其實如果不是很麻煩的網(wǎng)站，微軟OFFICE組件中的SharePoint Server就可以完全滿足要求。根本不需要懂多少編程。

如果想從事工作，還是推薦學習VS.NET 2005和SQL Server 2005。

以上是哥哥的愚見，希望對你有所幫助

求采納為滿意回答。