vb.net2005教程 vbnet2010教程

谁知道 哪儿有VB.NET好点的教程呀？

到搜搜迅雷或者电骡去搜：

创新互联公司是一家集网站建设,松滋企业网站建设,松滋品牌网站建设,网站定制,松滋网站建设报价,网络营销,网络优化,松滋网站推广为一体的创新建站企业，帮助传统企业提升企业形象加强企业竞争力。可充分满足这一群体相比中小企业更为丰富、高端、多元的互联网需求。同时我们时刻保持专业、时尚、前沿，时刻以成就客户成长自我，坚持不断学习、思考、沉淀、净化自己，让我们为更多的企业打造出实用型网站。

vb2005基础教程.pdf

Visual Basic.NET技术内幕.rar

======

特别是第2个，必看

VB.net 2005编写“写字板”程序

1.窗体数据传递 2.弱智问题 3.新建:清空文本框,如果当前文本框有内容,询问是否保存 打开:openfiledialog控件 保存:savefiledialog控件 复制:copy . . 4:无技术含量 5:无技术含量

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="数据库sa用户"; Password="数据库密码""

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

'数据成员姓名

Private

_Age

As

Date

'数据成员年龄

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

'数据成员-工号

Private

_Ta

As

Integer

'数据成员--教龄

Public

Property

No()

As

String

'属性--工号

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

'以下是上面两个类的测试程序

Public

WithEvents

myPerson

As

New

Person

'实例化一个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