Question

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

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

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

Private Sub Command2_Click()

End Sub

代码如上

Answer 1

可在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

Answer 2

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

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

'不知道你现在学VB干嘛，我昨天一次性考完了笔试，机试。祝你好运！

Answer 3

在清除按钮的点击事件内写上下面一句话就行了：
Picture1.Picture = LoadPicture("")

Answer 4

Private Sub Command1_Click()
Picture1.Picture = LoadPicture("D:\1.bmp")
End Sub

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