锐客网

  1. 首页 > 睿知 > it技术 > >

vb.net清除部分图像 vb怎么清除图片

IT技术目录

如何使用VB.NET制作一个软件，在固定文件夹中定时删除某些图片，Imports System.IO
Imports System.IO.Directory
' ======================================================
' 实现一个静态方法将指定文件夹下面vb.net清除部分图像的所有内容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)
' 得到源目录vb.net清除部分图像的文件列表vb.net清除部分图像，该里面是包含文件以及目录路径vb.net清除部分图像的一个数组
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设定循环时间vb.net清除部分图像，时间到则调用这个即可
vb中图片框如何清除里面的所有内容？具体操作步骤如下：
一、打开VB软件，在窗体上面添加一个列表框，如下图所示 。
二、单击列表框 ， 在属性窗口中，设置列表框的属性和内容，如下图所示 。
三、在窗体上面，添加一个命令按钮，如下图所示 。
四、设置，一个命令按钮的属性，名称别为“清除”，如下图所示 。
五、双击“清除”命令按钮，编辑其代码，如下图所示 。
六、运行程序，验证结果 。选择“政治”，点击“清除”命令按钮 。
七、则列表框中“政治”项目消失 。如下图所示 。
用vb.net代码如何实现清空picturebox控件所加载的图片？双击buttonvb.net清除部分图像，在代码窗中写入下面这句话vb.net清除部分图像：
this.pictureBox1.Image = null
就可以实现vb.net清除部分图像你说vb.net清除部分图像的功能啦
怎么设置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
【vb.net清除部分图像 vb怎么清除图片】vb.net清除部分图像的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于vb怎么清除图片、vb.net清除部分图像的信息别忘了在本站进行查找喔 。

    推荐阅读


    上一篇：怎么看服务器ip地址 怎么看登录服务器

    下一篇：路由器拨号怎么添加交换机，路由器怎么配置拨号