主题：图片管理

老师好，下面是添加图片按钮代码。

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目录
    If FileSys.FileExists(pth & "文件\商品图片\" & FileSys.GetName(dlg.FileName)) Then
        Messagebox.Show("文件已经存在!","提示")
        ' Else       
        ' piv.AddFile(dlg.FileName.SubString(pth.Length))
    Else '如果不是
        FileSys.CopyFile(dlg.FileName, pth & "文件\商品图片\" & FileSys.GetName(dlg.FileName))
        piv.AddFile("文件\商品图片\" & FileSys.GetName(dlg.FileName))       
        Messagebox.Show("文件不存在或已经被删除!","提示")
    End If
End If

此主题相关图片如下：image 1.png