home *** CD-ROM | disk | FTP | other *** search
/ Tools / WinSN5.0Ver.iso / PVb5.0 / VB / SAMPLES / VISDATA / EXPNAME.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1997-01-14  |  2.7 KB  |  99 lines
  1. VERSION 5.00
  2. Begin VB.Form frmExpName 
  3.    BorderStyle     =   3  'Fixed Dialog
  4.    Caption         =   "
  5.    ClientHeight    =   1335
  6.    ClientLeft      =   2775
  7.    ClientTop       =   2670
  8.    ClientWidth     =   4950
  9.    BeginProperty Font 
  10.       Name            =   "
  11.       Size            =   9
  12.       Charset         =   134
  13.       Weight          =   400
  14.       Underline       =   0   'False
  15.       Italic          =   0   'False
  16.       Strikethrough   =   0   'False
  17.    EndProperty
  18.    HelpContextID   =   2016127
  19.    Icon            =   "EXPNAME.frx":0000
  20.    LinkTopic       =   "Form1"
  21.    LockControls    =   -1  'True
  22.    MaxButton       =   0   'False
  23.    MinButton       =   0   'False
  24.    ScaleHeight     =   1335
  25.    ScaleWidth      =   4950
  26.    ShowInTaskbar   =   0   'False
  27.    StartUpPosition =   1  'CenterOwner
  28.    Begin VB.CommandButton cmdCancel 
  29.       Cancel          =   -1  'True
  30.       Caption         =   "
  31. (&C)"
  32.       Height          =   375
  33.       Left            =   3480
  34.       MaskColor       =   &H00000000&
  35.       TabIndex        =   4
  36.       Top             =   600
  37.       Width           =   1335
  38.    End
  39.    Begin VB.CommandButton cmdOK 
  40.       Caption         =   "
  41. (&O)"
  42.       Default         =   -1  'True
  43.       Height          =   375
  44.       Left            =   3480
  45.       MaskColor       =   &H00000000&
  46.       TabIndex        =   3
  47.       Top             =   120
  48.       Width           =   1335
  49.    End
  50.    Begin VB.TextBox txtTable 
  51.       Height          =   285
  52.       Left            =   160
  53.       TabIndex        =   1
  54.       Top             =   480
  55.       Width           =   2895
  56.    End
  57.    Begin VB.Label Label2 
  58.       AutoSize        =   -1  'True
  59.       Height          =   195
  60.       Left            =   165
  61.       TabIndex        =   2
  62.       Top             =   1000
  63.       Width           =   45
  64.    End
  65.    Begin VB.Label Label1 
  66.       AutoSize        =   -1  'True
  67.       Height          =   195
  68.       Left            =   165
  69.       TabIndex        =   0
  70.       Top             =   120
  71.       Width           =   45
  72.    End
  73. Attribute VB_Name = "frmExpName"
  74. Attribute VB_GlobalNameSpace = False
  75. Attribute VB_Creatable = False
  76. Attribute VB_PredeclaredId = True
  77. Attribute VB_Exposed = False
  78. Option Explicit
  79. '>>>>>>>>>>>>>>>>>>>>>>>>
  80. Const FORMCAPTION = "
  81. Const BUTTON1 = "
  82. (&O)"
  83. Const BUTTON2 = "
  84. (&C)"
  85. '>>>>>>>>>>>>>>>>>>>>>>>>
  86. Private Sub cmdCancel_Click()
  87.   gExpTable = vbNullString
  88.   Unload Me
  89. End Sub
  90. Private Sub cmdOK_Click()
  91.   gExpTable = txtTable.Text
  92.   Unload Me
  93. End Sub
  94. Sub Form_Load()
  95.   Me.Caption = FORMCAPTION
  96.   cmdOK.Caption = BUTTON1
  97.   cmdCancel.Caption = BUTTON2
  98. End Sub
  99.