189 8069 5689
如果 简单一点的办法 就是用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语句）画上去的图形和文字。