Foxtable(狐表)用户栏目专家坐堂 → 图片的更新问题


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

主题:图片的更新问题

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


加好友 发短信
等级:幼狐 帖子:103 积分:1161 威望:0 精华:0 注册:2010/6/14 15:09:00
图片的更新问题  发帖心情 Post By:2018/11/17 12:43:00 [只看该作者]

Dim dlg As New OpenFileDialog  
dlg.Filter= "图形文件|*.bmp;*.jpg;*.gif" 
If dlg.ShowDialog = DialogResult.Ok Then 
    
     End If 

      FileSys.CopyFile(dlg.Filename, "d:\打印照片.jpg",True)

Dim pbx As WinForm.PictureBox
pbx = Forms("输出").Controls("PictureBox1")
pbx.SizeMode = ImageSizeMode.Zoom
pbx.ImageFile = "d:\打印照片.jpg."


上述代码 导入第一张图片 控件PictureBox1显示正常 导入第二张照片时 “打印照片”文件
已经更改,但控件PictureBox1显示的还是第一张图片 怎样才能刷新控件PictureBox1





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


加好友 发短信
等级:幼狐 帖子:103 积分:1161 威望:0 精华:0 注册:2010/6/14 15:09:00
  发帖心情 Post By:2018/11/17 13:10:00 [只看该作者]

上传了一个附件为何看不到呢

 回到顶部
帅哥,在线噢!
有点蓝
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:106178 积分:540007 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2018/11/17 14:30:00 [只看该作者]

Dim pbx As WinForm.PictureBox
pbx = Forms("窗口2").Controls("PictureBox1")
pbx.SizeMode = ImageSizeMode.Zoom

Dim dlg As New OpenFileDialog
dlg.Filter= "图形文件|*.bmp;*.jpg;*.gif"
If dlg.ShowDialog = DialogResult.Ok Then
    pbx.ImageFile = Nothing
    FileSys.CopyFile(dlg.Filename, "d:\打印照片.jpg",True)
    pbx.ImageFile = "d:\打印照片.jpg."
End If

 回到顶部