home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1999 January / pcwk_01_1999.iso / Wtestowe / Vistdstd / Install / Data.Z / Report.FRM (.txt) < prev    next >
Visual Basic Form  |  1997-05-23  |  6KB  |  186 lines
  1. VERSION 4.00
  2. Begin VB.Form frmReport 
  3.    Appearance      =   0  'Flat
  4.    BackColor       =   &H00C0C0C0&
  5.    BorderStyle     =   3  'Fixed Dialog
  6.    ClientHeight    =   4455
  7.    ClientLeft      =   360
  8.    ClientTop       =   1860
  9.    ClientWidth     =   6480
  10.    BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  11.       Name            =   "MS Sans Serif"
  12.       Size            =   8.25
  13.       Charset         =   0
  14.       Weight          =   700
  15.       Underline       =   0   'False
  16.       Italic          =   0   'False
  17.       Strikethrough   =   0   'False
  18.    EndProperty
  19.    ForeColor       =   &H80000008&
  20.    Height          =   4860
  21.    Left            =   300
  22.    LinkTopic       =   "Form1"
  23.    MaxButton       =   0   'False
  24.    MinButton       =   0   'False
  25.    ScaleHeight     =   4455
  26.    ScaleWidth      =   6480
  27.    Top             =   1515
  28.    Width           =   6600
  29.    Begin Threed.SSPanel pnlStndoc 
  30.       Height          =   3390
  31.       Left            =   180
  32.       TabIndex        =   4
  33.       Top             =   180
  34.       Width           =   1950
  35.       _Version        =   65536
  36.       _ExtentX        =   3440
  37.       _ExtentY        =   5980
  38.       _StockProps     =   15
  39.       ForeColor       =   4210752
  40.       BackColor       =   8421376
  41.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  42.          Name            =   "MS Sans Serif"
  43.          Size            =   8.25
  44.          Charset         =   0
  45.          Weight          =   700
  46.          Underline       =   0   'False
  47.          Italic          =   0   'False
  48.          Strikethrough   =   0   'False
  49.       EndProperty
  50.       BevelOuter      =   1
  51.       Begin VB.Image imgStnDoc 
  52.          Appearance      =   0  'Flat
  53.          Height          =   3360
  54.          Left            =   0
  55.          Picture         =   "REPORT.frx":0000
  56.          Top             =   0
  57.          Width           =   1920
  58.       End
  59.    End
  60.    Begin VB.CommandButton cmdCancel 
  61.       Appearance      =   0  'Flat
  62.       BackColor       =   &H80000005&
  63.       Caption         =   "Cancel"
  64.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  65.          Name            =   "MS Sans Serif"
  66.          Size            =   8.25
  67.          Charset         =   0
  68.          Weight          =   400
  69.          Underline       =   0   'False
  70.          Italic          =   0   'False
  71.          Strikethrough   =   0   'False
  72.       EndProperty
  73.       Height          =   375
  74.       Left            =   5160
  75.       TabIndex        =   3
  76.       Top             =   3960
  77.       Width           =   1155
  78.    End
  79.    Begin VB.CommandButton cmdNext 
  80.       Appearance      =   0  'Flat
  81.       BackColor       =   &H80000005&
  82.       Caption         =   "Finish"
  83.       Default         =   -1  'True
  84.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  85.          Name            =   "MS Sans Serif"
  86.          Size            =   8.25
  87.          Charset         =   0
  88.          Weight          =   400
  89.          Underline       =   0   'False
  90.          Italic          =   0   'False
  91.          Strikethrough   =   0   'False
  92.       EndProperty
  93.       Height          =   375
  94.       Left            =   3840
  95.       TabIndex        =   0
  96.       Top             =   3960
  97.       Width           =   1155
  98.    End
  99.    Begin VB.CommandButton cmdBack 
  100.       Appearance      =   0  'Flat
  101.       BackColor       =   &H80000005&
  102.       Caption         =   "< &Back"
  103.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  104.          Name            =   "MS Sans Serif"
  105.          Size            =   8.25
  106.          Charset         =   0
  107.          Weight          =   400
  108.          Underline       =   0   'False
  109.          Italic          =   0   'False
  110.          Strikethrough   =   0   'False
  111.       EndProperty
  112.       Height          =   375
  113.       Left            =   2700
  114.       TabIndex        =   2
  115.       Top             =   3960
  116.       Width           =   1155
  117.    End
  118.    Begin VB.Line Line2 
  119.       BorderColor     =   &H00FFFFFF&
  120.       X1              =   180
  121.       X2              =   6300
  122.       Y1              =   3795
  123.       Y2              =   3795
  124.    End
  125.    Begin VB.Label Label1 
  126.       Appearance      =   0  'Flat
  127.       BackColor       =   &H80000005&
  128.       BackStyle       =   0  'Transparent
  129.       Caption         =   "You've finished designing your report! Click the ""Finish"" button to produce your report. "
  130.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  131.          Name            =   "MS Sans Serif"
  132.          Size            =   8.25
  133.          Charset         =   0
  134.          Weight          =   400
  135.          Underline       =   0   'False
  136.          Italic          =   0   'False
  137.          Strikethrough   =   0   'False
  138.       EndProperty
  139.       ForeColor       =   &H80000008&
  140.       Height          =   495
  141.       Left            =   2280
  142.       TabIndex        =   1
  143.       Top             =   240
  144.       Width           =   4095
  145.    End
  146. Attribute VB_Name = "frmReport"
  147. Attribute VB_Creatable = False
  148. Attribute VB_Exposed = False
  149. Option Explicit
  150. Private Sub Cancel_Click()
  151.     End
  152. End Sub
  153. Private Sub cmdBack_Click()
  154.     Hide
  155.     frmSelectLook.Top = Top
  156.     frmSelectLook.left = left
  157.     frmSelectLook.Show
  158. End Sub
  159. Private Sub cmdCancel_Click()
  160.     End
  161. End Sub
  162. Private Sub cmdNext_Click()
  163.     Hide
  164.     frmProgress.Top = Top
  165.     frmProgress.left = left
  166.     frmProgress.Show
  167. End Sub
  168. Private Sub First_Click()
  169.     Hide
  170.     frmSelectStencil.Show
  171. End Sub
  172. Private Sub Form_Load()
  173.     ' Initialize the form.
  174.     '
  175.     formInit frmReport
  176.     ' Initialize the controls.
  177.     '
  178.     'btnNext.Enabled = False
  179.     ' Center the picture
  180.     imgStndoc.Top = pnlStndoc.Height / 2 - imgStndoc.Height / 2
  181.     imgStndoc.left = pnlStndoc.Width / 2 - imgStndoc.Width / 2
  182. End Sub
  183. Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
  184.     End
  185. End Sub
  186.