frmmain.frm

磁条读写机

VERSION 5.00
Begin VB.Form frmMain 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "Demo"
   ClientHeight    =   1965
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   6015
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   1965
   ScaleWidth      =   6015
   ShowInTaskbar   =   0   'False
   StartUpPosition =   1  '所有者中心
   Begin VB.CommandButton btnDisConnect 
      Caption         =   "DisConnect"
      Height          =   675
      Left            =   2280
      TabIndex        =   9
      Top             =   1080
      Width           =   1455
   End
   Begin VB.CommandButton btnConnect 
      Caption         =   "Connect"
      Height          =   675
      Left            =   4320
      TabIndex        =   5
      Top             =   240
      Width           =   1455
   End
   Begin VB.CommandButton btnAutoTest 
      Caption         =   "AutoTest"
      Height          =   675
      Left            =   2280
      TabIndex        =   2
      Top             =   240
      Width           =   1455
   End
   Begin VB.CommandButton btnCloseReader 
      Caption         =   "CloseReader"
      Height          =   675
      Left            =   4320
      TabIndex        =   1
      Top             =   1080
      Width           =   1455
   End
   Begin VB.CommandButton btnOpenReader 
      Caption         =   "OpenReader"
      Height          =   675
      Left            =   360
      TabIndex        =   0
      Top             =   240
      Width           =   1455
   End
   Begin VB.Label Label6 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "==>"
      Height          =   180
      Left            =   3900
      TabIndex        =   10
      Top             =   1260
      Width           =   270
   End
   Begin VB.Label Label5 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "==>"
      Height          =   180
      Left            =   1920
      TabIndex        =   8
      Top             =   1320
      Width           =   270
   End
   Begin VB.Label Label4 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "Read/Write"
      Height          =   180
      Left            =   780
      TabIndex        =   7
      Top             =   1320
      Width           =   900
   End
   Begin VB.Label Label3 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "==>"
      Height          =   180
      Left            =   360
      TabIndex        =   6
      Top             =   1320
      Width           =   270
   End
   Begin VB.Label Label2 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "==>"
      Height          =   180
      Left            =   3900
      TabIndex        =   4
      Top             =   480
      Width           =   270
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "==>"
      Height          =   180
      Left            =   1920
      TabIndex        =   3
      Top             =   480
      Width           =   270
   End
End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub btnAutoTest_Click()
TestCardType
End Sub

Private Sub btnCloseReader_Click()
CloseReader
End Sub

Private Sub btnDisConnect_Click()
DisConnect
End Sub

Private Sub btnOpenReader_Click()
OpenReader
End Sub

Private Sub btnConnect_Click()
Connect
End Sub