vb.net清除部分图像 vb清除命令

vb中图片框如何清除里面的所有内容?

具体操作步骤如下:

成都创新互联公司成立与2013年,是专业互联网技术服务公司,拥有项目成都做网站、成都网站制作网站策划,项目实施与项目整合能力。我们以让每一个梦想脱颖而出为使命,1280元单县做网站,已为上家服务,为单县各地企业和个人服务,联系电话:13518219792

一、打开VB软件,在窗体上面添加一个列表框,如下图所示。

二、单击列表框,在属性窗口中,设置列表框的属性和内容,如下图所示。

三、在窗体上面,添加一个命令按钮,如下图所示。

四、设置,一个命令按钮的属性,名称别为“清除”,如下图所示。

五、双击“清除”命令按钮,编辑其代码,如下图所示。

六、运行程序,验证结果。选择“政治”,点击“清除”命令按钮。

七、则列表框中“政治”项目消失。如下图所示。

怎么设置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制作一个软件,在固定文件夹中定时删除某些图片,

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设定循环时间,时间到则调用这个即可

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

双击button,在代码窗中写入下面这句话:

this.pictureBox1.Image = null

就可以实现你说的功能啦


分享名称:vb.net清除部分图像 vb清除命令
链接地址:http://scjbc.cn/article/ddoopcj.html

其他资讯