快来看看,这个简单的问题,我会感激不尽,谢谢各位

Question

第二种是：属性，方法如下：
   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 过程
'来获取画笔的颜色。Private Sub Form_Load()
   CurrentColor = 2
   Text1 = PenColor
   
   PenColor = "Red"End SubProperty Let PenColor(ColorName As String)
   Select Case ColorName   '检查颜色名称字符串。
      Case "Red"
         Text2 = RED   '设为 Red。
      Case "Green"
         Text2 = GREEN   '设为 Green。
      Case "Blue"
         Text2 = BLUE   '设为 Blue。
      Case Else
         CurrentColor = BLACK   '设为缺省值。
   End Select
End Property

Answer 1

属性：
读
private xxxxx as xxxxpublic property get xxx() as xxxx
   xxx=xxxxx
end property
写
public property let xxx(byval xxx as xxxx)
   xxxxx=xxx
end property