home *** CD-ROM | disk | FTP | other *** search
/ io Programmo 23 / IOPROG_23.ISO / SOFT / RPRINT.ZIP / List.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1998-09-10  |  3.7 KB  |  124 lines
  1. VERSION 5.00
  2. Begin VB.Form ListFrm 
  3.    BackColor       =   &H00FFFFFF&
  4.    Caption         =   "Performances"
  5.    ClientHeight    =   6615
  6.    ClientLeft      =   1980
  7.    ClientTop       =   2070
  8.    ClientWidth     =   8940
  9.    LinkTopic       =   "Form1"
  10.    MDIChild        =   -1  'True
  11.    ScaleHeight     =   6615
  12.    ScaleWidth      =   8940
  13.    Begin VB.TextBox Text1 
  14.       Height          =   1005
  15.       Left            =   1800
  16.       MultiLine       =   -1  'True
  17.       TabIndex        =   4
  18.       Text            =   "List.frx":0000
  19.       Top             =   5400
  20.       Width           =   4215
  21.    End
  22.    Begin VB.CheckBox Not 
  23.       BackColor       =   &H00FFFFFF&
  24.       Caption         =   "Not"
  25.       Height          =   255
  26.       Left            =   3000
  27.       TabIndex        =   2
  28.       Top             =   960
  29.       Width           =   975
  30.    End
  31.    Begin VB.CheckBox Yes 
  32.       BackColor       =   &H00FFFFFF&
  33.       Caption         =   "Yes"
  34.       Height          =   255
  35.       Left            =   1080
  36.       TabIndex        =   1
  37.       Top             =   960
  38.       Width           =   855
  39.    End
  40.    Begin VB.ListBox List1 
  41.       Columns         =   2
  42.       BeginProperty Font 
  43.          Name            =   "MS Sans Serif"
  44.          Size            =   9.75
  45.          Charset         =   177
  46.          Weight          =   400
  47.          Underline       =   0   'False
  48.          Italic          =   0   'False
  49.          Strikethrough   =   0   'False
  50.       EndProperty
  51.       Height          =   3300
  52.       Left            =   840
  53.       Style           =   1  'Checkbox
  54.       TabIndex        =   0
  55.       Top             =   1680
  56.       Width           =   7335
  57.    End
  58.    Begin VB.Label Label1 
  59.       Alignment       =   2  'Center
  60.       AutoSize        =   -1  'True
  61.       BackColor       =   &H00FFFFFF&
  62.       Caption         =   "Some Performances of Rprint"
  63.       BeginProperty Font 
  64.          Name            =   "MS Sans Serif"
  65.          Size            =   12
  66.          Charset         =   177
  67.          Weight          =   700
  68.          Underline       =   0   'False
  69.          Italic          =   0   'False
  70.          Strikethrough   =   0   'False
  71.       EndProperty
  72.       ForeColor       =   &H000000FF&
  73.       Height          =   300
  74.       Left            =   1800
  75.       TabIndex        =   3
  76.       Top             =   240
  77.       Width           =   3585
  78.    End
  79.    Begin VB.Shape Shape1 
  80.       Height          =   3615
  81.       Left            =   480
  82.       Top             =   1560
  83.       Width           =   7935
  84.    End
  85. Attribute VB_Name = "ListFrm"
  86. Attribute VB_GlobalNameSpace = False
  87. Attribute VB_Creatable = False
  88. Attribute VB_PredeclaredId = True
  89. Attribute VB_Exposed = False
  90. Private Sub Form_Load()
  91.     Dim i   As Integer
  92.    List1.AddItem "FontSize"
  93.    List1.AddItem "ForeColor"
  94.    List1.AddItem "ListBox Checked"
  95.    List1.AddItem "TextBox MultiPage"
  96.    List1.AddItem "ListBox MultiPage"
  97.    List1.AddItem "DBGrid MultiPage"
  98.    List1.AddItem "DBGrid Expanded"
  99.    List1.AddItem "MsFlexGrid MulTiPage"
  100.    List1.AddItem "MsFlexGrid Expanded"
  101.    List1.AddItem "MsFlexGrid MergeCells"
  102.    List1.AddItem "OptionButton Value"
  103.    List1.AddItem "CheckBox Value"
  104.    List1.AddItem "Zoom"
  105.    List1.AddItem "Orientation"
  106.    List1.AddItem "MaskEd Edit"
  107.    List1.AddItem "MSChart"
  108.    List1.AddItem "Label.BackStyle Transparent"
  109.    For i = 0 To 16
  110.    List1.Selected(i) = True
  111.    Next i
  112.    List1.Selected(16) = False
  113.    List1.Selected(4) = False
  114.    List1.Selected(9) = False
  115.    Yes.Value = 1
  116. End Sub
  117. Private Sub RbPrnVB51_AfterPrint()
  118. Dim i
  119. 'i = RbPrnVB51.Color
  120. End Sub
  121. Private Sub RbPrnVB51_BeforePrint(Cancel As Boolean, Mode As Integer)
  122. If Mode = 0 Then RbPrnVB51.Color = v_Monochrome
  123. End Sub
  124.