home *** CD-ROM | disk | FTP | other *** search
/ Programmer Plus 2007 / Programmer-Plus-2007.iso / Programming / Visual Basic new SourceCode and Projects / Barcode Generator 2.0 / printpreview.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  2000-06-24  |  3.9 KB  |  138 lines
  1. VERSION 5.00
  2. Begin VB.Form printpreview 
  3.    AutoRedraw      =   -1  'True
  4.    BackColor       =   &H00FFFFFF&
  5.    BorderStyle     =   1  'Fest Einfach
  6.    Caption         =   "Preview"
  7.    ClientHeight    =   5940
  8.    ClientLeft      =   105
  9.    ClientTop       =   675
  10.    ClientWidth     =   8670
  11.    Icon            =   "printpreview.frx":0000
  12.    LinkTopic       =   "Form1"
  13.    LockControls    =   -1  'True
  14.    MaxButton       =   0   'False
  15.    MinButton       =   0   'False
  16.    ScaleHeight     =   396
  17.    ScaleMode       =   3  'Pixel
  18.    ScaleWidth      =   578
  19.    StartUpPosition =   3  'Windows-Standard
  20.    WindowState     =   2  'Maximiert
  21.    Begin VB.CommandButton Command3 
  22.       Caption         =   "Options..."
  23.       Height          =   375
  24.       Left            =   5160
  25.       TabIndex        =   5
  26.       Top             =   1440
  27.       Width           =   1215
  28.    End
  29.    Begin VB.CommandButton Command2 
  30.       Cancel          =   -1  'True
  31.       Caption         =   "Close"
  32.       Height          =   375
  33.       Left            =   5160
  34.       TabIndex        =   1
  35.       Top             =   1080
  36.       Width           =   1215
  37.    End
  38.    Begin VB.CommandButton Command1 
  39.       Caption         =   "Print"
  40.       Default         =   -1  'True
  41.       Height          =   375
  42.       Left            =   5160
  43.       TabIndex        =   0
  44.       Top             =   720
  45.       Width           =   1215
  46.    End
  47.    Begin VB.Label Label4 
  48.       Alignment       =   2  'Zentriert
  49.       BackStyle       =   0  'Transparent
  50.       Caption         =   "Title"
  51.       Height          =   195
  52.       Index           =   0
  53.       Left            =   0
  54.       TabIndex        =   6
  55.       Top             =   480
  56.       Visible         =   0   'False
  57.       Width           =   1500
  58.    End
  59.    Begin VB.Label Label3 
  60.       AutoSize        =   -1  'True
  61.       BackStyle       =   0  'Transparent
  62.       Caption         =   "123456"
  63.       Height          =   195
  64.       Index           =   0
  65.       Left            =   960
  66.       TabIndex        =   4
  67.       Top             =   300
  68.       Width           =   540
  69.    End
  70.    Begin VB.Label Label2 
  71.       AutoSize        =   -1  'True
  72.       BackStyle       =   0  'Transparent
  73.       Caption         =   "123456"
  74.       Height          =   195
  75.       Index           =   0
  76.       Left            =   240
  77.       TabIndex        =   3
  78.       Top             =   300
  79.       Width           =   540
  80.    End
  81.    Begin VB.Label Label1 
  82.       AutoSize        =   -1  'True
  83.       BackStyle       =   0  'Transparent
  84.       Caption         =   "3"
  85.       Height          =   195
  86.       Index           =   0
  87.       Left            =   0
  88.       TabIndex        =   2
  89.       Top             =   300
  90.       Width           =   90
  91.    End
  92. Attribute VB_Name = "printpreview"
  93. Attribute VB_GlobalNameSpace = False
  94. Attribute VB_Creatable = False
  95. Attribute VB_PredeclaredId = True
  96. Attribute VB_Exposed = False
  97. Private Sub Command1_Click()
  98. Command1.Visible = False
  99. Command2.Visible = False
  100. Command3.Visible = True
  101. Me.PrintForm
  102. Command1.Visible = True
  103. Command2.Visible = True
  104. Command3.Visible = True
  105. End Sub
  106. Private Sub Command2_Click()
  107. Unload Me
  108. Unload ppvoptions
  109. End Sub
  110. Private Sub Command3_Click()
  111. ppvoptions.Show 1, Me
  112. End Sub
  113. Private Sub Form_Load()
  114. Me.ScaleMode = 1
  115. Command1.Top = 0
  116. Command1.Left = printpreview.Width - Command1.Width
  117. Command2.Top = Command1.Height
  118. Command2.Left = Command1.Left
  119. Command3.Top = Command1.Height * 2
  120. Command3.Left = Command1.Left
  121. Me.ScaleMode = 3
  122. Me.BackColor = ppvoptions.Shape1.BackColor
  123. Me.ForeColor = ppvoptions.Shape2.BackColor
  124. End Sub
  125. Private Sub Form_Resize()
  126. Me.ScaleMode = 1
  127. Command1.Top = 0
  128. Command1.Left = printpreview.Width - Command1.Width
  129. Command2.Top = Command1.Height
  130. Command2.Left = Command1.Left
  131. Command3.Top = Command1.Height * 2
  132. Command3.Left = Command1.Left
  133. Me.ScaleMode = 3
  134. End Sub
  135. Private Sub Form_Unload(Cancel As Integer)
  136. Unload ppvoptions
  137. End Sub
  138.