home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1998 November / pcwk_11_98a.iso / Wtestowe / SOFTSRC / vtrial15.exe / DATA.1 / GetName.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1997-03-20  |  3.7 KB  |  111 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. Attribute VB_Name = "GetNameForm"
  60. Attribute VB_Creatable = False
  61. Attribute VB_Exposed = False
  62. Private Sub BrowseCmd_Click()
  63. '   bring up a file selection dialog box for the user to
  64. '   use in selecting file name and path for new dwg file
  65.     WindowOnTop hWnd
  66.     On Error GoTo BrowseCmd_Error
  67.     ComDlg.CancelError = True       ' allows user to abort dlg
  68.     ComDlg.DefaultExt = ".Dwg"
  69.     ComDlg.Filter = "Vdraft Template (*.VS)|*.VS|All Files (*.*)|*.*"
  70.     ComDlg.FilterIndex = 1          ' default to .VS extension
  71.     ComDlg.Flags = &H4& + &H2& + &H800&
  72.     ComDlg.Action = 2               ' go
  73. '   if we get here, then the user did not cancel the dlg
  74.     NewName.Text = ComDlg.filename  ' user-chosen file name
  75.     GoTo BrowseCmd_Exit
  76. BrowseCmd_Error:                    ' allows user to cancel from dlg
  77.     Resume BrowseCmd_Exit
  78. BrowseCmd_Exit:
  79.     On Error GoTo 0
  80. End Sub
  81. Private Sub CancelCmd_Click()
  82. '   quit
  83.     gblNewName = ""
  84.     GetNameForm.Hide
  85. End Sub
  86. Private Sub Form_Load()
  87. '   generic template for acquiring a new file
  88. '   or preset name from the user.  Its behavior is
  89. '   determined by the setting of a global switch:
  90. '   gblGetNameFlag, where
  91. '       1 = get name for "save as template"
  92. '       2 = get name for "save as new preset"
  93. '       3 =
  94. '   center form on screen
  95.     GetNameForm.Top = (Screen.Height - GetNameForm.Height) / 2
  96.     GetNameForm.Left = (Screen.Width - GetNameForm.Width) / 2
  97.     Select Case gblGetNameFlag
  98.         Case 1                  ' save as template
  99.             GetNameForm.Caption = "Name for Template"
  100.             Label.Caption = "Enter name for the new template:"
  101.         Case 2                  ' save as new preset
  102.             GetNameForm.Caption = "Name for New Preset"
  103.             Label.Caption = "Enter name for the new Preset"
  104.     End Select
  105. End Sub
  106. Private Sub OKCmd_Click()
  107. '   done
  108.     gblNewName = Trim$(NewName.Text)
  109.     GetNameForm.Hide
  110. End Sub
  111.