1 回复
小霞姐姐爱学习 管理员 回复于2022-10-08之前
窗体放两个Label控件，一个Timer控件：Dim n As IntegerPrivate Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)Select Case KeyCodeCase vbKeyUpIf Label1.Top > 0 Then Label1.Top = Label1.Top – 50Case vbKeyDownIf Label1.Top 0 Then Label1.Left = Label1.Left – 50Case vbKeyRightIf Label1.Left