Question

VB中怎么样调用另一个窗口里面的数据发送过程

Answer 1

发送过程的名字前面把Private换成PUBLIC，然后这样调用：
Form2.控件名字.发送过程的名字
全用点“.”分开

追问

你好，我想写的是if(*******) then call (******) 这个过程在其他窗口中，这样直接调用会显示编译错误子程序或函数未定义，帮忙解答一下，谢谢！

追答

把Private换成PUBLIC

追问

把整个窗口的名字换成PUBLIC吗？
Private Sub Timer1_Timer()
On Error Resume Next
If tTel(XJSBhaoma).tErr = -1 Then
If (XJSBhaoma) = 4 Then
Call send_zk_data(1, 1)/////就是这边会出错**************************
End If
FJXJZhuangtai(XJSBhaoma) = "巡检失败"
End Sub

追答

改send_zk_data这个函数的开始那个单词
不是在这个地方改，找send_zk_data这个函数的源代码

追问

你好改了还是不行？
Public Sub Send_ZK_Data(ByVal lineID As Byte, ByVal NeedOpen As Byte)
On Error Resume Next
Dim zk_sd(0 To 10) As Byte
zk_sd(0) = &HEB
zk_sd(1) = &H0
zk_sd(2) = &H0
zk_sd(3) = &H0
zk_sd(4) = lineID
zk_sd(5) = NeedOpen
zk_sd(6) = &H0
zk_sd(7) = &H0
MSComm_ZK.Output = zk_sd
MSComm_ZK.RThreshold = 1
End Sub

追答

还是不行是不是提示不一样了？
那说明有别的问题
另外应该把On Error Resume Next去掉
看到底是哪里出错了

追问

仍然提示“子程序或函数未定义”然后会自动跳到Private Sub Timer1_Timer()
处，显示黄色

追答

tTel和FJXJZhuangtai等函数都是在哪里只有你自己知道
所以拿别人的程序来改程序是很麻烦的事情，还不如自己做

Answer 2

利用全局变量，实时监测变量的变化喽

Answer 3

利用全局变量，实时监测变量的变化喽在改变数据库