如何实现鼠标一移上按钮，按钮就闪开。。。。：（

[wenti2003]

我想给女朋友选择，只能选喜欢 不能选不喜欢，点不到不喜欢。。。：）

[lanWay]

Private Sub Command1_GotFocus(index As ingeger)
Select Case index
Case 0, 1, 2
SendKeys "{tab}"
Case Else
Exit Sub
End Select
End Sub

[LoveBH]

呵呵，这个看起来简单，其实也不简单阿，兄弟想戏弄你MM吗？

按 钮的闪开是由鼠标移动（MouseMove）这一事件触发的。因此在按钮的MouseMove事件过程中编写能使按钮移动的代码即可完成次功能

代码如下

Private Sub Command1_Click()
Label1.Caption = "我也爱你!!"
Command1.Enabled = False
Command2.Left = 2640
Command2.Top = 2040
Command2.Enabled = False
End Sub

Private Sub Command2_MouseMove(Button As Integer, Shift As Integer, X As Single, _
Y As Single)
'取窗体宽度范围内的随机数
X = Rnd * (Form1.ScaleWidth - Command2.Width)
'取窗体高度范围内的随机数
Y = Rnd * (Form1.ScaleHeight - Command2.Height)
'移动按钮到窗体的（X，Y）位置
Command2.Move X, Y
End Sub


欢迎光临电脑爱好者论坛 bbs.cfanclub.net

[lanWay]

Private Sub Command1_GotFocus(index As Integer) '罪过，写错一个字符

[xks]

我做过！

前几年的电脑报合定本中有这个例子！


你不防查一下！