Location:
Search - vb KeyCode
Search list
Description: VB KeyAscii 和 KeyCode 查询器
Platform: |
Size: 27962 |
Author: trace |
Hits:
Description: Dim x_step As Integer '声明
Dim y_step As Integer
Dim 往左 As Integer
Dim 往右 As Integer
Dim 往上 As Integer
Dim 往下 As Integer
Dim 重复次数_step As Integer
Private Sub Form_KeyDown(keycode As Integer, shift As Integer) '窗体接收按下任意键
'Private Sub Picture1_KeyDown(KeyCode As Integer, Shift As Integer)
'MsgBox keycode
If keycode = 37 Then
往左 = 1
End If
If keycode = 38 Then
往上 = 1
End If
If keycode = 39 Then
往右 = 1
End If
If keycode = 40 Then
往下 = 1
End If
Timer2.Enabled = True
End Sub
Private Sub Picture1_KeyUp(keycode As Integer, shift As Integer) '窗体接收放开任意键
Timer2.Enabled = False
往左 = 0
往右 = 0
往上 = 0
往下 = 0
End Sub
Private Sub Timer2_Timer()
If 往左 = 1 Then
If Line1.X1 - 100 <= 0 Then
Line1.X1 = 0
Line1.X2 = 2000
Else
Line1.X1 = Line1.X1 - 100
Line1.X2 = Line1.X2 - 100
End If
End If
If 往右 = 1 Then
If Line1.X2 + 100 > Picture1.Width Then
Line1.X1 = Picture1.Width - 2000
Line1.X2 = Picture1.Width
Else
Line1.X2 = Line1.X2 + 100
Line1.X1 = Line1.X2 - 2000
End If
End If
If 往上 = 1 And Line1.Y1 > 1000 Then
Line1.Y1 = Line1.Y1 - 100
Line1.Y2 = Line1.Y1
End If
If 往下 = 1 And Line1.Y1 < Picture1.Height - 1000 Then
Line1.Y1 = Line1.Y1 + 100
Line1.Y2 = Line1.Y1
End If
End Sub
Platform: |
Size: 1650 |
Author: wzcxh1@qq.com |
Hits:
Description: VB KeyAscii 和 KeyCode 查询器-VB KeyAscii and keyCode query browser
Platform: |
Size: 27648 |
Author: trace |
Hits:
Description: Disable Win Key
VB Code
Platform: |
Size: 6144 |
Author: mark |
Hits:
Description: VB键盘KeyCode常数用法,包括数字键、字母键、功能键-VB constant keyCode keyboard usage, including number keys, letter keys, function keys
Platform: |
Size: 1024 |
Author: tom |
Hits:
Description: 能方便查询各种ASCII码及键值,是VB编程的好帮手-Can easily access a variety of ASCII codes and keys, is a good helper VB programming
Platform: |
Size: 27648 |
Author: fuxi |
Hits:
Description: VB编写的二维条码编码软件源码,VB编写的二维条码编码软件源码-VB prepared two-dimensional bar coding software source code
Platform: |
Size: 3072 |
Author: lhx |
Hits: