publicvariat.bas

POS2000打印机演示程序

Attribute VB_Name = "PublicVariat"

Option Explicit
Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Public ival As Integer
''''''''''''''''''' to set port
Public Type typSetport
    igSelectPort As Integer
    strgSetPort As String
    igFlowControl As Single
End Type

Public Setport As typSetport
Public Const igCom1 As Integer = 1
Public Const igCom2 As Integer = 2
Public Const igParallelPort As Integer = 3