如何在vb6中以其他形式使用类对象

Question

我正在尝试以不同的形式访问一个类对象来调用它的方法..你能告诉我我该怎么做吗..？ 这是我的代码..

Dim a As customers

Private Sub Command1_Click()

Dim txt1 As String
Dim txt2 As String
Set a = New customers   
txt1 = Text1.Text
txt2 = Text2.Text
a.userid = txt1
a.log_in txt1, txt2       

End Sub

它是我在表格 1 中编写的代码....用于登录.. 为客户 n 制作了一个称为日志程序的对象... 如果它成功登录，我将打开一个新表单 只显示.. 以及在家里...... 选项在那里 查看个人资料 我在其中展示了另一个表单配置文件 并在其加载方法中想要调用 a 的另一个方法来显示配置文件.. 它如何知道应该显示谁的个人资料......在这里我很困惑 因为我是VB新手，请帮帮我...请...

Answer 1

在第二个表单上实现 init 方法，并在 Command1_Click 中使用它，如下所示

    ...
    a.userid = txt1
    a.log_in txt1, txt2   

    Dim oFrm As Form2
    Set oFrm = New Form2
    oFrm.Init a
End Sub

在 Init 中，您可以调用 Show 来显示 Form2 的实例。您还可以将在 Form_Load 中执行的所有操作移至这个简单的 Init 方法 - 例如填充组合框等。