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

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

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

0基礎(chǔ)怎么學(xué)VB啊？

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

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

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

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

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

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

零基礎(chǔ)學(xué)習(xí)vb. net怎樣學(xué)？

你得先補(bǔ)基礎(chǔ)。

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

（以下課程不全）

至少需要讀一遍的：計(jì)算機(jī)導(dǎo)論、程序設(shè)計(jì)基礎(chǔ)、軟件工程、編譯原理

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

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

如何學(xué)習(xí)vb.net 很多東西難以理解

不用心情不好。

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

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

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

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

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

建議盡早改學(xué)C#，因?yàn)镃#是為了.net平臺(tái)而原生設(shè)計(jì)的新語言，語法也簡潔。C#的語法與java的語法有很多相似之處。

C#里的一切都是對(duì)象?？丶彩菍?duì)象的一種。

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

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

最后，關(guān)于你說的那幾個(gè)問題：

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

對(duì)象：一個(gè)類的實(shí)例。如“張三”這個(gè)人。

屬性當(dāng)然也是屬于一種類型，在.net里，也就是說屬性也是某個(gè)類的一個(gè)對(duì)象。比如：“人類”有個(gè)屬性叫“爸爸”，很顯然，“爸爸”的類型也是“人類”。

于是，“張三”的“爸爸”屬性是“張老三”這個(gè)人（另一個(gè)人類對(duì)象）。

Location是TextBox1這個(gè)控件（控件也是對(duì)象）的一個(gè)屬性，這個(gè)屬性的類型是Point.

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

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

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

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

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

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("服務(wù)器連接失敗")

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 = {"檢查框", "貨號(hào)", "上市月份", "單價(jià)"}

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

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

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 = "貨號(hào)資料"

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

'鼠標(biāo)選定行

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

學(xué)習(xí)VB.NET要多久

弟你好：

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

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

如果想從事工作，還是推薦學(xué)習(xí)VS.NET 2005和SQL Server 2005。

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

求采納為滿意回答。

名稱欄目：vb-net入門 vbnet入門經(jīng)典第八版pdf百度云
本文URL：http://m.rwnh.cn/article30/hpjeso.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供網(wǎng)站改版、云服務(wù)器、網(wǎng)頁設(shè)計(jì)公司、Google、網(wǎng)站制作、標(biāo)簽優(yōu)化

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請(qǐng)盡快告知，我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場，如需處理請(qǐng)聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時(shí)需注明來源： 創(chuàng)新互聯(lián)