重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
如果 简单一点的办法 就是用Line方法画出与背景色一样的矩形,当然,AutoReDraw属性为True是前提条件。
创新互联专注于顺河企业网站建设,响应式网站开发,电子商务商城网站建设。顺河网站建设公司,为顺河等地区提供建站服务。全流程按需策划,专业设计,全程项目跟踪,创新互联专业和态度为您提供的服务
例如:清除图片框Picture1的0,0到1000,2000的矩形区域内容
Picture1.Line (0, 0)-(1000, 2000), Picture1.BackColor, BF
方法一:
使用代码,执行代码如下:
Picture1.Picture = LoadPicture("")
或
picture1. cls
方法二:
选择图形框,在属性窗口中选择picture属性条,然后按Del键。
可在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
Picture1.Picture = LoadPicture("")
和
Picture1.Cls
第一行代码可以清除图片框里面的所有内容,实际上就是加载一幅“空”的图片到图片框;而后者只能清除由代码(如Print语句)画上去的图形和文字。