以文本方式查看主题 -  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp) --  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2) ----  图片的更新问题  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=127585)

--  作者：丰田 --  发布时间：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

--  作者：丰田 --  发布时间：2018/11/17 13:10:00 --   上传了一个附件为何看不到呢

--  作者：有点蓝 --  发布时间：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