vb编程。运行时在屏幕显示一个窗体,单击窗体时显示一幅图片,右击时清除该图
展开全部
假设窗体名称为form1,图片控件名称为pic1
private
sub
form_load()
pic1.visible=false
'这里你也可以事先在属性窗口设置为false,别忘了同时把图片加载上
end
sub
private
sub
form_click()
pic1.visible=true
end
sub
不知道你说的右击是窗体还是图片控件,这里我假设是图片控件(如果不是你可以将图片名称改成窗体即可)
private
sub
pic1_mousedown(后面参数我就不写了)
if
button=2
then
pic1.picture=loadpicture()
end
sub
试试吧,因为这是我逐字敲的,所以没有区分大小写,将就看吧
private
sub
form_load()
pic1.visible=false
'这里你也可以事先在属性窗口设置为false,别忘了同时把图片加载上
end
sub
private
sub
form_click()
pic1.visible=true
end
sub
不知道你说的右击是窗体还是图片控件,这里我假设是图片控件(如果不是你可以将图片名称改成窗体即可)
private
sub
pic1_mousedown(后面参数我就不写了)
if
button=2
then
pic1.picture=loadpicture()
end
sub
试试吧,因为这是我逐字敲的,所以没有区分大小写,将就看吧
展开全部
我试了几次了,结果发现您说的单击显示和右击清除根本就是一个矛盾,对PC来说左击和右击都是单击,于是就成了PC不知道该显示还是清除的局面.
所以我做了个!
Private
Sub
Form_Click()
Pic1.Visible
=
True
End
Sub
Private
Sub
Form_DblClick()
Pic1.Visible
=
False
End
Sub
Private
Sub
Form_Load()
Pic1.Visible
=
False
End
Sub
Private
Sub
Pic1_DblClick()
Pic1.Visible
=
False
End
Sub
这样命令,无论双击图片还是还是双击窗体都可以达到双击清除的目的.
原来我更菜,才知道这是一个矛盾!
晕!不是故意出难题吧?双击比右击不更方便吗?
所以我做了个!
Private
Sub
Form_Click()
Pic1.Visible
=
True
End
Sub
Private
Sub
Form_DblClick()
Pic1.Visible
=
False
End
Sub
Private
Sub
Form_Load()
Pic1.Visible
=
False
End
Sub
Private
Sub
Pic1_DblClick()
Pic1.Visible
=
False
End
Sub
这样命令,无论双击图片还是还是双击窗体都可以达到双击清除的目的.
原来我更菜,才知道这是一个矛盾!
晕!不是故意出难题吧?双击比右击不更方便吗?
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询