'定义插件对象接口. 必须具有的声明, 以此来获得事件

Private WithEvents m_BillTransfer   As k3BillTransfer.Bill

Public Sub Show(ByVal oBillTransfer As Object)

    '接口实现

    '注意: 此方法必须存在, 请勿修改

    Set m_BillTransfer = oBillTransfer

End Sub

Private Sub Class_Terminate()

    '释放接口对象

    '注意: 此方法必须存在, 请勿修改

    Set m_BillTransfer = Nothing

End Sub

Private Sub m_BillTransfer_BillInitialize()

    'TODO: 请在此处添加代码响应事件 BillInitialize

'*************** 开始设置菜单 ***************

    m_BillTransfer.AddUserMenuItem "打开自定义弹窗", "弹窗交互"

'*************** 结束设置菜单 ***************

End Sub

Private Sub m_BillTransfer_BillTerminate()

    'TODO: 请在此处添加代码响应事件 BillTerminate

End Sub

Private Sub m_BillTransfer_UserMenuClick(ByVal Index As Long, ByVal Caption As String)

    'TODO: 请在此处添加代码响应事件 UserMenuClick

    Select Case Caption

    Case "打开自定义弹窗"

        '此处添加处理 打开自定义弹窗 菜单对象的 Click 事件

        Dim Form As New Form1

        Set Form.frm_BillTransfer = m_BillTransfer

        '交互：这里从销售订单传值到自定义窗口

        Form.selSourceName = "销售订单"

        Form.Show

        Set Form = Nothing

    Case Else

    End Select

End Sub

Option Explicit

Public WithEvents frm_BillTransfer   As k3BillTransfer.Bill

Public selSourceName As String

Private Sub Command1_Click()

MsgBox "来源单据：" & selSourceName

End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)

    If KeyAscii =  Then

        '交互:自定义弹窗回传参数给销售订单

        SetInfo frm_BillTransfer, Text1.Text

        '关闭弹窗

        Unload Me

    End If

End Sub

Public Sub SetInfo(m_BillTransfer As k3BillTransfer.Bill, Value As String)

With m_BillTransfer

.SetGridText , getColIndex(m_BillTransfer, "备注"), Value

End With

End Sub

Function getColIndex(m_BillTransfer As k3BillTransfer.Bill, colName As String) As Long

    On Error GoTo errCI

    Dim tmpIndex As Long

    tmpIndex = -

    With m_BillTransfer

        Dim i As Integer

        For i =  To

            If .GetGridText(, i) = colName Then

                tmpIndex = i

                Exit For

            End If

        Next i

    End With

    getColIndex = tmpIndex

    Exit Function

errCI:

    getColIndex = tmpIndex

End Function