VB语言把控件左右 或上下移动 怎么说
展开全部
Const vbKeyLeft = 37 ' 方向键←
Const vbKeyUp = 38 ' 方向键↑
Const vbKeyRight = 39 ' 方向键→
Const vbKeyDown = 40 ' 方向键↓
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case vbKeyLeft '左
Label1.Move Label1.Left - 100, Label1.Top, Label1.Width, Label1.Height
Case vbKeyUp '上
Label1.Move Label1.Left, Label1.Top - 100, Label1.Width, Label1.Height
Case vbKeyRight '右
Label1.Move Label1.Left + 100, Label1.Top, Label1.Width, Label1.Height
Case vbKeyDown '下
Label1.Move Label1.Left, Label1.Top + 100, Label1.Width, Label1.Height
End Select
End Sub
试试这个
这是键盘方向键控制标签移动的例子,需要一个label
Const vbKeyUp = 38 ' 方向键↑
Const vbKeyRight = 39 ' 方向键→
Const vbKeyDown = 40 ' 方向键↓
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case vbKeyLeft '左
Label1.Move Label1.Left - 100, Label1.Top, Label1.Width, Label1.Height
Case vbKeyUp '上
Label1.Move Label1.Left, Label1.Top - 100, Label1.Width, Label1.Height
Case vbKeyRight '右
Label1.Move Label1.Left + 100, Label1.Top, Label1.Width, Label1.Height
Case vbKeyDown '下
Label1.Move Label1.Left, Label1.Top + 100, Label1.Width, Label1.Height
End Select
End Sub
试试这个
这是键盘方向键控制标签移动的例子,需要一个label
本回答被提问者和网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
Command1.Top =
Command1.Left =
Command1.Left =
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
top和left修改
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询