UC知道关于VB程序小程序 希望能逐句解释
来源：百度知道 编辑：UC知道 时间：2024/06/24 15:34:57
Select Case KeyCode
Case 65 ' A
Label32.Visible = True
Text2.Visible = True
Text2.SetFocus
Case 112 ' F1
Case 113 ' F2
If Label6.Caption = "停 车" Then
outp &H344, &H4
For i = 0 To 5
unuse = 0
Next i
outp &H344, &H0
TBMSH = TBMSH + 1
Label12.Caption = TBMSH
End If
Case 114 ' F3
If Label6.Caption = "停 车" Then
outp &H344, &H80
Else
'Port344_Value = Port344_Value Or &H80
'outp &H344, Port344_Value
End If
Timer2.Enabled = False
Timer2.Interval = 500
Timer2.Enabled = True
Case 115 ' F4
If Label6.Caption = "运 行" Then
outp &H34
Case 65 ' A
Label32.Visible = True
Text2.Visible = True
Text2.SetFocus
Case 112 ' F1
Case 113 ' F2
If Label6.Caption = "停 车" Then
outp &H344, &H4
For i = 0 To 5
unuse = 0
Next i
outp &H344, &H0
TBMSH = TBMSH + 1
Label12.Caption = TBMSH
End If
Case 114 ' F3
If Label6.Caption = "停 车" Then
outp &H344, &H80
Else
'Port344_Value = Port344_Value Or &H80
'outp &H344, Port344_Value
End If
Timer2.Enabled = False
Timer2.Interval = 500
Timer2.Enabled = True
Case 115 ' F4
If Label6.Caption = "运 行" Then
outp &H34
Select Case KeyCode 'select语句选择符合条件的KeyCode(关键码)
Case 65 ' A '关键码为65即A
Label32.Visible = True '则ID为Label32的标签用户可见
Text2.Visible = True 'ID为Text2的文本框用户可见
Text2.SetFocus '且Text2的一个属性为SetFocus
Case 112 ' F1 '符合条件112 即f1
Case 113 ' F2 '符合条件113 即f2
'其实case后面的数字为ASC码
If Label6.Caption = "停 车" Then '如果Label6的标题为"停 车"
outp &H344, &H4 '则一段16进制代码
For i = 0 To 5 'for循环从i=0到5
unuse = 0 'unuse 为0
Next i
outp &H344, &H0 '输出一段16进制数
TBMSH = TBMSH + 1 'TBMSH 自加1
Label12.Caption = TBMSH 'ID为Label12的标题栏的标题为TBMSH
End If
Case 114 ' F3 '符合条件114 即f3
If Label6.Caption = "停 车" Then '如果Label6的标题为"停 车"
outp &H344, &H80 '输出一段16进制数
Else '如果Label6的标题不为"停 车"
'Port344_Value = Port344_Value Or &H80 '则Port344的值为&H80 的16进制数
'outp &H34