fomcheck.frm

这个程序包的主要功能是对多台5101b进行功能化测试

VERSION 4.00
Begin VB.Form fomcheck 
   Caption         =   "Check"
   ClientHeight    =   3660
   ClientLeft      =   1470
   ClientTop       =   2850
   ClientWidth     =   3750
   Height          =   4065
   KeyPreview      =   -1  'True
   Left            =   1410
   LinkTopic       =   "Form2"
   MDIChild        =   -1  'True
   ScaleHeight     =   3660
   ScaleWidth      =   3750
   Top             =   2505
   Width           =   3870
   Begin VB.ListBox lstchdata 
      BeginProperty Font 
         name            =   "MS Sans Serif"
         charset         =   1
         weight          =   400
         size            =   9.75
         underline       =   0   'False
         italic          =   0   'False
         strikethrough   =   0   'False
      EndProperty
      Height          =   3660
      Left            =   0
      TabIndex        =   0
      Top             =   0
      Width           =   3735
   End
End
Attribute VB_Name = "fomcheck"
Attribute VB_Creatable = False
Attribute VB_Exposed = False

Private Sub form_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = vbKeyF2 And Shift Then
            keyflag = 1
    End If
End Sub




Private Sub Form_Load()
   fomcheck.Width = mdifomtest.ScaleWidth / 2.1
   fomcheck.Height = mdifomtest.ScaleHeight
   fomcheck.Top = mdifomtest.Top
   fomcheck.Left = mdifomtest.Left
End Sub


Private Sub Form_Resize()
   lstchdata.Height = fomcheck.ScaleHeight
   lstchdata.Width = fomcheck.ScaleWidth

End Sub