班级

Question

我正试图上一堂课而被杀。 我到处逛逛，看到了几个例子，但也许是因为1:43，我很难理解它们。

我成功地使用一个类来自动化工作中的大型数据输入项目。 我创建了一个名为catDist的类，该类是公司可以生产或销售的农产品类型的类别分布。

catDist包含六个属性：Private selfWorth作为字符串Private Q1作为Double Private Q2作为Double Private Q3作为Double Private Q4作为Double Private Q4作为Double Private被激活为布尔值

它们都具有标准的获取和允许代码。

有48种可能的类别。 我有一个模块，可以使用selfWorth的48个不同值（例如“棉籽”或“玉米”等）创建它们的48个实例，并将Q1到Q4设置为0。 该模块最初与Userform一起使用，我可以输入值并按Enter。 如果它看到我已经在特定文本框中输入了一个值（是的，有48X4文本框），它将被设置为true并将相关的Q更改为我输入的值。

我现在想做什么。

这是一个巨大的成功。 现在，我要创建一个名为“ Distributor”的类。 每个分发器类将有4个具有catDist对象的集合。 我可以创建发布者类。 我可以创建catDist类。 但是出于对上帝的热爱，我无法找到一种方法来将相应的分配器catDist属性设置为我在Set方法中使用的catDist值。

Sub testRegist()
Dim registrant As testRegistrant
Set registrant = New testRegistrant

registrant.registNum = "Z000123"
'MsgBox (registrant.registNum)

Dim cowMilk As testcatDist
Set cowMilk = New testcatDist

cowMilk.selfWorth = "Cow Milk"
cowMilk.distribution = 4.6

registrant.testCat = cowMilk

Debug.Print registrant.testCat.selfWorth

End Sub

catDist类别

Private pselfWorth As String
Private pdistribution As Double

Public Property Get selfWorth() As String
  selfWorth = pselfWorth
End Property

Public Property Let selfWorth(name As String)
 pselfWorth = name
End Property

Public Property Get distribution() As Double
   distribution = pdistribution
End Property

Public Property Let distribution(dist As Double)
  pdistribution = dist
End Property

注册人又称发行人类别

Private pRegistNum As String
Private pCatDist As testcatDist

Public Property Get registNum() As String
    registNum = pRegistNum
End Property

Public Property Let registNum(registration As String)
  pRegistNum = registration
End Property

Public Property Get testCat() As testcatDist
   testCat = pCatDist
End Property

Public Property Let testCat(cat As testcatDist)
   Set pCatDist = New testcatDist
   pCatDist = cat
End Property

Answer 1

我看到的唯一问题是您使用的是Let而不是Set 。 在VBA中，在分配给对象时使用Set 。

当你写registrant.testCat = cowMilk （在Sub ）， testCat = pCatDist （在吸气testRegistrant.testCat ）和pCatDist = cat （在二传手testRegistrant.testCat ）你正在使用隐式Let （这是因为如果你有而不是使用Set显式地编写Let registrant.testCat = cowMilk ）。

所以，如果你写Set registrant.testCat = cowMilk在您的测试Sub ， Set testCat = pCatDist在getter和Set pCatDist = cat在二传手你要善于去。

同样，在同一设置程序中， pCatDist初始化pCatDist ，因为您需要在下一行中将cat传递给它。

而且，正如@GSerg（谢谢您所说）那样，设置器的签名应该是Public Property Set testCat(cat as testcatDist)而不是Public Property Let 。