module1.bas

opc 通讯 册测试通讯OPC使用 客户端/服务端

Attribute VB_Name = "Module1"
Public Const OPCItemDirect = 1
Public Const OPCItemLocal = 2

Public fMainForm As frmMain
Public ServerIndex As Integer
Public OPCServers As New Collection
Public SelectedOPCServer As OPCServerClass
Public SelectedOPCGroup As OPCGroupClass
Public SelectedOPCItem As OPCItemClass

Sub Main()
    Set fMainForm = New frmMain
    Load fMainForm
    fMainForm.Show
    ServerIndex = 0
End Sub