【正文】 As String Get End Get Set(ByVal Value As String) End Set End Property 關(guān)鍵字 Default可以與 ReadOnly或 WriteOnly結(jié)合使用，用來定義只讀或只寫的默認(rèn)屬性。但是，不管定義什么屬性，只要使用了 Default關(guān)鍵字，其屬性就必須帶有參數(shù)。也就是說，沒有參數(shù)的屬性不能作為默認(rèn)屬性。 2. 定義屬性 和 Sub過程或 Function過程一樣，屬性過程也是一種過程，當(dāng)然也可以在窗體文件中定義，即作為窗體文件的過程 【 例 】 定義一個 Month屬性，可以用該屬性獲取初始月份，也可以設(shè)置新月份。 在窗體上畫一個按鈕，然后編寫如下屬性過程和事件過程： Private MonthNum As Integer = 1 Property Month() As Integer Get Return MonthNum End Get Set(ByVal Value As Integer) If Value 1 Or Value 12 Then MsgBox(必須是 112 的值 ) Else MonthNum = Value End If End Set End Property Private Sub Button1_Click(ByVal sender As , _ ByVal e As ) Handles MsgBox(Month 原來的屬性值是 : amp。 Month) Month = 10 MsgBox(Month 修改后的屬性值是 : amp。 Month) End Sub 屬性過程舉例 ? 屬性過程可用于預(yù)定義對象，也可用于自定義對象（即類）。當(dāng)把屬性過程用于預(yù)定義的對象時，可以給窗體增加屬性。 【 例 】 編寫程序，給窗體增加一個改變大小的屬性。 按如下步驟操作： （ 1）啟動 Visual ，建立一個“ Windows應(yīng)用程序”項目。 （ 2）執(zhí)行“項目”菜單中的“添加類”命令，建立一個名為 Class1的類。 （ 3）在類代碼窗口中為該類編寫如下代碼： Public Class Class1 Private SizeStatus As Boolean Public Property Sizer(ByVal F As Form) As Boolean Get Sizer = SizeStatus End Get Set(ByVal Value As Boolean) SizeStatus = Value If Value = True Then SizeStatus = False = * = * Else SizeStatus = True = * = * End If End Set End Property End Class 向類中添加事件 ? 除屬性和方法外，在類中也可以建立事件 有關(guān)的語句和關(guān)鍵字 ? 為了向類中添加事件，要用到一些語句和關(guān)鍵字，包括 Event語句、 RaiseEvent語句和WithEvents關(guān)鍵字。 1. Event語句 該語句用來聲明用戶定義的事件。格式如下： [ Public | Private | Protected | Friend | Protected Friend ] [ Shadows ] _ Event 事件名 [(參數(shù)列表 )] 這里的 Public、 Private、 Protected、 Friend、 Protected Friend及 Shadows是可選的，其含義與類定義格式中相應(yīng)的選項相同（見 ）?！笆录笔撬x的事件的名稱，其名字遵循標(biāo)準(zhǔn)的變量命名約定。 “參數(shù)列表”用來指定事件的參數(shù)，其格式與一般通用過程參數(shù)的格式基本相同，即： [ByVal | ByRef] 變量名 [( )] [As 類型 ] 例子： Public Event LogonCompleted (UserName As String) 該例聲明了一個名為 LogonCompleted的事件，它有一個參數(shù) UserName，其類型為 String。 2. RaiseEvent語句 該語句用來引發(fā)在類、窗體的模塊級聲明的事件。一般格式如下： RaiseEvent 事件名 [(參數(shù)列表 )] 這里的“事件名”是要引發(fā)的事件的名稱，它在同一模塊中聲明?！皡?shù)列表”是引發(fā)事件時所傳送的實際參數(shù)。 例子： 39。 在類或窗體的模塊級聲明一個事件 Event LogonCompleted (UserName as String) Sub ...... 39。 引發(fā)該事件。 RaiseEvent LogonCompleted (AntoineJan) End Sub 3. WithEvents關(guān)鍵字 WithEvents變量定義語句中的一個關(guān)鍵字。變量定義的一般格式如下： {Dim|Public|Private} [WithEvents] 變量名 [([下標(biāo) ])] [As [New] 類型 ] [,[WithEvents] 變量名 [([下標(biāo) ])] [As [New] 類型 ]] . . . 用 WithEvents關(guān)鍵字可以建立在事件處理程序中與 Handles子句一同使用的類級或模塊級對象變量。也就是說，當(dāng)變量聲明中有 WithEvents關(guān)鍵字時，“變量名”是用來響應(yīng)由對象觸發(fā)的事件的對象變量。例如： Private WithEvents mText As Class1 和 Event語句一樣， WithEvents關(guān)鍵字只能在類和窗體的模塊級使用。用WithEvents可以定義任意個所需要的簡單變量，但不能用 WithEvents建立數(shù)組。此外，關(guān)鍵字 New和 WithEvents不能一起使用。 在建立了按鈕的窗體中，如果查看代碼的隱藏部分（即“ Windows窗體設(shè)計器生成的代碼”），就可以發(fā)現(xiàn)按鈕是用 WithEvents關(guān)鍵字聲明的： Friend WithEvents Button1 As 在這里， WithEvents關(guān)鍵字告訴 Visual ，需要處理代碼中對象所引發(fā)的任何事件。 不能用 WithEvents關(guān)鍵字聲明不引發(fā)事件的變量類型。也就是說，如果 Button類不含有引發(fā)事件的代碼，則在用 WithEvents關(guān)鍵字試圖聲明變量時，將會產(chǎn)生語法錯誤。 4. Handles子句 Handles子句用來列出一個或多個要處理的事件，一般格式為： Handles 事件處理列表 “事件處理列表”中的事件通過兩個由句點分隔的標(biāo)識符指定。其中第一個標(biāo)識符必須是包含類型中指定 WithEvents修飾符的非共享變量；否則將發(fā)生編譯錯誤。此變量包含的對象將引發(fā)由此方法處理的事件。如果變量是共享的，則方法必須共享，否則將導(dǎo)致錯誤。第二個標(biāo)識符必須指定第一個標(biāo)識符的類型的成員，該成員必須是事件而且可以共享。例如： Private Sub Button1_Click(ByVal sender As , _ ByVal e As ) Handles End Sub 這是按鈕的 Click事件過程的模板。其中的“ Handles ”表明要處理 Button1按鈕中的 Click事件。如果窗體上有兩個或多個按鈕，則可以通過Handles子句處理兩個或多個按鈕的 Click事件，例如： Private Sub Button1_Click(ByVal sender As , _ ByVal e As ) Handles , MsgBox(AAAA) End Sub 程序運行后，無論單擊 Button1按鈕還是單擊 Button2按鈕，都可以在信息框中顯示“ AAAA”。 5. AddHandler語句 該語句用來將事件與事件處理程序相關(guān)聯(lián)。格式如下： AddHandler 事件 , AddressOf 事件處理程序 其中“事件”是要處理的事件的名稱，而“事件處理程序”是要處理事件的過程的名稱。 6. RemoveHandler語句 用該語句可以解除事件與事件處理程序之間的關(guān)聯(lián)。格式如下： RemoveHandler 事件 , AddressOf 事件處理程序 其中“事件”是所處理的事件的名稱，而“事件處理程序”是當(dāng)前處理事件的過程的名稱。 用 AddHandler和 RemoveHandler語句可以動態(tài)地在程序執(zhí)行過程中的任何時候啟動和停止特定事件的事件處理。 事件處理的基本概念 ? 事件是可視化程序設(shè)計中的重要概念。在程序運行期間，用事件通知應(yīng)用程序，可能會發(fā)生什么樣的操作。 1. 事件的聲明 為了處理一個事件，應(yīng)先聲明該事件。事件聲明通常放在類的聲明部分，通過Event語句來實現(xiàn)。例如： Public Event UpdateTime(ByVal Jump As Double) 事件總是被聲明為公有（ Public）的，而且沒有返回值，也沒有可選參數(shù)或數(shù)組參數(shù)。 2. 事件的引發(fā) 所謂事件的引發(fā)，就是宣布事件的發(fā)生，即在什么情況下發(fā)生什么事件，例如，當(dāng)單擊按鈕時，發(fā)生 Click事件。事件通過 RaiseEvent語句引發(fā)，例如： RaiseEvent UpdateTime() 3. 事件源和事件發(fā)送器 引發(fā)事件的類是事件源，而用來引發(fā)事件的對象稱為事件發(fā)送器，窗體、控件及用戶定義的對象都可以作為事件發(fā)送器。 4. 事件處理 事件處理指的是當(dāng)事件發(fā)生時，調(diào)用一個指定的過程。在 Visual 下，如果雙擊窗體上的某個控件，將自動建立一個事件處理過程， Visual ，即把事件發(fā)送器（引發(fā)事件的對象）和事件的名稱用下劃線連接起來。例如按鈕 Button1的單擊事件可以表示為：Sub Button1_Click(......)。在處理用戶自己聲明的事件時，也可以使用這種方式。 5. 使事件與事件處理程序相關(guān)聯(lián) 用 Event語句聲明事件后，可以用 RaiseEvent語句引發(fā)，使事件真正運行，但此時還不能使用該事件，必須把事件與事件處理程序關(guān)聯(lián)起來，這可以通過WihthEvent或 AddHandler關(guān)鍵字來實現(xiàn)。其中 WithEvent關(guān)鍵字通常與 Handles子句一起使用，用來聲明一個事件處理的方法，靜態(tài)地建立事件與事件處理程序的關(guān)聯(lián)；而 Addhandler通常與 RemoveHandle一起使用，用來動態(tài)地建立和斷開事件與事件處理程序的關(guān)聯(lián)。 Friend WithEvents Button1 As 這里的 Button1就是用 WithEvents關(guān)鍵字聲明的對象變量。雙擊按鈕后，自動建立一個事件處理過程： Private Sub Button1_Click(ByVal sender As , _ ByVal e As ) _ Handles End Sub 其中的“ Handles ”建立了事件與事件處理程序的關(guān)聯(lián)。 6. 事件處理過程 可以用 WithEvents或 AddHandler關(guān)鍵字來編寫事件處理過程，具體操作將在下一小節(jié)結(jié)合例子進(jìn)行介紹。 建立事件處理程序 ? 前面介紹了與事件處理有關(guān)的語句和關(guān)鍵字，同時介紹了事件處理程序的一些基本概念。但是，讀者對如何建立、引發(fā)、使用一個事件很可能仍是一頭霧水。下面通過一個例子，具體介紹如何建立、引發(fā)和使用一個事件。 【 例 】 編寫程