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