Question

VB怎么在窗口内点击会将左上角的图片移动到右下角

Answer 1

　　使vb的窗体在电脑屏幕上随鼠标一起移动方法　　先用VB做一个窗口，在top0 left0 的位置。使鼠标一移动到窗口，窗口就跑到屏幕右上角再移动到屏幕右上角，就跑到右下角，接着在屏幕右下角的窗口里移动又跑到左下角，最后在屏幕左下角的窗口里移动又跑回原来的位置。就这样不断循环。这是我跟网上学，写的代码，但是移到右上角的时候就不动了。谁能告诉我错在哪了，帮我改一下Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)If Form1.Top = 0 ThenForm1.Top = 0Form1.Left = 16000ElseIf Form1.Left = 16000 ThenForm1.Top = 9500Form1.Left = 16000ElseIf Form1.Top = 9500 ThenForm1.Top = 9500Form1.Left = 0ElseIf Form1.Left = 0 ThenForm1.Top = 0Form1.Left = 0End IfEnd Sub