www.pudn.com > 65455fasdt.rar > 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