home *** CD-ROM | disk | FTP | other *** search
/ Master 95 #1 / MASTER95_1.iso / microsof / vbasic4 / vb4-6.cab / datatype.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-07-26  |  2.2 KB  |  79 lines
  1. VERSION 4.00
  2. Begin VB.Form frmDataType 
  3.    BorderStyle     =   3  'Fixed Double
  4.    Caption         =   " "
  5.    ClientHeight    =   1515
  6.    ClientLeft      =   2280
  7.    ClientTop       =   3165
  8.    ClientWidth     =   4605
  9.    Height          =   1920
  10.    HelpContextID   =   2016123
  11.    Icon            =   "DATATYPE.frx":0000
  12.    Left            =   2220
  13.    LinkTopic       =   "Form2"
  14.    LockControls    =   -1  'True
  15.    MaxButton       =   0   'False
  16.    MinButton       =   0   'False
  17.    ScaleHeight     =   1515
  18.    ScaleWidth      =   4605
  19.    Top             =   2820
  20.    Width           =   4725
  21.    Begin VB.CommandButton cmdCancel 
  22.       Cancel          =   -1  'True
  23.       Caption         =   "&Cancel"
  24.       Height          =   375
  25.       Left            =   3120
  26.       TabIndex        =   2
  27.       Top             =   960
  28.       Width           =   1335
  29.    End
  30.    Begin VB.CommandButton cmdOK 
  31.       Caption         =   "&OK"
  32.       Default         =   -1  'True
  33.       Height          =   375
  34.       Left            =   3120
  35.       TabIndex        =   1
  36.       Top             =   360
  37.       Width           =   1335
  38.    End
  39.    Begin VB.ListBox lstTypes 
  40.       Height          =   1005
  41.       ItemData        =   "DATATYPE.frx":030A
  42.       Left            =   120
  43.       List            =   "DATATYPE.frx":0338
  44.       TabIndex        =   0
  45.       Top             =   360
  46.       Width           =   2895
  47.    End
  48.    Begin VB.Label lblLabel1 
  49.       AutoSize        =   -1  'True
  50.       Caption         =   " Data Source: "
  51.       Height          =   195
  52.       Left            =   120
  53.       TabIndex        =   3
  54.       Top             =   60
  55.       Width           =   1035
  56.    End
  57. Attribute VB_Name = "frmDataType"
  58. Attribute VB_Creatable = False
  59. Attribute VB_Exposed = False
  60. Option Explicit
  61. Private Sub cmdCancel_Click()
  62.   gnDataType = gnDT_NONE
  63.   Me.Hide
  64. End Sub
  65. Private Sub cmdOK_Click()
  66.   gnDataType = lstTypes.ListIndex
  67.   Me.Hide
  68. End Sub
  69. Private Sub lstTypes_DblClick()
  70.   Call cmdOK_Click
  71. End Sub
  72. Private Sub Form_Load()
  73.   CenterMe Me, gnMDIFORM
  74.   If Tag <> "LOADED" Then
  75.     Tag = "LOADED"
  76.   End If
  77.   lstTypes.ListIndex = 0
  78. End Sub
  79.