list.frm

一个很好用的打印系统

VERSION 5.00
Begin VB.Form ListFrm 
   BackColor       =   &H00FFFFFF&
   Caption         =   "Performances"
   ClientHeight    =   6615
   ClientLeft      =   1980
   ClientTop       =   2070
   ClientWidth     =   8940
   LinkTopic       =   "Form1"
   MDIChild        =   -1  'True
   ScaleHeight     =   6615
   ScaleWidth      =   8940
   Begin VB.TextBox Text1 
      Height          =   1005
      Left            =   1800
      MultiLine       =   -1  'True
      TabIndex        =   4
      Text            =   "List.frx":0000
      Top             =   5400
      Width           =   4215
   End
   Begin VB.CheckBox Not 
      BackColor       =   &H00FFFFFF&
      Caption         =   "Not"
      Height          =   255
      Left            =   3000
      TabIndex        =   2
      Top             =   960
      Width           =   975
   End
   Begin VB.CheckBox Yes 
      BackColor       =   &H00FFFFFF&
      Caption         =   "Yes"
      Height          =   255
      Left            =   1080
      TabIndex        =   1
      Top             =   960
      Width           =   855
   End
   Begin VB.ListBox List1 
      Columns         =   2
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   177
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   3300
      Left            =   840
      Style           =   1  'Checkbox
      TabIndex        =   0
      Top             =   1680
      Width           =   7335
   End
   Begin VB.Label Label1 
      Alignment       =   2  'Center
      AutoSize        =   -1  'True
      BackColor       =   &H00FFFFFF&
      Caption         =   "Some Performances of Rprint"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   177
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H000000FF&
      Height          =   300
      Left            =   1800
      TabIndex        =   3
      Top             =   240
      Width           =   3585
   End
   Begin VB.Shape Shape1 
      Height          =   3615
      Left            =   480
      Top             =   1560
      Width           =   7935
   End
End
Attribute VB_Name = "ListFrm"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False


Private Sub Form_Load()
    Dim i   As Integer
  
   List1.AddItem "FontSize"
   List1.AddItem "ForeColor"
   List1.AddItem "ListBox Checked"
   List1.AddItem "TextBox MultiPage"
   List1.AddItem "ListBox MultiPage"
   List1.AddItem "DBGrid MultiPage"
   List1.AddItem "DBGrid Expanded"
   List1.AddItem "MsFlexGrid MulTiPage"
   List1.AddItem "MsFlexGrid Expanded"
   List1.AddItem "MsFlexGrid MergeCells"
   List1.AddItem "OptionButton Value"
   List1.AddItem "CheckBox Value"
   List1.AddItem "Zoom"
   List1.AddItem "Orientation"
   List1.AddItem "MaskEd Edit"
   List1.AddItem "MSChart"
   List1.AddItem "Label.BackStyle Transparent"
   For i = 0 To 16
   List1.Selected(i) = True
   Next i
   List1.Selected(16) = False
   List1.Selected(4) = False
   List1.Selected(9) = False
   Yes.Value = 1
End Sub

Private Sub RbPrnVB51_AfterPrint()
Dim i
'i = RbPrnVB51.Color
End Sub

Private Sub RbPrnVB51_BeforePrint(Cancel As Boolean, Mode As Integer)
If Mode = 0 Then RbPrnVB51.Color = v_Monochrome
End Sub