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

Posted 2023-04-02

具体操作步骤如下：

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

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

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

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

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

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

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

参考技术A

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

参考技术B Picture1.Cls
Picture1.Picture = LoadPicture("")本回答被提问者采纳 参考技术C Picture1.Picture = LoadPicture("")
Picture1.Cls 参考技术D Picture1.Cls

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

我在窗体中设置了两个按钮.当点击command1时就在picturebox中插入图片，同时不显示我在picturebox中画的三角形。当点击command2时就清除先插入的图片然后显示我在picturebox中画的三角形。
请高手指教

　　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 参考技术A Private Sub Command1_Click()
Picture1 = LoadPicture("图片文件")
End Sub

Private Sub Command2_Click()
Picture1 = Nothing
Picture1.AutoRedraw = True
Picture1.Line (100, 100)-(200, 200)
Picture1.Line (200, 200)-(100, 300)
Picture1.Line (100, 300)-(100, 100)
End Sub本回答被提问者采纳 参考技术B 绘图清除
Picture1.Cls
图片清除
Picture1.Picture = LoadPicture("")