VBCOM基础讲座之添加属性和方法
下面，我们添加一个属性来让用户获取CustomerID字段的值，其相应的示例代码如下：
-> PublicPropertyGetCustomerID()AsString
CustomerID=rs("CustomerID")
EndProperty
PublicPropertyLetCustomerID(NewValueAsString)
rs("CustomerID")=NewValue
EndProperty->
-align="right">->->->
显然，该属性的Get操作只是简单地返回"CustomerID"字段的值，相应地，Let操作是将"CustomerID"字段设置一个新值。
换句话说，属性中有两个部分："getting"和"letting"，事实上可能还有另外一个"setting"操作。但对于不同场合来说，我们总需要Get和Let来进行读和写的操作。
这里所引起注意的是，在上述属性过程中，应该对某些值进行必要的检测。例如，在调用Let属性时，用户可能有如下操作：
-> ObjectName.CustomerID="HALFI"->
该Let属性操作后，"CustomerID"等于新的字符串"HALFI"。但当查看Northwind数据库内容时，我们会发现"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方法来更新记录。
下一步，我们将用一个很小的样例程序来测试这个属性和方法，在测试时还将使用特定的技巧来追踪类和程序的运行。
- 最新文章
- 播放flc文件动画[04-17]
- 显示多媒体信息[04-17]
- 用VB实现应用程序在局域网络上自动更新[04-17]
- DataGrid控件的使用五[04-17]
- VB图像处理之像素的获取和输出[04-17]
- VisualBasic移除Form右上方之『X』按钮[04-17]
- 相关文章
- 告诉你两种判断闰年的简单方法[04-17]
- 在VB中制作单独程序封面的两种方法[04-17]
- VB调用C程序动态链接库的方法[04-17]
- 复本操作的对象、属性和方法(3)--网络数据库的复制和同步（..[04-17]
- VisualBasic属性、方法和事件六[04-17]
- ADO三大对象的属性、方法、事件及常数（一）[04-17]
