以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  picturebox的问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=133880)
--  作者：rjh4078
--  发布时间：2019/4/22 18:09:00
--  picturebox的问题
WITH TABLES("a")
if .current isnot nothing then
Dim pbx As WinForm.PictureBox
        pbx =e.Form.Controls("PB1")
        Dim fl,lj As String
        lj=projectpath & "images\\dm"
        If FileSys.DirectoryExists(lj)=False Then
            FileSys.CreateDirectory(lj)
        End If
        For Each f As String In FileSys.GetFiles(lj)
            FileSys.DeleteFile(f,2,2)
        Next
        fl=Functions.Execute("提取示意图","工单","示意图",.current("_identify"),lj,.current("订单号"))
        .current("刀模示意图")=fl
        
        pbx.Imagefile=fl
        MessageBox.show(fl)
        pbx.SizeMode = ImageSizeMode.Zoom

endif
end with
FL能弹出正确的地址，文件在文件夹里也能看得到 但是在控件里显示是一个红叉
--  作者：有点蓝
--  发布时间：2019/4/22 20:08:00
--  
msgbox(projectpath & "images\\dm\\" & fl)
pbx.Imagefile=projectpath & "images\\dm\\" & fl

需要完整路径