home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1998 November / pcwk_11_98a.iso / Wtestowe / SOFTSRC / vtrial15.exe / DATA.1 / GetName.frm < prev    next >
Text File  |  1997-03-20  |  4KB  |  136 lines
  1. VERSION 4.00
  2. Begin VB.Form GetNameForm 
  3.    Caption         =   "Name for ..."
  4.    ClientHeight    =   1680
  5.    ClientLeft      =   1875
  6.    ClientTop       =   6000
  7.    ClientWidth     =   5070
  8.    Height          =   2085
  9.    Left            =   1815
  10.    LinkTopic       =   "Form1"
  11.    MaxButton       =   0   'False
  12.    MinButton       =   0   'False
  13.    ScaleHeight     =   1680
  14.    ScaleWidth      =   5070
  15.    Top             =   5655
  16.    Width           =   5190
  17.    Begin VB.CommandButton BrowseCmd 
  18.       Caption         =   "&Browse..."
  19.       Height          =   375
  20.       Left            =   3600
  21.       TabIndex        =   4
  22.       Top             =   1200
  23.       Width           =   1215
  24.    End
  25.    Begin VB.CommandButton CancelCmd 
  26.       Cancel          =   -1  'True
  27.       Caption         =   "Cancel"
  28.       Height          =   375
  29.       Left            =   1920
  30.       TabIndex        =   3
  31.       Top             =   1200
  32.       Width           =   1215
  33.    End
  34.    Begin VB.CommandButton OKCmd 
  35.       Caption         =   "OK"
  36.       Default         =   -1  'True
  37.       Height          =   375
  38.       Left            =   240
  39.       TabIndex        =   2
  40.       Top             =   1200
  41.       Width           =   1215
  42.    End
  43.    Begin VB.TextBox NewName 
  44.       Height          =   375
  45.       Left            =   120
  46.       TabIndex        =   0
  47.       Top             =   480
  48.       Width           =   4815
  49.    End
  50.    Begin VB.Label label 
  51.       Alignment       =   2  'Center
  52.       Caption         =   "Name for new template:"
  53.       Height          =   255
  54.       Left            =   120
  55.       TabIndex        =   1
  56.       Top             =   120
  57.       Width           =   4815
  58.    End
  59. End
  60. Attribute VB_Name = "GetNameForm"
  61. Attribute VB_Creatable = False
  62. Attribute VB_Exposed = False
  63. Private Sub BrowseCmd_Click()
  64. '
  65. '   bring up a file selection dialog box for the user to
  66. '   use in selecting file name and path for new dwg file
  67. '
  68.     WindowOnTop hWnd
  69.     
  70.     On Error GoTo BrowseCmd_Error
  71.     ComDlg.CancelError = True       ' allows user to abort dlg
  72.     ComDlg.DefaultExt = ".Dwg"
  73.     ComDlg.Filter = "Vdraft Template (*.VS)|*.VS|All Files (*.*)|*.*"
  74.     ComDlg.FilterIndex = 1          ' default to .VS extension
  75.     ComDlg.Flags = &H4& + &H2& + &H800&
  76.     ComDlg.Action = 2               ' go
  77.  
  78. '
  79. '   if we get here, then the user did not cancel the dlg
  80.     NewName.Text = ComDlg.filename  ' user-chosen file name
  81.     GoTo BrowseCmd_Exit
  82.     
  83. BrowseCmd_Error:                    ' allows user to cancel from dlg
  84.     Resume BrowseCmd_Exit
  85.  
  86. BrowseCmd_Exit:
  87.     On Error GoTo 0
  88.  
  89. End Sub
  90.  
  91. Private Sub CancelCmd_Click()
  92. '
  93. '   quit
  94. '
  95.     gblNewName = ""
  96.     GetNameForm.Hide
  97. End Sub
  98.  
  99. Private Sub Form_Load()
  100. '
  101. '   generic template for acquiring a new file
  102. '   or preset name from the user.  Its behavior is
  103. '   determined by the setting of a global switch:
  104. '   gblGetNameFlag, where
  105. '
  106. '       1 = get name for "save as template"
  107. '       2 = get name for "save as new preset"
  108. '       3 =
  109. '
  110.  
  111. '   center form on screen
  112.     GetNameForm.Top = (Screen.Height - GetNameForm.Height) / 2
  113.     GetNameForm.Left = (Screen.Width - GetNameForm.Width) / 2
  114.     
  115.     Select Case gblGetNameFlag
  116.         Case 1                  ' save as template
  117.             GetNameForm.Caption = "Name for Template"
  118.             Label.Caption = "Enter name for the new template:"
  119.         Case 2                  ' save as new preset
  120.             GetNameForm.Caption = "Name for New Preset"
  121.             Label.Caption = "Enter name for the new Preset"
  122.     End Select
  123.  
  124. End Sub
  125.  
  126.  
  127. Private Sub OKCmd_Click()
  128. '
  129. '   done
  130. '
  131.     gblNewName = Trim$(NewName.Text)
  132.     GetNameForm.Hide
  133. End Sub
  134.  
  135.  
  136.