VB程序！！急救

来源：百度知道 编辑：UC知道 时间：2024/05/25 23:24:14
~~老师要求做一个程序。。。就是鼠标点击一个按扭~自动跳到另一个地方~~可以点不到按扭~~要用到MOVE和随机数据~~~谁可以给我一个原代码~~！！！！！！急~

Private Sub Form_Load()
Command1.Enabled = False
Command1.Caption = "来点啊"
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If X < Command1.Left Then Exit Sub
If Y < Command1.Top Then Exit Sub
If X > Command1.Left + Command1.Width Then Exit Sub
If Y > Command1.Top + Command1.Height Then Exit Sub
Command1.Left = Int((Form1.ScaleHeight - Command1.Width) * Rnd)
Command1.Top = Int((Form1.ScaleHeight - Command1.Height) * Rnd)

End Sub

Private Sub Command1_Click()
Randomize
Command1.Move Int((Form1.Width + 1) * Rnd) - Command1.Width, Int(Rnd * (Form1.Height)) - Command1.Height
End Sub
移动的范围自己可以改动

Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Randomize
Command1.Left = Rnd * Form1.Width
Command1.Top = Rnd * Form1.Height
End Sub