基础讲座之属覆盖
属性操作很像公共变量,但属性还有更多的控制。
常用属性通常包括\"Get(获取)\"和\"Let(设置)\"两种。这两项操作能规定一个主要属性,就像下面的代码片段:
Private intAge As Integer
Public Property Get Age() As Integer
大众点评提供他所擅长的生活信息内容。 Age = intAge
End Property
Public Property Let Age(ByVal vNewValue As Integer)
intAge = vNewValue
End Property
上述代码的工作方式极像Age变量的操作。当像下面语句操作变量时,
e = 4
就好比运行Let属性,并将4赋给vNewValue。当像下面语句操作变量时,
MsgBox e
是获取属性,就好比运行Get属性,并将相应的值由intAge返回。因此,我们可以这样认为:
所谓Get属性,就是运行后获取某个值;
所谓Let属性,就是运行后让某个属性等于某个值;
但至此为止,我们仅仅说明属性工作方式与标准变量极为相似,还没有来得及对属性进行更多的控制。所以,下面就来讨论。
打开上一节的工程,对CDog类进行如下修改:
从CDog类中去掉Age变量;
添加下列代码:
FACE=\"Courier\" SIZE=2
Private intAge As Integer
Public Property Get Age() As Integer
Age = intAge
End Property
Public Property Let Age(ByVal vNewValue As Integer)
If vNewValue = 50 Then
intAge = vNewValue
End If
End Property
与前面的代码相比,这里只是对Let属性代码作稍加修改。下面对其作小小的测试,假想用户试图想使:
e=30
也就是运行Let属性,使vNewValue等于30。代码中,还检测vNewValue是否小于或等于50。显然,30是符合要求的,因此实例中的intAge值等于30。但如果超过50,则什么也不会发生,属性退出且没有任何赋值。当然,我们也可以对此给出相应的错误代码或是显示一个提示对话框。
切换到Form1后面的代码窗口;
在设置Age属性代码处的第一行语句中单击鼠标,并按F9;
e = 4
在获取Age属性代码处的第一行语句中单击鼠标,并按F9;
MsgBox \" is \" e \" years old\"
现在让我们测试一下:
按F5运行程序;
单击Command按钮;
代码应该中断在按F9添加的断点的代码行上。
当代码中断后,按F8单步运行并观察结果;
现在明白它们是怎样工作的吗?注意Age属性的\"get\"和\"let\"是怎样运行的?
在下一节中,我们不仅要讨论使用更多属性的方式,而且还讨论如何随意创建它们。
查看本文来源
吕梁白癜风最好医院银川医院男科
重庆无痛人流医院
- 美国“双雄”崛起!波音星际客船事与愿违对接国际空间站,意味着啥?
- 移动式核酸采样工作站团体新标准参数即将发布
- steam塞浦路斯账号注册教程 手把手新人注册指南
- 公募行业出乎意料新规来了!薪酬递延支付不少于3年,基金经理递延支付金额不低于40%
- 怀胎初期|如何知道自己怀怀胎了?妈妈新体验~
- 提前预定金靴?欧冠自已秀,本泽马独一档表现,皇马有机会翻盘!
- 灰冰糖黄冰糖哪种好?区别挺大,不懂别瞎买,小心买到“假冰糖”
- 田玉达能比王子铭的机会多么?罗伊本罗能传善射!津门虎露出獠牙
- 给罗威纳犬做美容的几个小提醒位置
- 具有智慧的杜宾犬资料介绍位置
- 我家苏格兰牧羊犬老喜欢咬人怎么纠正位置
- 罗威纳犬有点感冒流鼻涕打喷嚏如何是好位置