在VB中,怎樣通過(guò)關(guān)鍵字Event定義用戶自己的事件?

【專家解說(shuō)】：Event 語(yǔ)句 定義用戶自定義的事件。 語(yǔ)法[Public] Event procedurename [(arglist)] Event 語(yǔ)句包含下面部分: 部分 描述 Public 可選的。指定該 Event 在整個(gè)工程中都是可見(jiàn)的。缺省情況下 Events 類型是 Public。應(yīng)注意,事件只能在所聲明的模塊中產(chǎn)生。 procedurename 必需的。事件的名稱;遵循標(biāo)準(zhǔn)的變量命名約定。 arglist 參數(shù)的語(yǔ)法及語(yǔ)法的各個(gè)部分如下: [ByVal | ByRef] varname[( )] [As type] 部分 描述 ByVal 可選的。表示該參數(shù)是按值傳遞的。 ByRef 可選的。表示該參數(shù)是按地址傳遞的。ByRef 是 Visual Basic 的缺省設(shè)置。 varname 必需的。代表要傳遞給過(guò)程的參數(shù)變量的名稱;遵循標(biāo)準(zhǔn)的變量命名約定。 type 可選的。指?jìng)鬟f給過(guò)程的參數(shù)的數(shù)據(jù)類型;可以是 Byte、布爾、Integer、Long、Currency、Single、Double、Decimal(目前尚不支持)、Date、String(只支持變長(zhǎng))、Object、Variant、用戶定義類型或?qū)ο箢愋汀? 說(shuō)明 事件被聲明之后,就可以使用 RaiseEvent 語(yǔ)句來(lái)產(chǎn)生該事件。如果在標(biāo)準(zhǔn)模塊中出現(xiàn) Event 聲明,就會(huì)產(chǎn)生語(yǔ)法錯(cuò)誤。不能聲明帶返回值的事件。在下面的代碼段中,給出了聲明事件和產(chǎn)生事件的典型事件: '在類模塊的模塊級(jí)中聲明一個(gè)事件 Event LogonCompleted (UserName as String) Sub RaiseEvent LogonCompleted("AntoineJan") End Sub 注意 可以象聲明過(guò)程的參數(shù)一樣來(lái)聲明事件的參數(shù),但有以下不同:事件不能有帶命名參數(shù)、Optional 參數(shù)、或者 ParamArray 參數(shù)。事件沒(méi)有返回值。 參考MSDN