vb.net - 从引用图片框的文件夹中删除图像

Question

抱歉，我必须重写这个问题，因为我之前发布的同一个问题没有得到任何更新。

下面是我在 Visual Studio 中使用 vb 将一些数据插入 Ms Access 数据库的代码。网。

当我插入数据时，我还会浏览该项目的图像并将其保存到位于项目目录下的文件夹中以供通用访问。

有一个 datagridview 显示插入的数据，以访问带有图片框中的图像的数据库。每当数据网格视图选择发生变化时，它都会将图片显示到图片框中。

当我想删除位于项目文件夹中的数据以及图像时遇到问题，因为它显示错误“文件被另一个进程使用，无法删除”

由于我已将该图像引用到我的图片框，因此无法直接删除它。所以在这里我正在寻找一种可以在图片框中显示图像克隆而不是真实对象的解决方案。

下面是我的代码

Public Class frmMainCetegory
Private Sub frmMainCetegory_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    'TODO: This line of code loads data into the 'PosDatabaseDataSet.tblItemMainCategory' table. You can move, or remove it, as needed.
    Me.TblItemMainCategoryTableAdapter.Fill(Me.PosDatabaseDataSet.tblItemMainCategory)
    Me.CenterToParent()
    Me.btnAddNew.Select()

End Sub

Private Sub btnAddNew_Click(sender As Object, e As EventArgs) Handles btnAddNew.Click
    Try

        Me.TblItemMainCategoryBindingSource.AddNew()
        Me.txtMainCategory.Select()
    Catch ex As Exception
        MsgBox(ex.Message)
    End Try
End Sub

Private Sub btnSave_Click(sender As Object, e As EventArgs) Handles btnSave.Click
    Try

        If Me.txtMainCategory.Text = "" Then
            MsgBox("Please Enter Main Category Name!", vbInformation)
            Exit Sub
        End If

        Me.imgMainCategoryImage.Image.Save(Application.StartupPath & "\Images\" & Me.txtMainCategory.Text & ".jpeg", System.Drawing.Imaging.ImageFormat.Jpeg)

        Me.TblItemMainCategoryBindingSource.EndEdit()
        Me.TblItemMainCategoryTableAdapter.Update(Me.PosDatabaseDataSet.tblItemMainCategory)
        Me.TblItemMainCategoryTableAdapter.Fill(Me.PosDatabaseDataSet.tblItemMainCategory)
        Me.btnAddNew.Select()
    Catch ex As Exception
        MsgBox(ex.Message)
    End Try
End Sub

Private Sub btnDelete_Click(sender As Object, e As EventArgs) Handles btnDelete.Click
    Try
        Dim MainCatName As String
        MainCatName = Me.TblItemMainCategoryDataGridView.CurrentRow.Cells("MainCategoryName").Value

        If Me.TblItemMainCategoryDataGridView.Rows.Count - 1 > 0 Then
            'check before delting, if this main category is used in sub category then It can not be deleted.
            Dim I As Integer
            I = frmSubCategories.TblItemSubCategoryTableAdapter.qryCountMainCategoryUnderSubCategory(MainCatName)
            If I > 0 Then
                MsgBox(MainCatName & " is used under Sub Category(s), Please Delete Sub Category(s) First!", vbOK)
                Exit Sub
            End If
        End If

        Me.TblItemMainCategoryBindingSource.RemoveCurrent()
        Me.TblItemMainCategoryTableAdapter.Update(Me.PosDatabaseDataSet.tblItemMainCategory)
        Me.TblItemMainCategoryTableAdapter.Fill(Me.PosDatabaseDataSet.tblItemMainCategory)

        'Delete the Main Category Image if this exists
        If System.IO.File.Exists(Application.StartupPath & "\Images\" & MainCatName & ".JPEG") Then
            System.IO.File.Delete(Application.StartupPath & "\Images\" & MainCatName & ".JPEG")
            MsgBox("Image Deleted Successfull")

        End If

    Catch ex As Exception
        MsgBox(ex.Message)
    End Try
End Sub

Private Sub btnBrowse_Click(sender As Object, e As EventArgs) Handles btnBrowse.Click
    Try

        Me.OpenFileDialog1.Filter = "Bitmaps(*.JPG, *.PNG, *.JPEG, *.BMP, *.TIF, *.GIF, *.TIFF)|"
        Me.OpenFileDialog1.FileName = ""

        If OpenFileDialog1.ShowDialog(Me) = DialogResult.OK Then
            Dim img As String = Me.OpenFileDialog1.FileName
            Me.imgMainCategoryImage.Image = System.Drawing.Bitmap.FromFile(img)
            Me.btnSave.Select()

        Else

        End If


    Catch ex As Exception
        MsgBox(ex.Message)
    End Try
End Sub

Private Sub TblItemMainCategoryDataGridView_SelectionChanged(sender As Object, e As EventArgs) Handles TblItemMainCategoryDataGridView.SelectionChanged
    Try

        Me.imgMainCategoryImage.Image = DirectCast(Image.FromFile(Application.StartupPath & "\Images\" & Me.TblItemMainCategoryDataGridView.CurrentRow.Cells("MainCategoryName").Value & ".JPEG").Clone(), Image)
        ' Me.imgMainCategoryImage.Image = System.Drawing.Bitmap.FromFile(Application.StartupPath & "\Images\" & Me.TblItemMainCategoryDataGridView.CurrentRow.Cells("MainCategoryName").Value & ".JPEG")

    Catch ex As Exception

        Me.imgMainCategoryImage.Image = My.Resources.imgEmpty 'if image path not found then select empty image

    End Try
End Sub

Private Sub btnClose_Click(sender As Object, e As EventArgs) Handles btnClose.Click
    Me.Close()
End Sub

Private Sub Label6_Click(sender As Object, e As EventArgs) Handles Label6.Click
    frmTable.Show()
End Sub

结束类

标签： vb.netvisual-studio-2017