110,524
社区成员
发帖
与我相关
我的任务
分享
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim r As Double = 30 * Math.PI / 180
Dim s As Double = 5
Dim dx As Double = Math.Cos(r) * s
Dim dy As Double = Math.Sin(r) * s
While TextBox1.Left < Me.Width And TextBox1.Top < Me.Height
TextBox1.Left += dx
TextBox1.Top += dy
Application.DoEvents()
Thread.Sleep(20)
End While
MessageBox.Show("move done")
TextBox1.Location = New Point(12, 12)
End Sub