vb编程。运行时在屏幕显示一个窗体，单击窗体时显示一幅图片，右击时清除该图

如题所述

举报该文章

相关建议 2010-09-19

只要添加一个picture控件就行啦。运行时候设置可见，该空间布满窗体，在该空间的右键事件中添加隐藏代码就行了。
昨天忙，没具体看你的要求，我现在写了一个代码，呵呵，可能有些繁杂，别见笑。
把代码中图片的路径换成你要加载的图片路径就可以了，不需要别的任何控件。就一个窗体就可以。
Dim a As Long
Private Sub Form_Load()
Form1.Picture = LoadPicture("F:\jstt\地板.jpg")
a = 1
End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
If a = 1 Then
Form1.Picture = LoadPicture("f:\jstt\孔板.jpg")
a = 2
Else
Form1.Picture = LoadPicture("f:\jstt\地板.jpg")
a = 1
End If
ElseIf Button = 2 Then
Form1.Picture = LoadPicture("")

End If

End Sub

温馨提示：内容为网友见解，仅供参考

当前网址：https://11.t2y.org/zz/f7s4qmv78.html

其他看法

第1个回答 2010-09-18

假设窗体名称为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
试试吧，因为这是我逐字敲的，所以没有区分大小写，将就看吧

第2个回答 2010-09-19

我试了几次了,结果发现您说的单击显示和右击清除根本就是一个矛盾，对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

这样命令,无论双击图片还是还是双击窗体都可以达到双击清除的目的.

原来我更菜,才知道这是一个矛盾！晕！不是故意出难题吧？双击比右击不更方便吗？

第3个回答 2010-09-18

VB内置的常用函数里就有这个功能
mid函数:比如你在text1中输入的三位数是123
a=text1.text
text2.text=mid(a,1,2)
这时输出的字符是1和2,含义是从第一个字符开始的前两个字符,再比如是mid(a,1,3)意思就是从第一个开始的前三个字符,要实现你要求的功能就是text2.text=mid(a,1,1)+" "+mid(a,2,1)+" "+mid(a,3,1)

如果对您有帮助，请记得采纳为满意答案，谢谢！祝您生活愉快！