'插件中清空图片控件内容和加载指定路径图片文件到图片控件中

Private Sub m_BillInterface_CommandClick(ByVal CommandName As String, bCancel As Boolean)

    'FPicture

    Dim oCtl As Object

    '根据图片字段关键字“FPicture”清空图片

    m_BillInterface.BillCtl.ClearPic "FPicture"

    '先激活图片控件

    m_BillInterface.SetActiveCell "FPicture"

    '获取到激活的图片控件

    Set oCtl = m_BillInterface.GetActiveCtl

    If oCtl.ControlType = 9 Then '9表示图片控件

        '将指定路径的图片文件加载到图片控件当中去

        oCtl.MainPic = VB.LoadPicture("C:\Documents and Settings\guojun_li\My Documents\Picture\a.JPG")

    End If

    Set oCtl = Nothing

End Sub