誰知道 哪兒有VB.NET好點(diǎn)的教程呀？

到搜搜迅雷或者電騾去搜：

創(chuàng)新互聯(lián)公司是一家集網(wǎng)站建設(shè),松滋企業(yè)網(wǎng)站建設(shè),松滋品牌網(wǎng)站建設(shè),網(wǎng)站定制,松滋網(wǎng)站建設(shè)報(bào)價(jià),網(wǎng)絡(luò)營銷,網(wǎng)絡(luò)優(yōu)化,松滋網(wǎng)站推廣為一體的創(chuàng)新建站企業(yè)，幫助傳統(tǒng)企業(yè)提升企業(yè)形象加強(qiáng)企業(yè)競爭力。可充分滿足這一群體相比中小企業(yè)更為豐富、高端、多元的互聯(lián)網(wǎng)需求。同時(shí)我們時(shí)刻保持專業(yè)、時(shí)尚、前沿，時(shí)刻以成就客戶成長自我，堅(jiān)持不斷學(xué)習(xí)、思考、沉淀、凈化自己，讓我們?yōu)楦嗟钠髽I(yè)打造出實(shí)用型網(wǎng)站。

vb2005基礎(chǔ)教程.pdf

Visual Basic.NET技術(shù)內(nèi)幕.rar

======

特別是第2個(gè)，必看

VB.net 2005編寫“寫字板”程序

1.窗體數(shù)據(jù)傳遞 2.弱智問題 3.新建:清空文本框,如果當(dāng)前文本框有內(nèi)容,詢問是否保存 打開:openfiledialog控件 保存:savefiledialog控件 復(fù)制:copy . . 4:無技術(shù)含量 5:無技術(shù)含量

vb.net2005文件操作

'Windows的搜索用了18秒，本程序用了20秒

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

GetDirectFiles("D:\")

End Sub

Private Sub GetDirectFiles(ByVal s As String)

'找出位于 s 根目錄下的所有文件

Try

Dim f() As String, t As Collections.ObjectModel.ReadOnlyCollection(Of String) = My.Computer.FileSystem.GetFiles(s), k As String

Me.Text = s

For Each k In My.Computer.FileSystem.GetDirectories(s)

GetDirectFiles(k)

Next

ReDim f(t.Count - 1)

t.CopyTo(f, 0)

ListBox1.Items.AddRange(f)

Catch

End Try

End Sub

vb.net 連接sql2005

Public sqlcon As System.Data.SqlClient.SqlConnection

Public sqladapter As System.Data.SqlClient.SqlDataAdapter

Public command As System.Data.SqlClient.SqlCommand

Public ds As System.Data.DataSet

Public dr As System.Data.DataTable

sqlcon = New System.Data.SqlClient.SqlConnection

sqlcon.ConnectionString = "Server=(local); Initial Catalog=test1 ; User ID="數(shù)據(jù)庫sa用戶"; Password="數(shù)據(jù)庫密碼""

ds = New System.Data.DataSet

dr = New System.Data.DataTable(" test2 ")

ds.Tables.Add(dr)

sqladapter = New System.Data.SqlClient.SqlDataAdapter("select * from test2 ", sqlcon)

sqlcon.Open()

sqladapter.Fill(dr)

sqlcon.Close()

DataGridView1.DataSource = dr

急求~！！VB高手解答??！用VB.net2005版本的編寫

Module

Module1

Public

Class

Person

'Person類

Private

_Name

As

String

'數(shù)據(jù)成員姓名

Private

_Age

As

Date

'數(shù)據(jù)成員年齡

Public

Property

Name()

As

String

'屬性--姓名

Get

Return

_Name

'返回屬性值

End

Get

Set(ByVal

value

As

String)

_Name

=

value

'屬性賦值

End

Set

End

Property

Public

Property

Age()

As

Date

'屬性--年齡

Get

Return

_Age

'返回屬性值

End

Get

Set(ByVal

value

As

Date)

_Age

=

value

'屬性賦值

End

Set

End

Property

Public

Sub

Print()

'打印方法

Console.WriteLine(_Name)

Console.WriteLine(_Age)

End

Sub

End

Class

Public

Class

Teacher

'Teacher類

Inherits

Person

'繼承自Person

Private

_No

As

String

'數(shù)據(jù)成員-工號(hào)

Private

_Ta

As

Integer

'數(shù)據(jù)成員--教齡

Public

Property

No()

As

String

'屬性--工號(hào)

Get

Return

_No

'返回屬性值

End

Get

Set(ByVal

value

As

String)

_No

=

value

'屬性賦值

End

Set

End

Property

Public

Property

Ta()

As

Integer

'屬性--教齡

Get

Return

_Ta

'返回屬性值

End

Get

Set(ByVal

value

As

Integer)

_Ta

=

value

'屬性賦值

End

Set

End

Property

Public

Sub

NewPrint()

'打印方法

Console.WriteLine(Me.Name)

Console.WriteLine(Me.Age)

Console.WriteLine(Me.No)

Console.WriteLine(Me.Ta)

End

Sub

End

Class

'以下是上面兩個(gè)類的測試程序

Public

WithEvents

myPerson

As

New

Person

'實(shí)例化一個(gè)Person

Public

WithEvents

myTeacher

As

New

Teacher

'Teacher

Sub

Main()

myPerson.Name

=

"C_182803266"

myPerson.Age

=

#6/10/1986#

myPerson.Print()

myTeacher.Name

=

"VB高手圖成員"

myTeacher.Age

=

#6/11/1985#

myTeacher.No

=

"北大附中001"

myTeacher.Ta

=

30

myTeacher.Print()

myTeacher.NewPrint()

Console.ReadLine()

'wait

for

press

a

key.

End

Sub

End

Module