selectreader.frm

M8演示程序

VERSION 5.00
Begin VB.Form SelectReader 
   Caption         =   "Form8"
   ClientHeight    =   3090
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   4200
   LinkTopic       =   "Form8"
   ScaleHeight     =   3090
   ScaleWidth      =   4200
   StartUpPosition =   3  'Windows Default
   Begin VB.CommandButton H3Selected 
      Caption         =   "H3"
      Height          =   255
      Left            =   1440
      TabIndex        =   4
      Top             =   2400
      Width           =   1215
   End
   Begin VB.CommandButton M8Selected 
      Caption         =   "M8"
      Height          =   255
      Left            =   1440
      TabIndex        =   3
      Top             =   1920
      Width           =   1215
   End
   Begin VB.CommandButton M1MiniSelected 
      Caption         =   "M1 Mini"
      Height          =   255
      Left            =   1440
      TabIndex        =   2
      Top             =   1440
      Width           =   1215
   End
   Begin VB.CommandButton M1Selected 
      Caption         =   "M1 "
      Height          =   255
      Left            =   1440
      TabIndex        =   1
      Top             =   960
      Width           =   1215
   End
   Begin VB.Label Label1 
      Caption         =   "Please select the type of reader connected..."
      Height          =   375
      Left            =   480
      TabIndex        =   0
      Top             =   360
      Width           =   3255
   End
End
Attribute VB_Name = "SelectReader"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
 '****************************************************************************
 '
 '  COPYRIGHT AND PROPRIETARY RIGHTS NOTICES:
 '
 '      Developed by:       SkyeTek, Inc
 '                          2845 Wilderness Place
 '                          Boulder, CO 80301 USA
 '
 '      Copyright (C) 2005 by SkyeTek, Inc.
 '      All rights reserved.
 '
 '      This material contains the valuable properties and trade secrets of
 '      SkyeTek, Inc. of Boulder, Colorado, United States of America
 '      embodying substantial creative efforts and confidential information,
 '      ideas and expressions, no part of which may be reproduced or
 '      transmitted in any form or by any means, electronic, mechanical, or
 '      otherwise, including photocopying and recording or in connection with
 '      any information storage or retrieval system, without the prior
 '      written permission of SkyeTek, Inc.
 '
 '****************************************************************************/
 
Private Sub H3Selected_Click()
    Form1.H3detected = True
    Unload SelectReader
End Sub

Private Sub M1MiniSelected_Click()
    Form1.M1Minidetected = True
    Unload SelectReader
End Sub

Private Sub M1Selected_Click()
    Form1.M1detected = True
    Unload SelectReader
End Sub

Private Sub M8Selected_Click()
    Form1.M8detected = True
    Unload SelectReader
End Sub