程序有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窗口中的文本框没有被输入……

解决方案 »

  1.   

    啊!原来是我忘记加上实际数与ASCII代码的差距了……应该是CALL FORMA.OUT_KEYPRESS(SETAPRESS + 48)
      

  2.   

    这样子是不可能改变文本框的内容的。
    当OUT文本框有按键时,事件处理机制回调out_KeyPress过程,该过程执行完后才真正去修改文本框的内容,直接调用该过程不会发生后面的事情,因此对文本框的内容无影响。