Question

Private Sub Text1_KeyPress(KeyAscii As Integer) 什么意思

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Command1_Click
End If
End Sub
Private Sub dataCombo1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Command1_Click
End If
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Command1_Click
End If
End Sub
Private Sub dataCombo1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Command1_Click
End If
End Sub
这些代码是什么意思

Answer 1

Private Sub dataCombo1_KeyPress(KeyAscii As Integer)
.....Private Sub：一个私有的过程
.....dataCombo1_KeyPress：控件dataCombo1的KeyPress事件（按下键盘）
.....KeyAscii As Integer：按下那个键的Ascii码的值，返回值为整数
If KeyAscii = 13 Then
.....如果KeyAscii 的值为13（13是回车键的Ascii码）则（也就是如果按下的键是回车键）
Command1_Click
.....呼叫按钮控件Command1的Click（单击）事件
End If
.....条件结束
End Sub
.....过程结束