vb6 包含以其他形式执行 function 的按钮

Question

我努力尝试并制作双击事件

该表格为 psa33

表格已成功更改，并附上了我要发送的数据

但还有两个问题

1. 表单更改后（psa33）然后在 psa33 自动执行 function 我该如何编码？
2. 项目中还有另一种形式，形式名称是 psa34 但它不在形式列表中所以我在 psa 33 找到了这段代码

    Select Case UCase(Me.gPGM_ID)
    Case "PSA33"
        fltTot_Qty.Text = Sum_Qty
        fltTot_Amt.Text = Sum_Amt
        flttot_amt_f.Text = Sum_Amt_F
        fltTot_Vat.Text = Sum_Vat
    Case "PSA34"
        fltTot_Qty.Text = Abs(Sum_Qty) * (-1)
        fltTot_Amt.Text = Abs(Sum_Amt) * (-1)
        flttot_amt_f.Text = Abs(Sum_Amt_F) * (-1)
        fltTot_Vat.Text = Sum_Vat
    End Select

我认为这种代码将 psa33 更改为 psa34 但我不知道它是如何工作的

Private Sub ListView1_DblClick()
      
    Dim MyForm As Form
      If ListView1.SelectedItem.ListSubItems(8) > 0 Then
        Set MyForm = New PSA33
         MyForm.txtChul_No.Text = ListView1.SelectedItem.ListSubItems(1).Text
         MyForm.datChul_Date = ListView1.SelectedItem.ListSubItems(11)
         MyForm.cmbSaup_Gubn.Text = cmbSaup_Gubn.Text
        Load MyForm 
         '(it works well until here)'
        'Call PSA33.fnDataFind ( I want use fnDataFind function at form psa33 but it doesnt' work)  

     Else

       'Set MyForm = New PSA34 (there's no psa34 so but it's view  is almost same like psa 33 so i found above code at  psa 33)
         'MyForm.txtChul_No.Text = ListView1.SelectedItem.ListSubItems(1).Text
         'MyForm.datChul_Date = ListView1.SelectedItem.ListSubItems(11)
         'MyForm.cmbSaup_Gubn.Text = cmbSaup_Gubn.Text
        'Load MyForm

          'Call PSA33.fnDataFind (i Think it must change because not form psa33 ) 
    End If

End Sub

Answer 1

 Dim MyForm As Form
      If ListView1.SelectedItem.ListSubItems(8) > 0 Then
        Set MyForm = New PSA33
         MyForm.txtChul_No.Text = ListView1.SelectedItem.ListSubItems(1).Text
         MyForm.datchul_Date = ListView1.SelectedItem.ListSubItems(11)
         MyForm.cmbsaup_gubn.Text = cmbsaup_gubn.Text
        'MyForm.txtdest_cust = ListView1.SelectedItem.ListSubItems(5).Text
        'MyForm.txtcust_code = ListView1.SelectedItem.ListSubItems(5).Text
        Load MyForm
        Call MyForm.fnDataFind
     Else
       Set MyForm = New PSA33
         MyForm.gPGM_ID = "PSA34"
         MyForm.txtChul_No.Text = ListView1.SelectedItem.ListSubItems(1).Text
         MyForm.datchul_Date = ListView1.SelectedItem.ListSubItems(11)
         MyForm.cmbsaup_gubn.Text = cmbsaup_gubn.Text
        Load MyForm
        Call MyForm.fnDataFind
    End If