vbnet2005 vbnet2005 access 数据集 单元数据读取

急求~！！VB高手解答！！用VB.net2005版本的编写

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

vb.net 2005中如何在窗体上显示字符或文字等

你可以在窗体上放一个Lable控件，取名叫Lable1， 那么实现方式就是： private sub form_load() Lable1.Text="今天天气很好"; end sub 你可以试试

VB.NET2005代码问题

意思是说你的函数有可能不返回值，问题出在Try语句里面。如果Try语句没有捕获到异常，Return语句就会正常返回值；如果捕获到异常，就会直接跳进Catch语句块里，在这种情况下，函数运行完之前一直没有返回值。你可以直接把这个异常丢给调用方，在End Try上面写：

Throw ex

在End Function上方写：

Return Nothing

这样你就可以让调用者来捕获异常，或者直接把Try语句里面的代码拿出来，去掉Try语句，也可以起到类似的作用。

VB.NET2005连接数据库做登录界面出错，变量MsgText在赋值前被使用，可能会在运行时导致空引用，高手来！

可以不用管它，因为默认值是空，想不出现警告就定义成：dim MsgText as string=""