home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1998 November / pcwk_11_98a.iso / Wtestowe / Vistdtk / Install / Data.Z / Sellook.FRM < prev    next >
Text File  |  1997-05-23  |  17KB  |  527 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. End
  382. Attribute VB_Name = "frmSelectLook"
  383. Attribute VB_Creatable = False
  384. Attribute VB_Exposed = False
  385. Option Explicit
  386.  
  387. Private Sub btnLandscape_Click(index As Integer)
  388.     If pageIsPortrait(gPageBack) Then
  389.         pageOrientSwitch gPageBack
  390.     End If
  391. End Sub
  392.  
  393. Private Sub btnPortrait_Click(index As Integer)
  394.     If pageIsLandscape(gPageBack) Then
  395.         pageOrientSwitch gPageBack
  396.     End If
  397. End Sub
  398.  
  399. Private Sub Cancel_Click()
  400.     End
  401. End Sub
  402.  
  403. Private Sub cmdBack_Click()
  404.  
  405.     Hide
  406.     frmSelectStencil.Top = Top
  407.     frmSelectStencil.left = left
  408.     frmSelectStencil.Show
  409.  
  410. End Sub
  411.  
  412. Private Sub cmdCancel_Click()
  413.  
  414.     End
  415.  
  416. End Sub
  417.  
  418. Private Sub cmdNext_Click()
  419.  
  420.     If formValid() = True Then
  421.         Hide
  422.         frmReport.Top = Top
  423.         frmReport.left = left
  424.         frmReport.Show
  425.     End If
  426.       
  427. End Sub
  428.  
  429. Private Sub First_Click()
  430.     Hide
  431.     frmSelectStencil.Show
  432. End Sub
  433.  
  434. Private Sub Form_Load()
  435.     Dim s, t
  436.     Dim sBegin, sEnd
  437.  
  438.     ' Initialize form.
  439.     '
  440.     formInit frmSelectLook
  441.  
  442.     ' Center the picture
  443.     imgStndoc.Top = pnlStndoc.Height / 2 - imgStndoc.Height / 2
  444.     imgStndoc.left = pnlStndoc.Width / 2 - imgStndoc.Width / 2
  445.  
  446.     ' Initialize controls
  447.     '
  448.     ' - Options
  449.     '
  450.     ctlHeader.Value = gDoc.Header
  451.     ctlFooter.Value = gDoc.Footer
  452.     ctlGridlines.Value = gDoc.gridlines
  453.     ctlProperties.Value = gDoc.properties
  454.     ctlResize.Value = gDoc.resize
  455.  
  456.     ' - Orientation
  457.     '
  458.     If pageIsPortrait(gPageBack) Then
  459.         btnPortrait.Value = True
  460.     Else
  461.         btnLandscape.Value = True
  462.     End If
  463.  
  464.     ' - Masters Per Page
  465.     '
  466.     s = ""
  467.     s = s & "1 x 1,1 x 2,1 x 3,1 x 4,1 x 5,1 x 6,"
  468.     s = s & "2 x 2,2 x 3,2 x 4,2 x 5,2 x 6,"
  469.     s = s & "3 x 3,3 x 4,3 x 5,3 x 6,"
  470.     s = s & "4 x 4,4 x 5,4 x 6,"
  471.     s = s & "5 x 5,5 x 6,"
  472.     s = s & "6 x 6,"
  473.  
  474.     sEnd = 0
  475.     Do
  476.         sBegin = sEnd
  477.         sEnd = InStr(sBegin + 1, s, ",")
  478.         If sEnd = 0 Then
  479.             Exit Do
  480.         End If
  481.         t = Mid(s, sBegin + 1, sEnd - sBegin - 1)
  482.         ctlMastersPerPage.AddItem t
  483.     Loop
  484.     ctlMastersPerPage.ListIndex = 12    ' 3 x 4
  485.     
  486. End Sub
  487.  
  488. Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
  489.     End
  490. End Sub
  491.  
  492. Private Function formValid()
  493.     Dim stat
  494.     Dim masters
  495.     Dim rows
  496.     Dim cols
  497.  
  498.     formValid = True        ' default value
  499.  
  500.     ' Options
  501.     '
  502.     gDoc.Header = ctlHeader.Value
  503.     gDoc.Footer = ctlFooter.Value
  504.     gDoc.gridlines = ctlGridlines.Value
  505.     gDoc.properties = ctlProperties.Value
  506.     gDoc.resize = ctlResize.Value
  507.  
  508.     ' Get number of masters per page
  509.     '
  510.     masters = ctlMastersPerPage.text
  511.     rows = Val(left(masters, 1))
  512.     cols = Val(Right(masters, 1))
  513.  
  514.     ' Compute grid metrics
  515.     '
  516.     gridCompute rows, cols
  517.  
  518. End Function
  519.  
  520. Private Sub Last_Click()
  521.     If formValid() = True Then
  522.         Hide
  523.         frmReport.Show
  524.     End If
  525. End Sub
  526.  
  527.