vb中 command按钮的隐形...
使command看不见,但鼠标点上去可以点动.本人自学VB跪求答案,要详细哦!如果行追加100分!!!!!...
使command看不见,但鼠标点上去 可以点动.
本人自学VB 跪求答案,要详细哦!
如果行追加100分!!!!! 展开
本人自学VB 跪求答案,要详细哦!
如果行追加100分!!!!! 展开
6个回答
展开全部
'Visible=False只是不可见,不代表它不在
Private Sub Form_Load()
Command1.Visible = False
End Sub
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
With Command1
If X > .Left And X < .Left + .Width And Y > .Top And Y < .Top + .Height Then Command1_Click
End With
End Sub
Private Sub Command1_Click()
Print "其实我一直都在"
End Sub
Private Sub Form_Load()
Command1.Visible = False
End Sub
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
With Command1
If X > .Left And X < .Left + .Width And Y > .Top And Y < .Top + .Height Then Command1_Click
End With
End Sub
Private Sub Command1_Click()
Print "其实我一直都在"
End Sub
展开全部
不明白……
看不见?还能点击?
想象不出那是什么效果……
看不见?还能点击?
想象不出那是什么效果……
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
是要这种效果吧,添加1个命令按钮,复制代码即可,最多只能追加50的哦,你怎么说要追加100,除非先提高悬赏
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If X > Command1.Left And X < Command1.Left + Command1.Width And Y > Command1.Top And Y < Command1.Top + Command1.Height Then
Command1.Visible = True
Else
Command1.Visible = False
End If
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If X > Command1.Left And X < Command1.Left + Command1.Width And Y > Command1.Top And Y < Command1.Top + Command1.Height Then
Command1.Visible = True
Else
Command1.Visible = False
End If
End Sub
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
使COMMAND看不见.那不是上面什么也没有?
用COMMAND不可见.可以点动我不会.
但是我知道用IMAGE控件可以实现你想要的功能.
在IMAGE_CLICK里写代码...
用COMMAND不可见.可以点动我不会.
但是我知道用IMAGE控件可以实现你想要的功能.
在IMAGE_CLICK里写代码...
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
用label或者image均可 因为它们都可以透明 也支持click事件
Private Sub Image1_Click()
MsgBox "dfdf"
End Sub
Private Sub Label1_Click()
label1.caption = ""
Label1.BackColor = &HFF
Label1.BackStyle = Abs(Label1.BackStyle - 1)
End Sub
Private Sub Image1_Click()
MsgBox "dfdf"
End Sub
Private Sub Label1_Click()
label1.caption = ""
Label1.BackColor = &HFF
Label1.BackStyle = Abs(Label1.BackStyle - 1)
End Sub
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
使用Image代替Command控件,如果只用于单击事件的话效果一样
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询