建议使用
成都创新互联公司主要从事网站设计制作、成都网站建设、网页设计、企业做网站、公司建网站等业务。立足成都服务玉屏,十多年网站建设经验,价格优惠、服务专业,欢迎来电咨询建站服务:18982081108
自定义
安装,尽管两种安装方式都能够将VB
.NET
安装到计算机上面,但是有一些信息,典型安装是不能够自己更改的,像是文件的安装位置,如果典型安装,默认安装到了
C盘
。C盘大可以,如果C盘不大,就会使得C盘变得十分小,加剧了
系统盘
的开销,而自定义安装就可以自己决定这个
软件
到底安装到什么位置,另外一个,就是
组件
,如果是典型安装,他会将按照大众的口味进行安装,但是毕竟有些组件根本就是很不常用的,对你来说那就是一种开销了,
现在流行
什么东西都要DIY一下,如果想根据自己的实际需求安装的话,建议自己DIY一下吧
意思是说你的函数有可能不返回值,问题出在Try语句里面。如果Try语句没有捕获到异常,Return语句就会正常返回值;如果捕获到异常,就会直接跳进Catch语句块里,在这种情况下,函数运行完之前一直没有返回值。你可以直接把这个异常丢给调用方,在End Try上面写:
Throw ex
在End Function上方写:
Return Nothing
这样你就可以让调用者来捕获异常,或者直接把Try语句里面的代码拿出来,去掉Try语句,也可以起到类似的作用。
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
你可以在窗体上放一个Lable控件,取名叫Lable1, 那么实现方式就是: private sub form_load() Lable1.Text="今天天气很好"; end sub 你可以试试