module1.bas

来自「学习开发opcserver和opcclient的好例子」· BAS 代码 · 共 20 行

Attribute VB_Name = "Module1"
Option Base 1
Option Explicit

Public Server As OPCServer
Public Group As OPCGroup

Public UseEvents As Boolean
Public Adding As Boolean ' Flag to synchronize with event code
Public lastAccessPath As String
Public lastItemID As String
Public lastServer As String
Public gvalue As Variant

Public GserverHandles() As Long

Declare Function GetTickCount Lib "kernel32" () As Long
Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)