急求~！！VB高手解答！！用VB.net2005版本的編寫

Module

創(chuàng)新互聯(lián)專業(yè)為企業(yè)提供滄縣網(wǎng)站建設(shè)、滄縣做網(wǎng)站、滄縣網(wǎng)站設(shè)計、滄縣網(wǎng)站制作等企業(yè)網(wǎng)站建設(shè)、網(wǎng)頁設(shè)計與制作、滄縣企業(yè)網(wǎng)站模板建站服務(wù)，10余年滄縣做網(wǎng)站經(jīng)驗，不只是建網(wǎng)站，更提供有價值的思路和整體網(wǎng)絡(luò)服務(wù)。

Module1

Public

Class

Person

'Person類

Private

_Name

As

String

'數(shù)據(jù)成員姓名

Private

_Age

As

Date

'數(shù)據(jù)成員年齡

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

'數(shù)據(jù)成員-工號

Private

_Ta

As

Integer

'數(shù)據(jù)成員--教齡

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， 那么實現(xiàn)方式就是： private sub form_load() Lable1.Text="今天天氣很好"; end sub 你可以試試

VB.NET2005代碼問題

意思是說你的函數(shù)有可能不返回值，問題出在Try語句里面。如果Try語句沒有捕獲到異常，Return語句就會正常返回值；如果捕獲到異常，就會直接跳進Catch語句塊里，在這種情況下，函數(shù)運行完之前一直沒有返回值。你可以直接把這個異常丟給調(diào)用方，在End Try上面寫：

Throw ex

在End Function上方寫：

Return Nothing

這樣你就可以讓調(diào)用者來捕獲異常，或者直接把Try語句里面的代碼拿出來，去掉Try語句，也可以起到類似的作用。

VB.NET2005連接數(shù)據(jù)庫做登錄界面出錯，變量MsgText在賦值前被使用，可能會在運行時導(dǎo)致空引用，高手來！

可以不用管它，因為默認值是空，想不出現(xiàn)警告就定義成：dim MsgText as string=""

網(wǎng)頁標題：vbnet2005 vbnet2005 access 數(shù)據(jù)集 單元數(shù)據(jù)讀取
網(wǎng)頁地址：http://vcdvsql.cn/article6/hehhog.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供小程序開發(fā)、網(wǎng)站收錄、服務(wù)器托管、營銷型網(wǎng)站建設(shè)、網(wǎng)站導(dǎo)航、定制開發(fā)

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網(wǎng)站立場，如需處理請聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時需注明來源： 創(chuàng)新互聯(lián)