Property Get 语句声明 Property 过程的名称,参数以及构成其主体的代码,该过程获取一个属性的值。Property Let 语句声明 Property Let 过程的名称,参数以及构成其主体的代码,该过程给一个属性赋值。
Property Get 语句示例
该示例使用 Property Get 语句,定义获取属性值的属性过程。该属性用一个字符串来标识画笔的当前颜色。Dim CurrentColor As Integer
Const BLACK = 0, RED = 1, GREEN = 2, BLUE = 3'用一个字符串返回画笔的当前颜色。
Property Get PenColor() As String
Select Case CurrentColor
Case RED
PenColor = "Red"
Case GREEN
PenColor = "Green"
Case BLUE
PenColor = "Blue"
End Select
End Property'下面的代码通过调用 Property Get 过程
'来获取画笔的颜色。
ColorName = PenColorProperty Let 语句示例
该示例使用 Property Let 语句,定义给属性赋值的过程。该属性标识绘图盒的画笔颜色。Dim CurrentColor As Integer
Const BLACK = 0, RED = 1, GREEN = 2, BLUE = 3'设置绘图盒的画笔颜色属性。
'模块级变量 CurrentColor 设为
'用于绘图的颜色值。
Property Let PenColor(ColorName As String)
Select Case ColorName '检查颜色名称字符串。
Case "Red"
CurrentColor = RED '设为 Red。
Case "Green"
CurrentColor = GREEN '设为 Green。
Case "Blue"
CurrentColor = BLUE '设为 Blue。
Case Else
CurrentColor = BLACK '设为缺省值。
End Select
End Property'下面的代码通过调用 Property let 过程
'来设置绘图盒的 PenColor 属性。PenColor = "Red"
Property Get 语句示例
该示例使用 Property Get 语句,定义获取属性值的属性过程。该属性用一个字符串来标识画笔的当前颜色。Dim CurrentColor As Integer
Const BLACK = 0, RED = 1, GREEN = 2, BLUE = 3'用一个字符串返回画笔的当前颜色。
Property Get PenColor() As String
Select Case CurrentColor
Case RED
PenColor = "Red"
Case GREEN
PenColor = "Green"
Case BLUE
PenColor = "Blue"
End Select
End Property'下面的代码通过调用 Property Get 过程
'来获取画笔的颜色。
ColorName = PenColorProperty Let 语句示例
该示例使用 Property Let 语句,定义给属性赋值的过程。该属性标识绘图盒的画笔颜色。Dim CurrentColor As Integer
Const BLACK = 0, RED = 1, GREEN = 2, BLUE = 3'设置绘图盒的画笔颜色属性。
'模块级变量 CurrentColor 设为
'用于绘图的颜色值。
Property Let PenColor(ColorName As String)
Select Case ColorName '检查颜色名称字符串。
Case "Red"
CurrentColor = RED '设为 Red。
Case "Green"
CurrentColor = GREEN '设为 Green。
Case "Blue"
CurrentColor = BLUE '设为 Blue。
Case Else
CurrentColor = BLACK '设为缺省值。
End Select
End Property'下面的代码通过调用 Property let 过程
'来设置绘图盒的 PenColor 属性。PenColor = "Red"
解决方案 »
- GPS采集的经纬度高度如何转换为XYZ座标?
- 如何用指定的声卡播放WAV文件
- 我想用winsock控件实现缓存数据的传输.请大家帮忙解决!好急好急T_T(100分)
- 关于如何实现 系统自动更新的问题
- 很简单的Access数据库连接问题。急!
- 客户机/服务器架构数据库
- 请thorkhan来结账,,,,,,,,
- 一个字符串里去掉一些相当的字符后重组合,用什么办法最快?
- crystal report 7.0中的smart view调用viewport时的问题
- 关于访问数据库的简单问题?
- 用代码能不能改Text的滚动条属性..比如一开始设的是两条滚动条..怎样通过代码使他只剩下垂直滚动条一条属性..
- 关于 listview
这一过程给Maxpoint属性赋值为num.
Public Property Get Maxpoint() As Integer
这一过程使得在类外面得到Maxpoint的值。
msdn中在索引页面输入Property Let和Property Get可以得到更多帮助
Public Property Let Maxpoint(num As Integer)
这一过程给Maxpoint属性赋值为num.这个过程在asp中怎么用我不懂
dim x as new classXX
x.maxpoint=yy
这导致在类内执行过程
Public Property Let Maxpoint(num As Integer)
Max = num
End Property
如果
yy=x.maxpoint
则导致在类内执行过程
Public Property Get Maxpoint() As Integer
Maxpoint = Max
End Property