VBCOM基礎講座之添加屬性和方法

2019-11-18 17:54:33

字體：大中小

來源：轉載

供稿：網友

下面，我們添加一個屬性來讓用戶獲取CustomerID字段的值，其相應的示例代碼如下：

->　　Public數據庫內容時，我們會發現"CustomerID"字段的字符長度不能超過5。如果用戶有這樣的操作：

->　　ObjectName.CustomerID="HALFISTORE"->

　　則出現數據庫操作錯誤。雖然，可以通過錯誤句柄來處理這個問題，但是如果能在代碼中檢測NewValue的長度豈不更好？如果該值超過5個字符，我們既可以通過裁剪取共前5個字符，也可以忽略這個新的字符串而彈出一個錯誤提示。但這里，我們采用后一種措施。

　　在我們的類中添加下列代碼：

->　　PublicPropertyGetCustomerID()AsString
　　　CustomerID=rs("CustomerID")
　　EndProperty
　　PublicPropertyLetCustomerID(NewValueAsString)
　　　'IfthelengthofNewValueisgreaterthanfive
　　　IfLen(NewValue)>5Then
　　　　'...thenraiseanerrortotheprogram
　　　　'usingthisclass
　　　　Err.RaisevbObjectError 1,"CustomerID",_"CustomerIDcanonlybeuptofive"&_"characterslong!"
　　　Else
　　　　'...otherwise,changethefieldvalue
　　　　rs("CustomerID")=NewValue
　　　EndIf
　　EndProperty->

　　好了，在完成下列步驟之前，我們已經為添加方法花費了不少時間。

　　在我們的類中添加下列代碼：

->　　PublicSubUpdate()
　　　rs.Update
　　EndSub->

　　該Update方法只是簡單地調用記錄集對象的Update方法來更新記錄。

　　下一步，我們將用一個很小的樣例程序來測試這個屬性和方法，在測試時還將使用特定的技巧來追蹤類和程序的運行。
->

上一篇：VBCOM基礎講座之創建第一個COM對象

下一篇：VBCOM基礎講座之類的測試