怎样清除VB中picture控件中插入的jpg图片

VB可对图片框的Picture属性使用LoadPicture 函数来实现清除里面的所有内容。

PictureBox 控件

PictureBox 控件可以显示来自位图、图标或者元文件，以及来自增强的元文件、JPEG 或 GIF

文件的图形。如果控件不足以显示整幅图象，则裁剪图象以适应控件的大小。

Picture 属性

返回或设置控件中要显示的图片。对于 OLE 容器控件，在设计时不可用在运行时为只读。

LoadPicture 函数

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

Cls 方法

清除运行时 Form 或 PictureBox 所生成的图形和文本。

以下代码体现上述各知识点的应用：

Private Sub Command1_Click()

Picture1.Picture = LoadPicture("") ' 可删除图片框所有内容

End Sub

Private Sub Command2_Click()

Picture1.Cls '只能清除绘制的图

End Sub

Private Sub Form_Load()

Picture1.Picture = LoadPicture("C:\Sunset.jpg")

Picture1.ForeColor = QBColor(15)

Picture1.Print Now

End Sub

VB6.0用LoadPicture 函数装载的图片，可直接使用不带任何参数的LoadPicture()语句来卸载。

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

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

方法二：

选择图形框，在属性窗口中选择picture属性条，然后按Del键。

---