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
加好友 
发短信
Post By：2018/11/17 12:43:00 [只看该作者]
