VB6如何将变量传递给不同的形式

Question

我从 1 个表格和 1 个 class 开始。这个想法是设置一些 class 成员，然后从不同的表单调用这些成员。由于某种原因，我什至无法设置值。我们有一个在 VB6 中完成的项目，不幸的是，没有机会升级并卡在 VB6 上。

表格 1:

Public SomeClassObj As New SomeClass

Private Sub Command1_Click()
  Set SomeClassObj.Test1 = 1
  Set SomeClassObj.Test2 = 2
  Call SomeClassObj.Test
End Sub

Class一些Class:

Public Test1 As Integer
Public Test2 As Integer

Public Sub Test()
  MsgBox Test1
  MsgBox Test2
End Sub

我得到的错误是 "invalid use of property" 并在 Command1_Click 处停止：“.Test1 =”

有人可以告诉我我做错了什么吗？

Answer 1

您应该删除 Set 个关键字 - 您没有分配 objects/references。

VB6如何将变量传递给不同的形式

VB6 How to pass variables to different form

vb6