怎么设计使VB中标签向左，向右手动移动的程序呢
答案:2 悬赏:70 手机版
解决时间 2021-01-25 05:32
- 提问者网友：嗝是迷路的屁
- 2021-01-25 00:44
怎么设计使VB中标签向左，向右手动移动的程序呢
最佳答案
- 五星知识达人网友：玩世
- 2021-01-25 01:56
1
2
3
4
5
6
7
8
9
10
11
PrivateSubForm_KeyDown(KeyCode AsInteger, Shift AsInteger)
IfKeyCode = vbKeyLeft AndLabel1.Left > 0 Then
Label1.Left = Label1.Left - 120 '按←键使标签向左移动
ElseIfKeyCode = vbKeyRight AndLabel1.Left Label1.Left = Label1.Left + 120 '按→键使标签向右移动
EndIf
EndSub
PrivateSubForm_Load()
Me.KeyPreview = True
EndSub
2
3
4
5
6
7
8
9
10
11
PrivateSubForm_KeyDown(KeyCode AsInteger, Shift AsInteger)
IfKeyCode = vbKeyLeft AndLabel1.Left > 0 Then
Label1.Left = Label1.Left - 120 '按←键使标签向左移动
ElseIfKeyCode = vbKeyRight AndLabel1.Left Label1.Left = Label1.Left + 120 '按→键使标签向右移动
EndIf
EndSub
PrivateSubForm_Load()
Me.KeyPreview = True
EndSub
全部回答
- 1楼网友：老鼠爱大米
- 2021-01-25 02:18
额
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯