vb.net删除指定图片,vb清除图片框中的图片

怎么用VB向EXCEL中的指定单元格中添加和删除图片？

如果你知道图片的Name

可以,如名称是"Picture 1"

xlSheet.Shapes("Picture 1").delete

如果不知道名称,知道在单元格的位置,譬如顶点位置在$B$3

可以循环判断后删除

For Each P In xlSheet.Shapes

If P.Name Like "Picture*" and P.TopLeftCell.Address="$B$3" Then P.Delete

Next

相关问答

Q1: vb.net删除文件

Private Sub btnRemovePath_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRemovePath.Click

        Try

            ' 先建立目录以便用于后续的删除示范。

            If Not Directory.Exists("D:\网易") Then

                Directory.CreateDirectory(" D:\网易 \Test1")

                Directory.CreateDirectory(" D:\网易 \Test2")

                Directory.CreateDirectory(" D:\网易 \Test3")

            End If

            ' 删除子目录 Test1。

            Directory.Delete(" D:\网易 \Test1", True)

            ' 删除子目录 Test2。

            Dim myDirectoryInfo As New DirectoryInfo(" D:\网易 \Test2")

            myDirectoryInfo.Delete(True)

            ' 将目录 C:\AlexDirDemo 及其以下的文件和子目录全数删除。

            Directory.Delete(" D:\网易 ", True)

        Catch ex As Exception

            MessageBox.Show(ex.Message)

            Exit Sub

        End Try

        ' 启动 Windows 资源管理器。

        Process.Start("explorer.exe", "D:\")

    End Sub

Q2: 用vb.net代码如何实现清空picturebox控件所加载的图片？

双击button，在代码窗中写入下面这句话：

this.pictureBox1.Image = null

就可以实现你说的功能啦

Q3: 怎么设置VB清除按钮，清除PictureBox里的图片

可在VB的按钮事件中可对PictureBox图片框控件属性Picture赋值 LoadPicture()，清除装载在PictureBox图片框内的图片。

LoadPicture 函数，将图形载入到窗体的 Picture 属性、PictureBox 控件或 Image 控件。

VB语言中LoadPicture函数用法示例：

本例使用 LoadPicture 函数将图片加载到窗体的 PictureBox 控件并从控件上清除掉该图片。要试用此例，将 PictureBox 控件添加入 Form 对象，然后将以下代码粘贴到 Form 

的声明部分，然后运行此例，单击 Form 。

Private Sub Form_Click()

    Dim Msg As String   ' 声明变量。

    On Error Resume Next   ' 设置错误句柄。

    Height = 3990

    Width = 4890   ' 设置高度和宽度。

    Picture1.Picture = LoadPicture("C:\Windows\Web\Wallpaper\Windows\img0.jpg", vbLPCustom, vbLPColor, 32, 32)

    If Err Then

        Msg = "Couldn't find the .cur file."

        MsgBox Msg   ' 显示错误消息。

        Exit Sub   ' 如果发生错误则退出。

    End If

    Msg = "Choose OK to clear the bitmap from the form."

    MsgBox Msg

    Picture1.Picture = LoadPicture()   '清除 picturebox。

End Sub

Q4: vb.net怎么强制删除文件

先杀进程再删除文件

Visual Basic code

//杀进程代码

     Private Sub KillProcess(ByVal processName As String)

         Dim myproc As System.Diagnostics.Process = New System.Diagnostics.Process

         Try

             For Each thisproc As Process In Process.GetProcessesByName(processName)

                 If (Not thisproc.CloseMainWindow()) Then

                     thisproc.Kill()

                 End If

             Next

         Catch

         End Try

     End Sub

Q5: 如何使用VB.NET制作一个软件，在固定文件夹中定时删除某些图片，

Imports System.IO

Imports System.IO.Directory

 

    ' ======================================================

    ' 实现一个静态方法将指定文件夹下面的所有内容del

    ' 如果目标文件夹为只读属性就会报错。

    ' ======================================================

    Public Shared Sub DelDir(ByVal srcPath As String, ByVal aimPath As String)

        Try

            ' 检查目标目录是否以目录分割字符\结束,如果不是则添加之

            If aimPath(aimPath.Length - 1)  Path.DirectorySeparatorChar Then

                aimPath += Path.DirectorySeparatorChar

            End If

 

            '判断源目录是否存在,不存在则退出.

            If (Not Directory.Exists(srcPath)) Then Exit Sub

 

            ' 判断目标目录是否存在如果不存在则新建之

            If (Not Directory.Exists(aimPath)) Then Directory.CreateDirectory(aimPath)

 

            ' 得到源目录的文件列表，该里面是包含文件以及目录路径的一个数组

            Dim fileList() As String = Directory.GetFileSystemEntries(srcPath)

 

            ' 遍历所有的文件和目录

 

            For Each FileName As String In fileList

                ' 先当作目录处理如果存在这个目录就递归Copy该目录下面的文件

                If Directory.Exists(FileName) Then

                    ' 直接Delete文件

                    File.Delete(aimPath + Path.GetFileName(FileName))

                end if

            Next

 

        Catch ex As Exception

            MessageBox.Show(ex.ToString())

        End Try

    End Sub

然后你定义一个timer设定循环时间，时间到则调用这个即可