以文本方式查看主题

-  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=119204)
--  作者：dxjwlf
--  发布时间：2018/5/19 22:29:00
--  [求助] 增加按钮，想给图片浏览器替换图片。
图片是换了，但是没有刷新，要重开才有更新，同时，有两个一样的图片。搞不懂


Dim piv As WinForm.PictureViewer = e.Form.Controls("PictureViewer2")
Dim name As String = piv.SelectedItem
Dim pth As String = ProjectPath & "Attachments\\"
Dim dlg As  New OpenFileDialog
dlg.Filter= "图形文件|*.png;*.jpg;"

If dlg.ShowDialog = DialogResult.OK Then
    FileSys.CopyFile(dlg.FileName,name,True)
    piv.AddFile(name)
End If
--  作者：有点甜
--  发布时间：2018/5/20 21:47:00
--  

Dim piv As WinForm.PictureViewer = e.Form.Controls("PictureViewer2")
Dim name As String = piv.SelectedItem
Dim pth As String = ProjectPath & "Attachments\\"
Dim dlg As  New OpenFileDialog
dlg.Filter= "图形文件|*.png;*.jpg;"

If dlg.ShowDialog = DialogResult.OK Then
piv.DeleteFile(name)
    FileSys.CopyFile(dlg.FileName,name,True)
    piv.AddFile(name)
End If
--  作者：dxjwlf
--  发布时间：2018/5/21 7:36:00
--  
这是什么呀，，和我的一模一样？ 是我的没有错误吗？
--  作者：dxjwlf
--  发布时间：2018/5/21 7:37:00
--  
哦，多了一个删除。明白了