正文
vbnet2005 vbnet2005 access 数据集 单元数据读取
提示：扫一扫查出行【扫一扫了解最新限行尾号】
复制提示
急求~！！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
相关问答
Q1: vb.net 2005中如何在窗体上显示字符或文字等
你可以在窗体上放一个Lable控件，取名叫Lable1， 那么实现方式就是： private sub form_load() Lable1.Text="今天天气很好"; end sub 你可以试试
Q2: VB.NET2005代码问题
意思是说你的函数有可能不返回值，问题出在Try语句里面。如果Try语句没有捕获到异常，Return语句就会正常返回值；如果捕获到异常，就会直接跳进Catch语句块里，在这种情况下，函数运行完之前一直没有返回值。你可以直接把这个异常丢给调用方，在End Try上面写：
Throw ex
在End Function上方写：
Return Nothing
这样你就可以让调用者来捕获异常，或者直接把Try语句里面的代码拿出来，去掉Try语句，也可以起到类似的作用。
Q3: VB.NET2005连接数据库做登录界面出错，变量MsgText在赋值前被使用，可能会在运行时导致空引用，高手来！
可以不用管它，因为默认值是空，想不出现警告就定义成：dim MsgText as string=""
