以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  图片列问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=95055)
--  作者：luckbetter333
--  发布时间：2017/1/9 11:46:00
--  图片列问题
能否同时打开多个图片？能否打开图片的时候能够同时编辑？
--  作者：有点色
--  发布时间：2017/1/9 11:57:00
--  

BeforeOpenFile事件，这样写

 

If e.DataCol.name = "第八列" Then
    e.Cancel = True
    Dim img = getimage(e.FileName)
    Dim frm As new windows.forms.form
    frm.width = img.width
    frm.height = img.height + 30
    Dim picbox As new windows.forms.picturebox
    picbox.image = img
    picbox.dock = 5
    frm.controls.add(picbox)
   
    frm.show
End If