如题,pictureviewer添加的图片放入指定文件夹并自动命名 这个问题在帮助里也有介绍:
如果想将添加的图片文件自动复制到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
如果一个窗口只有一个PictureViewer控件,上段代码应该放在哪个事件里?
[此贴子已经被作者于2014-3-25 16:08:20编辑过]