一个关于vb编程的问题

来源：百度知道 编辑：UC知道 时间：2024/05/23 17:17:19
我看到个很有意思的程序，窗口里有个按钮，只要鼠标靠近那个按钮，它就跑到窗口别处去了，无论你怎么努力都点不到它。这个用vb能实现不，请各位高手给出代码，谢谢了。

Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim MyValue
Randomize
MyValue = Int(((Me.Height - Command1.Height) * Rnd) + 1) ' 生成 窗体高度内的一个随机数值。
Command1.Top = MyValue

Randomize
MyValue = Int(((Me.Width - Command1.Width) * Rnd) + 1) ' 生成 窗体宽度内的一个随机数值。
Command1.Left = MyValue

End Sub

在鼠标移到按钮上的时后MOVE事件发生,随机生成一个新的位置,把按钮移动到那里去

只有一个简单的事件！~MouseMove

只不过自己算一下就可以了！~

有兴趣就自己做吧！~ 很简单的！~

有个思路，通过鼠标的位置来判断，如果小于某个值，就Move按钮。