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\"
Dim name As String = FileSys.GetName(dlg.FileName)
Dim Result As DialogResult = DialogResult.Yes
If FileSys.FileExists(pth & "文件\商品图片\" & name) Then
Result = Messagebox.Show("文件已经存在!覆盖选'是',重命名选'否'","提示", MessageBoxButtons.YesNoCancel, MessageBoxIcon.Question)
If Result = DialogResult.No Then
If InputValue(name, "重命名","请输入新名称") = False Then
Return ""
End If
ElseIf Result = DialogResult.cancel Then
Return ""
End If
End If
FileSys.CopyFile(dlg.FileName, pth & "文件\商品图片\" & name)
piv.AddFile("文件\商品图片\" & name)
End If