home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1998 November / pcwk_11_98a.iso / Wtestowe / Vistdtk / Install / Data.Z / Netdiag.FRM < prev    next >
Text File  |  1996-09-03  |  5KB  |  163 lines
  1. VERSION 4.00
  2. Begin VB.Form frmMainForm 
  3.    Appearance      =   0  'Flat
  4.    BackColor       =   &H0080FFFF&
  5.    BorderStyle     =   3  'Fixed Dialog
  6.    Caption         =   "Network Diagramming"
  7.    ClientHeight    =   1905
  8.    ClientLeft      =   780
  9.    ClientTop       =   1800
  10.    ClientWidth     =   5115
  11.    BeginProperty Font 
  12.       name            =   "MS Sans Serif"
  13.       charset         =   0
  14.       weight          =   700
  15.       size            =   8.25
  16.       underline       =   0   'False
  17.       italic          =   0   'False
  18.       strikethrough   =   0   'False
  19.    EndProperty
  20.    ForeColor       =   &H80000008&
  21.    Height          =   2595
  22.    Icon            =   "NETDIAG.frx":0000
  23.    Left            =   720
  24.    LinkTopic       =   "Form1"
  25.    MaxButton       =   0   'False
  26.    ScaleHeight     =   1905
  27.    ScaleWidth      =   5115
  28.    Top             =   1170
  29.    Width           =   5235
  30.    Begin MSComDlg.CommonDialog ctlCDialog 
  31.       Left            =   480
  32.       Top             =   600
  33.       _Version        =   65536
  34.       _ExtentX        =   847
  35.       _ExtentY        =   847
  36.       _StockProps     =   0
  37.    End
  38.    Begin VB.Menu mnuFile 
  39.       Caption         =   "&File"
  40.       Begin VB.Menu mnuFileNewDBase 
  41.          Caption         =   "&New Database..."
  42.       End
  43.       Begin VB.Menu mnuFileOpen 
  44.          Caption         =   "&Open Database..."
  45.       End
  46.       Begin VB.Menu mnuFileSep1 
  47.          Caption         =   "-"
  48.       End
  49.       Begin VB.Menu mnuFileExit 
  50.          Caption         =   "E&xit"
  51.       End
  52.    End
  53. End
  54. Attribute VB_Name = "frmMainForm"
  55. Attribute VB_Creatable = False
  56. Attribute VB_Exposed = False
  57. ' -----------------------------------------------------------------------------
  58. ' Copyright (C) 1993-1996 Visio Corporation. All rights reserved.
  59. '
  60. ' You have a royalty-free right to use, modify, reproduce and distribute
  61. ' the Sample Application Files (and/or any modified version) in any way
  62. ' you find useful, provided that you agree that Visio has no warranty,
  63. ' obligations or liability for any Sample Application Files.
  64. ' -----------------------------------------------------------------------------
  65.  
  66. Option Explicit
  67.  
  68. Private Sub mnuFileExit_Click()
  69. '----------------------------------------
  70. '--- mnuFileExit_Click ------------------
  71. '--
  72. '--   Handles request for exit.  We prompt before exiting.
  73. '--
  74.  
  75.     Dim strMsg As String
  76.  
  77.     strMsg = "Are you sure you want to quit?"
  78.  
  79.     If MsgBox(strMsg, MB_ICONEXCLAMATION Or MB_YESNO, "Exit") = IDYES Then
  80.         End
  81.     End If
  82. End Sub
  83.  
  84. Private Sub mnuFileNewDBase_Click()
  85. '----------------------------------------
  86. '--- mnuFileNewDBase_Click --------------
  87. '--
  88. '--   Handles the user's request to build a blank database.
  89. '--
  90.  
  91.     On Error GoTo lblNewDBaseCatchCancelErr
  92.     
  93.     Dim strFileName As String
  94.     
  95.     ctlCDialog.DialogTitle = "Create Blank Database"
  96.     ctlCDialog.CancelError = True
  97.     ctlCDialog.Flags = OFN_HIDEREADONLY Or OFN_OVERWRITEPROMPT
  98.     ctlCDialog.Filter = "Access Files (*.mdb)|*.mdb"
  99.     ctlCDialog.DefaultExt = "mdb"
  100.     ctlCDialog.Action = 2
  101.  
  102.     strFileName = ctlCDialog.filename
  103.     
  104.     On Error GoTo lblKillCatch
  105.     Kill strFileName
  106.  
  107.     SetMousePointer MP_WAIT
  108.     CreateBlankDatabase strFileName
  109.     SetMousePointer MP_NORMAL
  110.  
  111.     MsgBox strFileName & " Created.", MB_ICONINFORMATION, ""
  112.     Exit Sub
  113.  
  114. lblNewDBaseErr:
  115.     MsgBox "Error creating blank database." & Chr(13) & Chr(10) & Error
  116.     Exit Sub
  117.     Resume Next
  118.  
  119. lblNewDBaseCatchCancelErr:
  120.     Exit Sub
  121.     Resume Next
  122.  
  123. lblKillCatch:
  124.     Resume Next
  125. End Sub
  126.  
  127. Private Sub mnuFileOpen_Click()
  128. '----------------------------------------
  129. '--- mnuFileOpen_Click ------------------
  130. '--
  131. '--   The process for creating a network diagram requires we first prompt for
  132. '-- an Access database name.  If the user selects a file we then verify it
  133. '-- is OK for diagramming (ValidDatabase) and if so we create the diagram.
  134. '--
  135.  
  136.     Dim strFileName As String
  137.  
  138.     On Error GoTo lblFileOpenErr
  139.  
  140.     ctlCDialog.DialogTitle = "Open Network Database"
  141.     ctlCDialog.Filter = "Access Files (*.mdb)|*.mdb"
  142.     ctlCDialog.CancelError = True
  143.     ctlCDialog.Action = 1
  144.  
  145.     strFileName = ctlCDialog.filename
  146.  
  147.     If ValidDatabase(strFileName) Then
  148.         SetMousePointer MP_WAIT
  149.         CreateDiagram (strFileName)
  150.         SetMousePointer MP_NORMAL
  151.     Else
  152.         MsgBox "Invalid Database", MB_ICONEXCLAMATION, "Open"
  153.     End If
  154.  
  155.     Exit Sub
  156.  
  157. lblFileOpenErr:
  158.     Exit Sub
  159.  
  160.     Resume Next
  161. End Sub
  162.  
  163.