frmmain.frm

这是一个用来打印手机三包凭证的源代码

VERSION 5.00
Begin VB.Form frmMain 
   Caption         =   "Warranty Information"
   ClientHeight    =   8310
   ClientLeft      =   60
   ClientTop       =   645
   ClientWidth     =   11880
   LinkTopic       =   "Form1"
   ScaleHeight     =   8310
   ScaleWidth      =   11880
   StartUpPosition =   2  '棵辊いァ
   Begin VB.Frame fraGift 
      Caption         =   "Fixed Gift Box Information"
      Height          =   1695
      Left            =   360
      TabIndex        =   14
      Top             =   2040
      Width           =   11175
      Begin VB.TextBox txtTripChargerLocation 
         BackColor       =   &H80000004&
         Enabled         =   0   'False
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   12
            Charset         =   0
            Weight          =   700
            Underline       =   -1  'True
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   495
         Left            =   8160
         TabIndex        =   26
         Text            =   "Text1"
         Top             =   960
         Width           =   2655
      End
      Begin VB.TextBox txtTripChargerModel 
         BackColor       =   &H80000004&
         Enabled         =   0   'False
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   12
            Charset         =   0
            Weight          =   700
            Underline       =   -1  'True
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   495
         Left            =   8160
         TabIndex        =   24
         Text            =   "Text1"
         Top             =   360
         Width           =   2655
      End
      Begin VB.TextBox txtBattModel 
         BackColor       =   &H80000004&
         Enabled         =   0   'False
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   12
            Charset         =   0
            Weight          =   700
            Underline       =   -1  'True
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   495
         Left            =   4680
         TabIndex        =   22
         Text            =   "Text1"
         Top             =   960
         Width           =   2175
      End
      Begin VB.TextBox txtBattLocation 
         BackColor       =   &H80000004&
         Enabled         =   0   'False
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   12
            Charset         =   0
            Weight          =   700
            Underline       =   -1  'True
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   495
         Left            =   4680
         TabIndex        =   20
         Text            =   "Text1"
         Top             =   360
         Width           =   2175
      End
      Begin VB.TextBox txtModel 
         BackColor       =   &H80000004&
         Enabled         =   0   'False
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   12
            Charset         =   0
            Weight          =   700
            Underline       =   -1  'True
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   495
         Left            =   1080
         TabIndex        =   16
         Text            =   "Text2"
         Top             =   360
         Width           =   2175
      End
      Begin VB.TextBox txtLocation 
         BackColor       =   &H80000004&
         Enabled         =   0   'False
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   12
            Charset         =   0
            Weight          =   700
            Underline       =   -1  'True
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   495
         Left            =   1080
         TabIndex        =   15
         Text            =   "Text3"
         Top             =   960
         Width           =   2175
      End
      Begin VB.Label Label6 
         Caption         =   "