189 8069 5689
到搜搜迅雷或者电骡去搜：
创新互联公司是一家集网站建设,松滋企业网站建设,松滋品牌网站建设,网站定制,松滋网站建设报价,网络营销,网络优化,松滋网站推广为一体的创新建站企业，帮助传统企业提升企业形象加强企业竞争力。可充分满足这一群体相比中小企业更为丰富、高端、多元的互联网需求。同时我们时刻保持专业、时尚、前沿，时刻以成就客户成长自我，坚持不断学习、思考、沉淀、净化自己，让我们为更多的企业打造出实用型网站。
vb2005基础教程.pdf
Visual Basic.NET技术内幕.rar
======
特别是第2个，必看
1.窗体数据传递 2.弱智问题 3.新建:清空文本框,如果当前文本框有内容,询问是否保存 打开:openfiledialog控件 保存:savefiledialog控件 复制:copy . . 4:无技术含量 5:无技术含量
'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
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
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