vb设计程序左下移动右上移动

编一过程，对Label1控件在窗体上进行随意上、下、左、右、斜移动。在窗体上放置一个Label1控件，放置两个按钮，标题为“手动”“自动”

分析：

上移Label1.top= Label1.top－步长

下移Label1.top= Label1.top＋步长

左移Label1.left= Label1.left－步长

右移Label1.left= Label1.left＋步长

斜移：同时进行上边上下与左右的一个组合

例子：text1输入步长，'tag 确定方向，比如上tag=1,下tag=-1

Private Sub MyMove(ByVal tag%)

Label1.Top = Label1.Top + tag * Val(Text1)

Label1.Left = Label1.Left + tag * Val(Text1)

End Sub

自动

Private Sub Timer1_Timer()

Call MyMove(tag)

End Sub

手动

Private Sub Command2_Click()

Timer1.Enabled = False

Call MyMove(tag)

End Sub

希望对你有帮助

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)

If KeyCode = vbKeyLeft And Label1.Left > 0 Then

    Label1.Left = Label1.Left - 120  '按←键使标签向左移动

ElseIf KeyCode = vbKeyRight And Label1.Left < Me.ScaleWidth - Label1.Width Then

    Label1.Left = Label1.Left + 120  '按→键使标签向右移动

End If

End Sub

Private Sub Form_Load()

Me.KeyPreview = True

End Sub

---