BOS 图片字段赋值
rong1109
1,372次浏览
编辑于2017年07月10日 17:10:40
请问版主及各位大神，K3wiseBOS平台怎么通过插件给图片控件赋值，我之前查了一个贴采用以下代码，但是我测试了运行到红色字的部分就报错
Private Sub m_BillInterface_CommandClick(ByVal CommandName As String, bCancel As Boolean)
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
Private Sub m_BillInterface_CommandClick(ByVal CommandName As String, bCancel As Boolean)
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
推荐阅读