查人人中国名人网黑龙江科技大学图片:VB中这两个sub怎么用(视回答加分10-50)新新新
来源：百度文库 编辑：查人人中国名人网 时间：2024/05/04 19:59:41
请举例说明
Private Sub tx_input_GotFocus(Index As Integer)
End Sub
Private Sub tx_input_KeyPress(Index As Integer, KeyAscii As Integer)
End Sub
Private Sub tx_input_GotFocus(Index As Integer)
End Sub
Private Sub tx_input_KeyPress(Index As Integer, KeyAscii As Integer)
End Sub
首先说明你的Tx_input是文本框控件数组,下面给出代码,GotFocus事件是获得焦点时发生的事件,KeyPress是按键盘键时发生的事件.
Private Sub Tx_input_GotFocus(Index As Integer)
'可写其它需执行的代码
Tx_input(0) = "123"
Tx_input(1) = ""
End Sub
Private Sub Tx_input_KeyPress(Index As Integer, KeyAscii As Integer)
If KeyAscii = 13 Then '按下ENTER键
'可写其它需执行的代码
Tx_input(0) = "ABC"
Tx_input(1) = "AAA"
End If
End Sub