DataGrid控件的使用五

RecordSet事件的編程
    　也可以對這個 Recordset 對象的事件進行編程。在該類模塊中，單擊“對象”框（在位于左上角），然后單擊“rsNames”。在“過程/事件”框（在右上角）中，下拉列表將顯示這個 Recordset 對象的所有事件。
    　給類添加一個屬性
    　類模塊也可以進行修改，來響應(yīng)事件或函數(shù)調(diào)用。下面的代碼演示了如何先給類添加屬性。當(dāng)從其它對象調(diào)用該對象時，這一屬性將返回該類的RecordCount。
    　Public Property Get RecordCount() As Long
    　　RecordCount = rsNames.RecordCount
    　End Sub
    　使用 DataMember 屬性
    　GetDataMember 事件也包括 DataMember 參數(shù)。使用這個參數(shù)，可以在類模塊中包括多個記錄集，并使用帶 DataMember 參數(shù)的 Select Case 語句來返回相應(yīng)的記錄集：
    　Private Sub Class_GetDataMember(ByVal DataMember As String, Data As _
    　Object)
    　　Select Case DataMember
    　　Case "Names"
    　　　　Set Data = rsNames
    　　Case "Dates"
    　　　　Set Data = rsDates
    　　Case Else
    　　　　’ 設(shè)置一個默認的數(shù)據(jù)成員
    　　　　Set Data = rsYears
    　　End Select
    　End Sub
    　如果要指定所需的 DataMember，請將數(shù)據(jù)使用者的 DataMember 屬性設(shè)置為適當(dāng)?shù)淖址?，然后如平常一樣設(shè)置 DataSource。對于 DataGrid 控件，可以采用如下方法：
    　Private Sub Form_Load()
    　　’ 創(chuàng)建一個新的 NamesData 對象
    　　Set datNames = New NamesData
    　　’ 指定所需的 DataMember，然后設(shè)置 DataSource。
    　　DataGrid1.DataMember = "Names"
    　　Set DataGrid1.DataSource = datNames
    　End Sub