- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 求助自定义PictureViewer控件遇到的问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=66403)
-- 发布时间：2015/4/5 13:35:00
-- 求助自定义PictureViewer控件遇到的问题
我用以下代码来为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
-- 发布时间：2015/4/5 13:49:00
--
如果能像软件系统中那样，图片文件重复会有两个选项
-- 发布时间：2015/4/5 13:50:00
--
此主题相关图片如下：6.bmp
-- 发布时间：2015/4/5 16:23:00
--
已经实现判断，如果将文件复制到Attachments后，
下面这句话，怎么修改可以让照片在加入行的时候按照会员姓名，进行重命名，然后再添加进行
piv.AddFile(FileSys.GetName(dlg.FileName))
-- 发布时间：2015/4/5 16:27:00
--
FileSys.CopyFile("C:\\TestFiles\\test.txt", "C:\\TestFiles2\\mytest.txt",True)
按照这个解释，怎么把这句"C:\\TestFiles2\\mytest.txt"
修改让实现按照会员姓名去命名
-- 发布时间：2015/4/7 9:37:00
--
"C:\\TestFiles2\\" & 会员名变量 & ".txt"