Question

请教：请给我写一个 Property let过程，并能通过form1的命令按钮调用它，以便理解let这个过程。

下面是我的类模块：
Option Explicit
Public nam As String
Public Sub reversename(ByVal str As String)
Dim i%
For i = 1 To Len(str)
nam = Mid(str, i, 1) & nam
Next
Form1.Print nam
End Sub
Public Property Get t()
t = Time
End Property
Public Sub p()
Form1.Picture = LoadPicture("E:\360data\重要数据\我的文档\我的图片\2.jpg")
End Sub
Public Property Get form1w()
form1w = Form1.Width
End Property

Answer 1

如果是一个类里的,类名为 User
private vName as string '这里真实的存东西的
'写一个属性
public property let Name(value as string )'这里的name就是别人传过来的值
vname=value'这里是直接等了,你可以在这里入一些代码 又如有性别问题.如果name值变了,你可以清除为空,如果你的类有事件,可以触发你的事件
end properpty
public property get Name as string '别人取值时返回的值,你也可以加入一些自己的处理代码
Name=vName
end property
''''
'也可以有参数的属性
'eg
property let Tels(value as string,index as integer )
'如果上面有一个数组类的,你就可以这样用
'如果上面的数组名为 vTels() as string '
vtels(index)=value'就可以这样用
end proerpty
property get Tels(index as integer) as string
Tels=vtels(index)
end property
'类的使用
dim t as new user
t.name="名称1"'这时就会发生你类的let 过程
msgbox t.name '这里就会发生 name 的get 过程
t.tels(1)="110"'就会发生 tel 的 let 过程
msgbox t.tels(1)' 就是 get 了

Answer 2

Property 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 SelectEnd Property'下面的代码通过调用 Property let 过程
'来设置绘图盒的 PenColor 属性。

PenColor = "Red"

追问

您好，这个过程我看过了，但不理解；请您写一个最简单的给我好吗？