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

Posted 2023-04-02

我在窗体中设置了两个按钮.当点击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("")

VB中怎样单击按钮出现一个图片

command按钮中应该输入什么代码？

用vb编写一个点击按钮随机出现一张图片的软件，例如：窗体上一个picture1和command1的控件。

1、有四张图片，他们的后缀名不相同，用户可以问这样写：

Dim a$(3)

Private Sub Form_Load()

Randomize

a(0) = "D:\\xuexi.gif"

a(1) = "D:\\002.jpg"

a(2) = "D:\\房子.png"

a(3) = "D:\\4.jpg"

End Sub

Private Sub Command1_Click()

Picture1.Picture = LoadPicture(a(Int(Rnd * 3)))

End Sub

2、如果后缀名相同，且图片名称按顺序编号内并在程序目录下，用户可以容这样写：

Private Sub Command1_Click()

Picture1.Picture = LoadPicture(App.Path & "\\" & Int(Rnd * 3) & ".jpg")

End Sub

扩展资料：

CommandButton命令按钮最常用的事件是鼠标点击（Click）事件，当点击按钮时，犹如发出了一道命令，而这也正是“命令按钮”这个说法的由来。

CommandButton 的主要属性列举：

1、Cancel（取消）属性：

当一个按钮的 Cancel 属性设置为 True 时，按 ESC 键与单击此命令按钮的作用相同，因此，这个命令按钮被称为取消按钮。在一个窗体中，只允许一个命令按钮的 Cancel 属性为 True 。

2、Default（默认）属性：

当一个按钮的 Default 属性设置为 True 时，按回车键与单击此命令按钮的作用相同，因此，这个命令按钮被称为默认按钮。 与 Cancel 的设置一样，在一个窗体中，只允许一个命令按钮的 Default 属性设置为 True 。

3、Caption（标题）属性：

跟其他控件的 Caption 属性一样，都用来显示控件标题的属性。这里要强调的是，作为按钮控件，用户可以给按钮控件的 Caption 指定快捷方式。

参考资料来源：百度百科-命令按钮

参考技术A 好的程序来了,自己写的,已经验证OK!!!

Private Sub Command1_Click()
Picture1.Picture = LoadPicture("C:\123.jpg")
End Sub

你在窗体上添加一个Picture控件,一个Command按钮,然后把上面的代码复制进去,运行看结果吧!!!

注意:你首先要把123.jpg这个图片放到C盘下!!!本回答被提问者采纳 参考技术B 本人提供另一种方法
首先在窗体上添加command1按纽和图片框，在图片框的属性中，picture中添加你要加的图片，
其visible为false
。在命令按纽的click事件中介入如下代码
Picture1.visible=true
这样就好了
应该异曲同工吧#