Foxtable(狐表)用户栏目专家坐堂 → 二进制存储照片查看问题


  共有2225人关注过本帖树形打印复制链接

主题:二进制存储照片查看问题

帅哥哟,离线,有人找我吗?
有点甜
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/8/7 14:13:00 [显示全部帖子]

 

PictureBox控件,设置 缩放->StretchImage

 


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/8/7 14:57:00 [显示全部帖子]

执行下面代码弹出什么?红色代码生成的图片是否正确?

 

If Forms("查看窗口").Opened Then '如果窗口已经打开

msgbox(1)
    Dim pbx As WinForm.PictureBox = Forms("查看窗口").Controls("PictureBox1")
    If Tables("person").Current Is Nothing Then
        pbx.Image = Nothing
    Else

msgbox(2)
        pbx.Image = Tables("person").Current.DataRow.SQlLoadImage("photo") '从后台提取照片并显示

pbx.Image.save("d:\123.jpg")
    End If
End If


 回到顶部