Foxtable(狐表)用户栏目专家坐堂 → 求助自定义PictureViewer控件遇到的问题


  共有4006人关注过本帖平板打印复制链接

主题:求助自定义PictureViewer控件遇到的问题

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


加好友 发短信
等级:幼狐 帖子:155 积分:1096 威望:0 精华:0 注册:2014/8/14 8:38:00
求助自定义PictureViewer控件遇到的问题  发帖心情 Post By:2015/4/5 13:35:00 [只看该作者]

我用以下代码来为PictureViewer中增加图片,当Attachments目录下已经有同名的文件,则会有错误提示,如图。。

图片点击可在新窗口打开查看此主题相关图片如下:5.bmp
图片点击可在新窗口打开查看

现在我希望把下面的代码修改成当Attachments目录下存在同名文件时,提示:“照片库中存在同名文件,请修改目标文件后再添加!”

朋友们谁给解答下。

Dim dlg As New OpenFileDialog
Dim piv As WinForm.PictureViewer = e.Form.Controls("PictureViewer1")
dlg.Filter= "图形文件|*.bmp;*.jpg;*.gif" 
If dlg.ShowDialog = DialogResult.OK Then
    Dim pth As String = ProjectPath & "Attachments\"
    If dlg.FileName.ToLower.StartsWith(pth.ToLower) Then '如果文件来自Attachments目录
        piv.AddFile(dlg.FileName.SubString(pth.Length))
    Else '如果不是
        FileSys.CopyFile(dlg.FileName, pth & FileSys.GetName(dlg.FileName))
        piv.AddFile(FileSys.GetName(dlg.FileName))
    End If
End If

 回到顶部