怎么设置VB清除按钮，清除PictureBox里的图片

Posted 2023-04-02

我用VB先设置了个picture，然后设置个2个按钮，一个为显示，一个为清楚，代码写好了，点击设置，会弹出图片，但是清除按钮该填什么代码？点击清楚，图片会消失的那种

Private Sub Command1_Click()
Picture1.Picture = LoadPicture("D:\Backup\one.jpg")
End Sub

Private Sub Command2_Click()

End Sub

代码如上

可在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 参考技术A Private Sub Command1_Click()
Picture1.Picture = LoadPicture("D:\Backup\one.jpg")
End Sub

Private Sub Command2_Click()
Picture1.Picture = LoadPicture("") '这个是清楚图片的方法。
End Sub

'不知道你现在学VB干嘛，我昨天一次性考完了笔试，机试。祝你好运！本回答被提问者采纳 参考技术B 在清除按钮的点击事件内写上下面一句话就行了：
Picture1.Picture = LoadPicture("") 参考技术C Private Sub Command1_Click()
Picture1.Picture = LoadPicture("D:\1.bmp")
End Sub

Private Sub Command2_Click()
Picture1.Picture = LoadPicture("")
End Sub

怎样清除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("")