home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1998 November / pcwk_11_98a.iso / Wtestowe / Vistdtk / Install / Data.Z / Selstenc.FRM < prev    next >
Text File  |  1997-06-06  |  11KB  |  372 lines
  1. VERSION 4.00
  2. Begin VB.Form frmSelectStencil 
  3.    Appearance      =   0  'Flat
  4.    BackColor       =   &H00C0C0C0&
  5.    BorderStyle     =   3  'Fixed Dialog
  6.    ClientHeight    =   4455
  7.    ClientLeft      =   1035
  8.    ClientTop       =   2535
  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.    Icon            =   "SELSTENC.frx":0000
  22.    Left            =   975
  23.    LinkTopic       =   "Form3"
  24.    MaxButton       =   0   'False
  25.    MinButton       =   0   'False
  26.    ScaleHeight     =   4455
  27.    ScaleWidth      =   6480
  28.    Top             =   2190
  29.    Width           =   6600
  30.    Begin VB.CommandButton cmdBack 
  31.       Appearance      =   0  'Flat
  32.       BackColor       =   &H80000005&
  33.       Caption         =   "< &Back"
  34.       Enabled         =   0   'False
  35.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  36.          Name            =   "MS Sans Serif"
  37.          Size            =   8.25
  38.          Charset         =   0
  39.          Weight          =   400
  40.          Underline       =   0   'False
  41.          Italic          =   0   'False
  42.          Strikethrough   =   0   'False
  43.       EndProperty
  44.       Height          =   375
  45.       Left            =   2700
  46.       TabIndex        =   2
  47.       Top             =   3960
  48.       Width           =   1155
  49.    End
  50.    Begin VB.CommandButton cmdNext 
  51.       Appearance      =   0  'Flat
  52.       BackColor       =   &H80000005&
  53.       Caption         =   "Next >"
  54.       Default         =   -1  'True
  55.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  56.          Name            =   "MS Sans Serif"
  57.          Size            =   8.25
  58.          Charset         =   0
  59.          Weight          =   400
  60.          Underline       =   0   'False
  61.          Italic          =   0   'False
  62.          Strikethrough   =   0   'False
  63.       EndProperty
  64.       Height          =   375
  65.       Left            =   3840
  66.       TabIndex        =   0
  67.       Top             =   3960
  68.       Width           =   1155
  69.    End
  70.    Begin VB.CommandButton cmdCancel 
  71.       Appearance      =   0  'Flat
  72.       BackColor       =   &H80000005&
  73.       Caption         =   "Cancel"
  74.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  75.          Name            =   "MS Sans Serif"
  76.          Size            =   8.25
  77.          Charset         =   0
  78.          Weight          =   400
  79.          Underline       =   0   'False
  80.          Italic          =   0   'False
  81.          Strikethrough   =   0   'False
  82.       EndProperty
  83.       Height          =   375
  84.       Left            =   5160
  85.       TabIndex        =   6
  86.       Top             =   3960
  87.       Width           =   1155
  88.    End
  89.    Begin Threed.SSPanel pnlStndoc 
  90.       Height          =   3390
  91.       Left            =   180
  92.       TabIndex        =   3
  93.       Top             =   180
  94.       Width           =   1950
  95.       _Version        =   65536
  96.       _ExtentX        =   3440
  97.       _ExtentY        =   5980
  98.       _StockProps     =   15
  99.       ForeColor       =   4210752
  100.       BackColor       =   8421376
  101.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  102.          Name            =   "MS Sans Serif"
  103.          Size            =   8.25
  104.          Charset         =   0
  105.          Weight          =   700
  106.          Underline       =   0   'False
  107.          Italic          =   0   'False
  108.          Strikethrough   =   0   'False
  109.       EndProperty
  110.       BevelOuter      =   1
  111.       Begin VB.Image imgStndoc 
  112.          Appearance      =   0  'Flat
  113.          Height          =   3360
  114.          Left            =   0
  115.          Picture         =   "SELSTENC.frx":030A
  116.          Top             =   0
  117.          Width           =   1920
  118.       End
  119.    End
  120.    Begin Threed.SSFrame Frame3D1 
  121.       Height          =   1095
  122.       Left            =   2220
  123.       TabIndex        =   1
  124.       Top             =   1440
  125.       Width           =   4215
  126.       _Version        =   65536
  127.       _ExtentX        =   7435
  128.       _ExtentY        =   1931
  129.       _StockProps     =   14
  130.       Caption         =   "&Select Stencil"
  131.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  132.          Name            =   "MS Sans Serif"
  133.          Size            =   8.25
  134.          Charset         =   0
  135.          Weight          =   400
  136.          Underline       =   0   'False
  137.          Italic          =   0   'False
  138.          Strikethrough   =   0   'False
  139.       EndProperty
  140.       Begin VB.ComboBox Combo1 
  141.          Appearance      =   0  'Flat
  142.          BackColor       =   &H00FFFFFF&
  143.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  144.             Name            =   "MS Sans Serif"
  145.             Size            =   8.25
  146.             Charset         =   0
  147.             Weight          =   400
  148.             Underline       =   0   'False
  149.             Italic          =   0   'False
  150.             Strikethrough   =   0   'False
  151.          EndProperty
  152.          ForeColor       =   &H00000000&
  153.          Height          =   315
  154.          Left            =   120
  155.          Sorted          =   -1  'True
  156.          Style           =   2  'Dropdown List
  157.          TabIndex        =   5
  158.          Top             =   480
  159.          Width           =   3975
  160.       End
  161.    End
  162.    Begin VB.Line Line2 
  163.       BorderColor     =   &H00FFFFFF&
  164.       X1              =   180
  165.       X2              =   6300
  166.       Y1              =   3795
  167.       Y2              =   3795
  168.    End
  169.    Begin VB.Label Label1 
  170.       Appearance      =   0  'Flat
  171.       BackColor       =   &H00C0C0C0&
  172.       Caption         =   "Which stencil do you want to report on?  Select a stencil from the list of open stencils."
  173.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  174.          Name            =   "MS Sans Serif"
  175.          Size            =   8.25
  176.          Charset         =   0
  177.          Weight          =   400
  178.          Underline       =   0   'False
  179.          Italic          =   0   'False
  180.          Strikethrough   =   0   'False
  181.       EndProperty
  182.       ForeColor       =   &H80000008&
  183.       Height          =   435
  184.       Left            =   2280
  185.       TabIndex        =   4
  186.       Top             =   240
  187.       Width           =   4095
  188.    End
  189. End
  190. Attribute VB_Name = "frmSelectStencil"
  191. Attribute VB_Creatable = False
  192. Attribute VB_Exposed = False
  193. Option Explicit
  194.  
  195. Private Sub Cancel_Click()
  196.     End
  197. End Sub
  198.  
  199. Private Sub cmdCancel_Click()
  200.  
  201.     End
  202.  
  203. End Sub
  204.  
  205. Private Sub cmdNext_Click()
  206.  
  207.     If formValid() = True Then
  208.         Hide
  209.         frmSelectLook.Top = Top
  210.         frmSelectLook.left = left
  211.         frmSelectLook.Show
  212.     End If
  213.  
  214. End Sub
  215.  
  216. Private Sub First_Click()
  217.     Beep
  218. End Sub
  219.  
  220. Private Sub Form_Load()
  221.     Dim stat
  222.     Dim doc As Visio.Document
  223.     Dim docs As Visio.Documents
  224.     Dim i
  225.     Dim template
  226.     
  227.     ' Make sure Visio is running.
  228.     '
  229.     appConnect
  230.  
  231.     ' Initialize application.
  232.     '
  233.     appInit
  234.  
  235.     'Set initial form position
  236.     Top = (Screen.Height - frmSelectStencil.Height) / 2
  237.     left = (Screen.Width - frmSelectStencil.Width) / 2
  238.  
  239.  
  240.     ' Initialize form.
  241.     '
  242.     formInit frmSelectStencil
  243.  
  244.     ' Center the picture
  245.     imgStndoc.Top = pnlStndoc.Height / 2 - imgStndoc.Height / 2
  246.     imgStndoc.left = pnlStndoc.Width / 2 - imgStndoc.Width / 2
  247.  
  248.     ' Initialize controls.
  249.     '
  250. '    first.Enabled = False
  251. '    previous.Enabled = False
  252.  
  253.     'Check if Visio is running in-place
  254.     Call CheckIfInPlace
  255.  
  256.     ' Fill combo box with the list of open stencils.
  257.     ' It is an error if there are no open stencils.
  258.     '
  259.     Set docs = g_appVisio.Documents
  260.     For i = 1 To docs.Count
  261.         Set doc = docs(i)
  262.         If UCase(Right(doc.Name, 3)) = "VSS" Then
  263.             combo1.AddItem doc.FullName
  264.         End If
  265.     Next
  266.     If combo1.ListCount > 0 Then
  267.         combo1.ListIndex = 0
  268.     Else
  269.         stat = appMessage(ERR_FATAL, ERR_NOSTENCILS)
  270.     End If
  271.  
  272.     '   Create new document.
  273.     '
  274.     On Error GoTo lblTemplateError
  275.     template = App.Path & "\" & "StnDoc.VST"
  276.     Debug.Print "Template = " & template
  277.     Set gDocDraw = g_appVisio.Documents.Add(template)
  278.     Set gWinDraw = g_appVisio.ActiveWindow
  279.  
  280. Exit Sub
  281.  
  282. lblTemplateError:
  283.  
  284.     If InStr(Error, VB_ERROR_STRING_OPENFILES) > 0 Then
  285.         MsgBox ERR_OPENFILES, 48
  286.     Else
  287.         MsgBox ERR_NOTEMPLATE & template & Chr(10) & ERR_NOTEMPLATE2, 48
  288.     End If
  289.     End
  290.  
  291. Exit Sub
  292. End Sub
  293.  
  294. Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
  295.     End
  296. End Sub
  297.  
  298. '   Validate form settings.
  299. '
  300. Private Function formValid()
  301.     Dim stencil As Visio.Document
  302.     Dim master As Visio.master
  303.     Dim masters As Visio.masters
  304.     Dim pageSheet As Visio.shape         ' background page's page sheet
  305.     Dim masterSheet As Visio.shape       ' master's page sheet
  306.  
  307.     Dim masterDrawingScale
  308.     Dim masterPageScale
  309.     Dim pageDrawingScale
  310.     Dim pagePageScale
  311.     Dim drawingScale
  312.     Dim pageScale
  313.     Dim pageWidth
  314.     Dim pageHeight
  315.     Dim stat
  316.  
  317.     formValid = True    ' default return value
  318.  
  319.     '   Get stencil name
  320.     '
  321.     gDoc.Filename = combo1.text
  322.  
  323.     '   Get drawing scale and page scale.
  324.     '
  325.     Set stencil = g_appVisio.Documents(gDoc.Filename)
  326.     Set masters = stencil.masters
  327.     If masters.Count = 0 Then
  328.         stat = appMessage(ERR_FATAL, ERR_NOMASTERS)
  329.     End If
  330.  
  331.     '   We assume that there is at least one master and that
  332.     '   all masters in the stencil have the same scale.
  333.     '
  334.     Set master = masters(1)     ' assume all masters have same scale
  335.     Set masterSheet = master.Shapes("ThePage")
  336.  
  337.     ' Page setup for background page.
  338.     '
  339.     Set gPageBack = gDocDraw.Pages.Item(1)
  340.     gPageBack.Name = STR_BACKGROUND
  341.     gPageBack.Background = True
  342.     
  343.     ' Set page scale and size for background page.
  344.     '
  345.     Set pageSheet = gPageBack.Shapes("ThePage")
  346.     masterDrawingScale = masterSheet.Cells("DrawingScale").Formula
  347.     masterPageScale = masterSheet.Cells("PageScale").Formula
  348.     pageDrawingScale = pageSheet.Cells("DrawingScale").Formula
  349.     pagePageScale = pageSheet.Cells("PageScale").Formula
  350.  
  351.     If (masterDrawingScale <> pageDrawingScale Or masterPageScale <> pagePageScale) Then
  352.         ' Drawing Scale = Custom
  353.         pageSheet.Cells("DrawingScaleType").Formula = 3
  354.         pageSheet.Cells("DrawingScale").Formula = masterDrawingScale
  355.         pageSheet.Cells("PageScale").Formula = masterPageScale
  356.         ' Drawing Size = Dimensions
  357.         drawingScale = masterSheet.Cells("DrawingScale")
  358.         pageScale = masterSheet.Cells("PageScale")
  359.         pageHeight = pageSheet.Cells("PageHeight")
  360.         pageWidth = pageSheet.Cells("PageWidth")
  361.  
  362.         pageSheet.Cells("PageHeight").Formula = pageHeight * drawingScale / pageScale
  363.         pageSheet.Cells("PageWidth").Formula = pageWidth * drawingScale / pageScale
  364.     End If
  365.  
  366. End Function
  367.  
  368. Private Sub Previous_Click()
  369.     Beep
  370. End Sub
  371.  
  372.