主题：[求助]请问图片管理器中增加按钮的代码

比如

 

Dim dlg As New OpenFileDialog '定义一个新的OpenFileDialog
dlg.Filter= "图形文件|*.bmp;*.jpg;*.gif" '设置筛选器
If dlg.ShowDialog = DialogResult.Ok  Then  '如果用户单击了确定按钮
    Dim dr As DataRow = Tables("表A").Current.DataRow
    Dim lst As List(of String) =  dr.Lines("文件")  '获取文件集合
    lst.Add(dr("姓名") & ".jpg")  '给集合增加一个文件
    dr.Lines("文件") = lst  '将新的集合赋值给文件列
    If dlg.FileName.ToLower.StartsWith((ProjectPath & "Attachments").ToLower) = False Then '如果文件不在Attachments目录
        FileSys.CopyFile(dlg.FileName,ProjectPath & "Attachments\" & Filesys.GetName(dlg.FileName),True)  '那么复制到Attachments目录
    End If
End  If

这样存在一个问题：表中的照片列文件名改了，而Attachments里的文件仍是之前的名称，在窗口的图片管理器中显示有两个文件，都不能正常显示。

灵活使用

 

Dim dlg As New OpenFileDialog '定义一个新的OpenFileDialog
dlg.Filter= "图形文件|*.bmp;*.jpg;*.gif" '设置筛选器
If dlg.ShowDialog = DialogResult.Ok  Then  '如果用户单击了确定按钮
    Dim dr As DataRow = Tables("表A").Current.DataRow
    Dim lst As List(of String) =  dr.Lines("文件")  '获取文件集合
    lst.Add(dr("姓名") & ".jpg")  '给集合增加一个文件
    dr.Lines("文件") = lst  '将新的集合赋值给文件列
    If dlg.FileName.ToLower.StartsWith((ProjectPath & "Attachments").ToLower) = False Then '如果文件不在Attachments目录
        FileSys.CopyFile(dlg.FileName,ProjectPath & "Attachments\" & dr("姓名") & ".jpg", True)  '那么复制到Attachments目录
    End If
End  If