[已解决]VBA用随机数设置按钮不断移动

laoau138 · 发表于 2017-5-10 14:47

本帖最后由 laoau138 于 2017-5-10 15:52 编辑

VBA用随机数设置按钮不断移动

最佳答案

france723

2017-5-10 15:32

本帖最后由 france723 于 2017-5-10 15:35 编辑

不靠近边缘的话没问题

Private Sub cmd_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Single, ByVal Y As Single)
Dim lf As Integer, tp As Integer, a, b
a = Rnd
If a <= 0.5 Then
tp = Int(Rnd * 5 - 30)
Else
tp = Int(Rnd * 5 + 20)
End If
b = Rnd
If b <= 0.5 Then
lf = Int(Rnd * 5 - 30)
Else
lf = Int(Rnd * 5 + 20)
End If
cmd.Top = cmd.Top + tp
cmd.Left = cmd.Left + lf
End Sub

复制代码

france723 · 发表于 2017-5-10 15:32

本帖最后由 france723 于 2017-5-10 15:35 编辑

不靠近边缘的话没问题

Private Sub cmd_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Single, ByVal Y As Single)
Dim lf As Integer, tp As Integer, a, b
a = Rnd
If a <= 0.5 Then
tp = Int(Rnd * 5 - 30)
Else
tp = Int(Rnd * 5 + 20)
End If
b = Rnd
If b <= 0.5 Then
lf = Int(Rnd * 5 - 30)
Else
lf = Int(Rnd * 5 + 20)
End If
cmd.Top = cmd.Top + tp
cmd.Left = cmd.Left + lf
End Sub

复制代码

		自动登录	找回密码
密码			注册

Private Sub cmd_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, By..