home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1999 January / pcwk_01_1999.iso / Wtestowe / Vistdstd / Install / Data.Z / Sellook.FRM (.txt) < prev    next >
Visual Basic Form  |  1997-05-23  |  17KB  |  497 lines
  1. VERSION 4.00
  2. Begin VB.Form frmSelectLook 
  3.    Appearance      =   0  'Flat
  4.    BackColor       =   &H00C0C0C0&
  5.    BorderStyle     =   3  'Fixed Dialog
  6.    ClientHeight    =   4455
  7.    ClientLeft      =   675
  8.    ClientTop       =   2190
  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            =   615
  22.    LinkTopic       =   "Form5"
  23.    MaxButton       =   0   'False
  24.    MinButton       =   0   'False
  25.    ScaleHeight     =   4455
  26.    ScaleWidth      =   6480
  27.    Top             =   1845
  28.    Width           =   6600
  29.    Begin VB.CommandButton cmdCancel 
  30.       Appearance      =   0  'Flat
  31.       BackColor       =   &H80000005&
  32.       Caption         =   "Cancel"
  33.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  34.          Name            =   "MS Sans Serif"
  35.          Size            =   8.25
  36.          Charset         =   0
  37.          Weight          =   400
  38.          Underline       =   0   'False
  39.          Italic          =   0   'False
  40.          Strikethrough   =   0   'False
  41.       EndProperty
  42.       Height          =   375
  43.       Left            =   5160
  44.       TabIndex        =   15
  45.       Top             =   3960
  46.       Width           =   1155
  47.    End
  48.    Begin VB.CommandButton cmdNext 
  49.       Appearance      =   0  'Flat
  50.       BackColor       =   &H80000005&
  51.       Caption         =   "Next >"
  52.       Default         =   -1  'True
  53.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  54.          Name            =   "MS Sans Serif"
  55.          Size            =   8.25
  56.          Charset         =   0
  57.          Weight          =   400
  58.          Underline       =   0   'False
  59.          Italic          =   0   'False
  60.          Strikethrough   =   0   'False
  61.       EndProperty
  62.       Height          =   375
  63.       Left            =   3840
  64.       TabIndex        =   0
  65.       Top             =   3960
  66.       Width           =   1155
  67.    End
  68.    Begin VB.CommandButton cmdBack 
  69.       Appearance      =   0  'Flat
  70.       BackColor       =   &H80000005&
  71.       Caption         =   "< &Back"
  72.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  73.          Name            =   "MS Sans Serif"
  74.          Size            =   8.25
  75.          Charset         =   0
  76.          Weight          =   400
  77.          Underline       =   0   'False
  78.          Italic          =   0   'False
  79.          Strikethrough   =   0   'False
  80.       EndProperty
  81.       Height          =   375
  82.       Left            =   2700
  83.       TabIndex        =   14
  84.       Top             =   3960
  85.       Width           =   1155
  86.    End
  87.    Begin Threed.SSPanel pnlStndoc 
  88.       Height          =   3390
  89.       Left            =   180
  90.       TabIndex        =   13
  91.       Top             =   180
  92.       Width           =   1950
  93.       _Version        =   65536
  94.       _ExtentX        =   3440
  95.       _ExtentY        =   5980
  96.       _StockProps     =   15
  97.       ForeColor       =   4210752
  98.       BackColor       =   8421376
  99.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  100.          Name            =   "MS Sans Serif"
  101.          Size            =   8.25
  102.          Charset         =   0
  103.          Weight          =   700
  104.          Underline       =   0   'False
  105.          Italic          =   0   'False
  106.          Strikethrough   =   0   'False
  107.       EndProperty
  108.       BevelOuter      =   1
  109.       Begin VB.Image imgStndoc 
  110.          Appearance      =   0  'Flat
  111.          Height          =   3360
  112.          Left            =   0
  113.          Picture         =   "SELLOOK.frx":0000
  114.          Top             =   0
  115.          Width           =   1920
  116.       End
  117.    End
  118.    Begin Threed.SSFrame Frame3D3 
  119.       Height          =   1215
  120.       Left            =   2280
  121.       TabIndex        =   4
  122.       Top             =   1800
  123.       Width           =   1935
  124.       _Version        =   65536
  125.       _ExtentX        =   3413
  126.       _ExtentY        =   2143
  127.       _StockProps     =   14
  128.       Caption         =   "Orientation"
  129.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  130.          Name            =   "MS Sans Serif"
  131.          Size            =   8.25
  132.          Charset         =   0
  133.          Weight          =   400
  134.          Underline       =   0   'False
  135.          Italic          =   0   'False
  136.          Strikethrough   =   0   'False
  137.       EndProperty
  138.       Begin Threed.SSOption btnLandscape 
  139.          Height          =   315
  140.          Left            =   120
  141.          TabIndex        =   7
  142.          TabStop         =   0   'False
  143.          Top             =   720
  144.          Width           =   1695
  145.          _Version        =   65536
  146.          _ExtentX        =   2990
  147.          _ExtentY        =   556
  148.          _StockProps     =   78
  149.          Caption         =   "&Landscape"
  150.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  151.             Name            =   "MS Sans Serif"
  152.             Size            =   8.25
  153.             Charset         =   0
  154.             Weight          =   400
  155.             Underline       =   0   'False
  156.             Italic          =   0   'False
  157.             Strikethrough   =   0   'False
  158.          EndProperty
  159.       End
  160.       Begin Threed.SSOption btnPortrait 
  161.          Height          =   255
  162.          Left            =   120
  163.          TabIndex        =   6
  164.          Top             =   360
  165.          Width           =   1215
  166.          _Version        =   65536
  167.          _ExtentX        =   2143
  168.          _ExtentY        =   450
  169.          _StockProps     =   78
  170.          Caption         =   "Po&rtrait"
  171.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  172.             Name            =   "MS Sans Serif"
  173.             Size            =   8.25
  174.             Charset         =   0
  175.             Weight          =   400
  176.             Underline       =   0   'False
  177.             Italic          =   0   'False
  178.             Strikethrough   =   0   'False
  179.          EndProperty
  180.          Value           =   -1  'True
  181.       End
  182.    End
  183.    Begin Threed.SSFrame Frame3D2 
  184.       Height          =   2175
  185.       Left            =   4320
  186.       TabIndex        =   3
  187.       Top             =   840
  188.       Width           =   2055
  189.       _Version        =   65536
  190.       _ExtentX        =   3625
  191.       _ExtentY        =   3836
  192.       _StockProps     =   14
  193.       Caption         =   "Options"
  194.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  195.          Name            =   "MS Sans Serif"
  196.          Size            =   8.25
  197.          Charset         =   0
  198.          Weight          =   400
  199.          Underline       =   0   'False
  200.          Italic          =   0   'False
  201.          Strikethrough   =   0   'False
  202.       EndProperty
  203.       Begin Threed.SSCheck ctlResize 
  204.          Height          =   255
  205.          Left            =   120
  206.          TabIndex        =   12
  207.          Top             =   1800
  208.          Width           =   1455
  209.          _Version        =   65536
  210.          _ExtentX        =   2566
  211.          _ExtentY        =   450
  212.          _StockProps     =   78
  213.          Caption         =   "Fi&t in Grid"
  214.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  215.             Name            =   "MS Sans Serif"
  216.             Size            =   8.25
  217.             Charset         =   0
  218.             Weight          =   400
  219.             Underline       =   0   'False
  220.             Italic          =   0   'False
  221.             Strikethrough   =   0   'False
  222.          EndProperty
  223.          Value           =   -1  'True
  224.       End
  225.       Begin Threed.SSCheck ctlProperties 
  226.          Height          =   255
  227.          Left            =   120
  228.          TabIndex        =   11
  229.          Top             =   1440
  230.          Width           =   1455
  231.          _Version        =   65536
  232.          _ExtentX        =   2566
  233.          _ExtentY        =   450
  234.          _StockProps     =   78
  235.          Caption         =   "&Properties"
  236.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  237.             Name            =   "MS Sans Serif"
  238.             Size            =   8.25
  239.             Charset         =   0
  240.             Weight          =   400
  241.             Underline       =   0   'False
  242.             Italic          =   0   'False
  243.             Strikethrough   =   0   'False
  244.          EndProperty
  245.          Value           =   -1  'True
  246.       End
  247.       Begin Threed.SSCheck ctlGridlines 
  248.          Height          =   255
  249.          Left            =   120
  250.          TabIndex        =   10
  251.          Top             =   720
  252.          Width           =   1455
  253.          _Version        =   65536
  254.          _ExtentX        =   2566
  255.          _ExtentY        =   450
  256.          _StockProps     =   78
  257.          Caption         =   "&Gridlines"
  258.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  259.             Name            =   "MS Sans Serif"
  260.             Size            =   8.25
  261.             Charset         =   0
  262.             Weight          =   400
  263.             Underline       =   0   'False
  264.             Italic          =   0   'False
  265.             Strikethrough   =   0   'False
  266.          EndProperty
  267.          Value           =   -1  'True
  268.       End
  269.       Begin Threed.SSCheck ctlFooter 
  270.          Height          =   255
  271.          Left            =   120
  272.          TabIndex        =   9
  273.          Top             =   1080
  274.          Width           =   1575
  275.          _Version        =   65536
  276.          _ExtentX        =   2778
  277.          _ExtentY        =   450
  278.          _StockProps     =   78
  279.          Caption         =   "&Footer"
  280.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  281.             Name            =   "MS Sans Serif"
  282.             Size            =   8.25
  283.             Charset         =   0
  284.             Weight          =   400
  285.             Underline       =   0   'False
  286.             Italic          =   0   'False
  287.             Strikethrough   =   0   'False
  288.          EndProperty
  289.          Value           =   -1  'True
  290.       End
  291.       Begin Threed.SSCheck ctlHeader 
  292.          Height          =   255
  293.          Left            =   120
  294.          TabIndex        =   8
  295.          Top             =   360
  296.          Width           =   1575
  297.          _Version        =   65536
  298.          _ExtentX        =   2778
  299.          _ExtentY        =   450
  300.          _StockProps     =   78
  301.          Caption         =   "&Header"
  302.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  303.             Name            =   "MS Sans Serif"
  304.             Size            =   8.25
  305.             Charset         =   0
  306.             Weight          =   400
  307.             Underline       =   0   'False
  308.             Italic          =   0   'False
  309.             Strikethrough   =   0   'False
  310.          EndProperty
  311.          Value           =   -1  'True
  312.       End
  313.    End
  314.    Begin Threed.SSFrame Frame3D1 
  315.       Height          =   855
  316.       Left            =   2280
  317.       TabIndex        =   2
  318.       Top             =   840
  319.       Width           =   1935
  320.       _Version        =   65536
  321.       _ExtentX        =   3413
  322.       _ExtentY        =   1508
  323.       _StockProps     =   14
  324.       Caption         =   "Masters Per Page"
  325.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  326.          Name            =   "MS Sans Serif"
  327.          Size            =   8.25
  328.          Charset         =   0
  329.          Weight          =   400
  330.          Underline       =   0   'False
  331.          Italic          =   0   'False
  332.          Strikethrough   =   0   'False
  333.       EndProperty
  334.       Begin VB.ComboBox ctlMastersPerPage 
  335.          Appearance      =   0  'Flat
  336.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  337.             Name            =   "MS Sans Serif"
  338.             Size            =   8.25
  339.             Charset         =   0
  340.             Weight          =   400
  341.             Underline       =   0   'False
  342.             Italic          =   0   'False
  343.             Strikethrough   =   0   'False
  344.          EndProperty
  345.          Height          =   315
  346.          Left            =   600
  347.          Style           =   2  'Dropdown List
  348.          TabIndex        =   5
  349.          Top             =   375
  350.          Width           =   855
  351.       End
  352.    End
  353.    Begin VB.Line Line2 
  354.       BorderColor     =   &H00FFFFFF&
  355.       X1              =   180
  356.       X2              =   6300
  357.       Y1              =   3795
  358.       Y2              =   3795
  359.    End
  360.    Begin VB.Label Label1 
  361.       Appearance      =   0  'Flat
  362.       BackColor       =   &H80000005&
  363.       BackStyle       =   0  'Transparent
  364.       Caption         =   "What kind of look do you want for your report?"
  365.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  366.          Name            =   "MS Sans Serif"
  367.          Size            =   8.25
  368.          Charset         =   0
  369.          Weight          =   400
  370.          Underline       =   0   'False
  371.          Italic          =   0   'False
  372.          Strikethrough   =   0   'False
  373.       EndProperty
  374.       ForeColor       =   &H80000008&
  375.       Height          =   375
  376.       Left            =   2280
  377.       TabIndex        =   1
  378.       Top             =   240
  379.       Width           =   3555
  380.    End
  381. Attribute VB_Name = "frmSelectLook"
  382. Attribute VB_Creatable = False
  383. Attribute VB_Exposed = False
  384. Option Explicit
  385. Private Sub btnLandscape_Click(index As Integer)
  386.     If pageIsPortrait(gPageBack) Then
  387.         pageOrientSwitch gPageBack
  388.     End If
  389. End Sub
  390. Private Sub btnPortrait_Click(index As Integer)
  391.     If pageIsLandscape(gPageBack) Then
  392.         pageOrientSwitch gPageBack
  393.     End If
  394. End Sub
  395. Private Sub Cancel_Click()
  396.     End
  397. End Sub
  398. Private Sub cmdBack_Click()
  399.     Hide
  400.     frmSelectStencil.Top = Top
  401.     frmSelectStencil.left = left
  402.     frmSelectStencil.Show
  403. End Sub
  404. Private Sub cmdCancel_Click()
  405.     End
  406. End Sub
  407. Private Sub cmdNext_Click()
  408.     If formValid() = True Then
  409.         Hide
  410.         frmReport.Top = Top
  411.         frmReport.left = left
  412.         frmReport.Show
  413.     End If
  414.       
  415. End Sub
  416. Private Sub First_Click()
  417.     Hide
  418.     frmSelectStencil.Show
  419. End Sub
  420. Private Sub Form_Load()
  421.     Dim s, t
  422.     Dim sBegin, sEnd
  423.     ' Initialize form.
  424.     '
  425.     formInit frmSelectLook
  426.     ' Center the picture
  427.     imgStndoc.Top = pnlStndoc.Height / 2 - imgStndoc.Height / 2
  428.     imgStndoc.left = pnlStndoc.Width / 2 - imgStndoc.Width / 2
  429.     ' Initialize controls
  430.     '
  431.     ' - Options
  432.     '
  433.     ctlHeader.Value = gDoc.Header
  434.     ctlFooter.Value = gDoc.Footer
  435.     ctlGridlines.Value = gDoc.gridlines
  436.     ctlProperties.Value = gDoc.properties
  437.     ctlResize.Value = gDoc.resize
  438.     ' - Orientation
  439.     '
  440.     If pageIsPortrait(gPageBack) Then
  441.         btnPortrait.Value = True
  442.     Else
  443.         btnLandscape.Value = True
  444.     End If
  445.     ' - Masters Per Page
  446.     '
  447.     s = ""
  448.     s = s & "1 x 1,1 x 2,1 x 3,1 x 4,1 x 5,1 x 6,"
  449.     s = s & "2 x 2,2 x 3,2 x 4,2 x 5,2 x 6,"
  450.     s = s & "3 x 3,3 x 4,3 x 5,3 x 6,"
  451.     s = s & "4 x 4,4 x 5,4 x 6,"
  452.     s = s & "5 x 5,5 x 6,"
  453.     s = s & "6 x 6,"
  454.     sEnd = 0
  455.     Do
  456.         sBegin = sEnd
  457.         sEnd = InStr(sBegin + 1, s, ",")
  458.         If sEnd = 0 Then
  459.             Exit Do
  460.         End If
  461.         t = Mid(s, sBegin + 1, sEnd - sBegin - 1)
  462.         ctlMastersPerPage.AddItem t
  463.     Loop
  464.     ctlMastersPerPage.ListIndex = 12    ' 3 x 4
  465. End Sub
  466. Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
  467.     End
  468. End Sub
  469. Private Function formValid()
  470.     Dim stat
  471.     Dim masters
  472.     Dim rows
  473.     Dim cols
  474.     formValid = True        ' default value
  475.     ' Options
  476.     '
  477.     gDoc.Header = ctlHeader.Value
  478.     gDoc.Footer = ctlFooter.Value
  479.     gDoc.gridlines = ctlGridlines.Value
  480.     gDoc.properties = ctlProperties.Value
  481.     gDoc.resize = ctlResize.Value
  482.     ' Get number of masters per page
  483.     '
  484.     masters = ctlMastersPerPage.text
  485.     rows = Val(left(masters, 1))
  486.     cols = Val(Right(masters, 1))
  487.     ' Compute grid metrics
  488.     '
  489.     gridCompute rows, cols
  490. End Function
  491. Private Sub Last_Click()
  492.     If formValid() = True Then
  493.         Hide
  494.         frmReport.Show
  495.     End If
  496. End Sub
  497.