VB6如何将变量传递给不同的表单

Question

我从一个表单和一个类开始。我的想法是设置一些类成员，然后从不同的表单中调用这些成员。由于某些原因，我甚至不能设置值。我们有一个项目是用VB6做的，可惜没有机会升级，卡在了VB6上。

Form1:

Public SomeClassObj As New SomeClass

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

Class SomeClass:

Public Test1 As Integer
Public Test2 As Integer

Public Sub Test()
  MsgBox Test1
  MsgBox Test2
End Sub

我得到的错误是 "无效使用属性"，并在Command1_Click时停止。".Test1 ="

谁能告诉我，我做错了什么？

Answer 1

你应该删除 Set 关键词--你没有分配对象引用。