程序有A\B两个窗体
A中有一个OUT文本框,设置了KeyPress事件B中有一个按钮,我希望点击按钮,可以触发A窗体中的KeyPress事件,我编写的代码如下:——————
A窗体:
Public Sub out_KeyPress(KeyAscii As Integer) Select Case KeyAscii
Case 48 To 57
num_in Val(KeyAscii), run(run_n)
'输入ASCII值48到57的符号(数字)则输入到数组run中
Case Is = 47
operator_in Val(KeyAscii), howrun(run_n)
'输入“47”时(/),输入到数组howrun中
…………B窗体:
Private Sub OK_Click()
dim setAPress
setAPress = val(text1.text)
Call FormA.out_KeyPress(iamme)
end sub————————————
但是无报错,只是A窗口中的文本框没有被输入……
A中有一个OUT文本框,设置了KeyPress事件B中有一个按钮,我希望点击按钮,可以触发A窗体中的KeyPress事件,我编写的代码如下:——————
A窗体:
Public Sub out_KeyPress(KeyAscii As Integer) Select Case KeyAscii
Case 48 To 57
num_in Val(KeyAscii), run(run_n)
'输入ASCII值48到57的符号(数字)则输入到数组run中
Case Is = 47
operator_in Val(KeyAscii), howrun(run_n)
'输入“47”时(/),输入到数组howrun中
…………B窗体:
Private Sub OK_Click()
dim setAPress
setAPress = val(text1.text)
Call FormA.out_KeyPress(iamme)
end sub————————————
但是无报错,只是A窗口中的文本框没有被输入……
当OUT文本框有按键时,事件处理机制回调out_KeyPress过程,该过程执行完后才真正去修改文本框的内容,直接调用该过程不会发生后面的事情,因此对文本框的内容无影响。