十年网站开发经验 + 多家企业客户 + 靠谱的建站团队
量身定制 + 运营维护+专业推广+无忧售后,网站问题一站解决
Module
创新互联专业为企业提供沧县网站建设、沧县做网站、沧县网站设计、沧县网站制作等企业网站建设、网页设计与制作、沧县企业网站模板建站服务,10余年沧县做网站经验,不只是建网站,更提供有价值的思路和整体网络服务。
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
你可以在窗体上放一个Lable控件,取名叫Lable1, 那么实现方式就是: private sub form_load() Lable1.Text="今天天气很好"; end sub 你可以试试
意思是说你的函数有可能不返回值,问题出在Try语句里面。如果Try语句没有捕获到异常,Return语句就会正常返回值;如果捕获到异常,就会直接跳进Catch语句块里,在这种情况下,函数运行完之前一直没有返回值。你可以直接把这个异常丢给调用方,在End Try上面写:
Throw ex
在End Function上方写:
Return Nothing
这样你就可以让调用者来捕获异常,或者直接把Try语句里面的代码拿出来,去掉Try语句,也可以起到类似的作用。
可以不用管它,因为默认值是空,想不出现警告就定义成:dim MsgText as string=""