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

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

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

Private Sub Command2_Click()

End Sub

代码如上
展开
 我来答
zdingyun
推荐于2016-05-13 · 知道合伙人软件行家
zdingyun
知道合伙人软件行家
采纳数:15429 获赞数:48174
1982年上海业余工业大学化工系毕业 现退休

向TA提问 私信TA
展开全部

可在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
帐号已注销
推荐于2016-06-19 · TA获得超过431个赞
知道小有建树答主
回答量:88
采纳率:0%
帮助的人:118万
展开全部
Private Sub Command1_Click()
Picture1.Picture = LoadPicture("D:\Backup\one.jpg")
End Sub

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

'不知道你现在学VB干嘛,我昨天一次性考完了笔试,机试。祝你好运!
本回答被提问者采纳
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
dragon9565
2010-09-19 · TA获得超过223个赞
知道答主
回答量:114
采纳率:0%
帮助的人:121万
展开全部
在清除按钮的点击事件内写上下面一句话就行了:
Picture1.Picture = LoadPicture("")
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
未来读书会
2010-09-19 · TA获得超过305个赞
知道小有建树答主
回答量:173
采纳率:100%
帮助的人:105万
展开全部
Private Sub Command1_Click()
Picture1.Picture = LoadPicture("D:\1.bmp")
End Sub

Private Sub Command2_Click()
Picture1.Picture = LoadPicture("")
End Sub
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 更多回答(2)
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式