代码如下 Class Ent Public Shared total, num1, num2 As String Public Shared sign As String Public Shared Sub click(ByVal a As String) total = total + a End Sub End Class
OPC技术在制米厂监控系统中的应用pdf,OPC技术在制米厂监控系统中的应用20087
Setm Y Items= MYGroup OPCItems
Private Sub d isconnect_Click()
M YG oup O PC Item s Defau llsa ctive True
On error goto errot andler
For i= 1To 5
MYOPCServer d iscornecl
Item Ds (i)= Text(i). Text
Setmyo PC
