home *** CD-ROM | disk | FTP | other *** search
/ Tools / WinSN5.0Ver.iso / PVb5.0 / VB / SAMPLES / VISDATA / DATATYPE.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1997-03-12  |  2.9 KB  |  106 lines
  1. VERSION 5.00
  2. Begin VB.Form frmDataType 
  3.    BorderStyle     =   3  'Fixed Dialog
  4.    Caption         =   " "
  5.    ClientHeight    =   1515
  6.    ClientLeft      =   2280
  7.    ClientTop       =   3165
  8.    ClientWidth     =   4605
  9.    HelpContextID   =   2016123
  10.    Icon            =   "DATATYPE.frx":0000
  11.    LinkTopic       =   "Form2"
  12.    LockControls    =   -1  'True
  13.    MaxButton       =   0   'False
  14.    MinButton       =   0   'False
  15.    ScaleHeight     =   1515
  16.    ScaleWidth      =   4605
  17.    ShowInTaskbar   =   0   'False
  18.    StartUpPosition =   1  'CenterOwner
  19.    Begin VB.CommandButton cmdCancel 
  20.       Cancel          =   -1  'True
  21.       Caption         =   "
  22. (&C)"
  23.       Height          =   375
  24.       Left            =   3120
  25.       MaskColor       =   &H00000000&
  26.       TabIndex        =   2
  27.       Top             =   960
  28.       Width           =   1335
  29.    End
  30.    Begin VB.CommandButton cmdOK 
  31.       Caption         =   "
  32. (&O)"
  33.       Default         =   -1  'True
  34.       Height          =   375
  35.       Left            =   3120
  36.       MaskColor       =   &H00000000&
  37.       TabIndex        =   1
  38.       Top             =   360
  39.       Width           =   1335
  40.    End
  41.    Begin VB.ListBox lstTypes 
  42.       Height          =   960
  43.       ItemData        =   "DATATYPE.frx":030A
  44.       Left            =   120
  45.       List            =   "DATATYPE.frx":030C
  46.       TabIndex        =   0
  47.       Top             =   360
  48.       Width           =   2895
  49.    End
  50.    Begin VB.Label lblLabel1 
  51.       AutoSize        =   -1  'True
  52.       Caption         =   "
  53.       Height          =   195
  54.       Left            =   120
  55.       TabIndex        =   3
  56.       Top             =   60
  57.       Width           =   1035
  58.    End
  59. Attribute VB_Name = "frmDataType"
  60. Attribute VB_GlobalNameSpace = False
  61. Attribute VB_Creatable = False
  62. Attribute VB_PredeclaredId = True
  63. Attribute VB_Exposed = False
  64. Option Explicit
  65. '>>>>>>>>>>>>>>>>>>>>>>>>
  66. Const BUTTON1 = "
  67. (&O)"
  68. Const BUTTON2 = "
  69. (&C)"
  70. Const Label1 = "
  71. '>>>>>>>>>>>>>>>>>>>>>>>>
  72. Private Sub cmdCancel_Click()
  73.   gnDataType = gnDT_NONE
  74.   Me.Hide
  75. End Sub
  76. Private Sub cmdOK_Click()
  77.   gnDataType = lstTypes.ListIndex
  78.   Me.Hide
  79. End Sub
  80. Private Sub lstTypes_DblClick()
  81.   Call cmdOK_Click
  82. End Sub
  83. Private Sub Form_Load()
  84.   cmdOK.Caption = BUTTON1
  85.   cmdCancel.Caption = BUTTON2
  86.   lblLabel1.Caption = Label1
  87.   If Tag <> "LOADED" Then
  88.     Tag = "LOADED"
  89.   End If
  90.   lstTypes.AddItem "Access MDB"
  91.   lstTypes.AddItem "Dbase IV"
  92.   lstTypes.AddItem "Dbase III"
  93.   lstTypes.AddItem "FoxPro 2.6"
  94.   lstTypes.AddItem "FoxPro 2.5"
  95.   lstTypes.AddItem "FoxPro 2.0"
  96.   lstTypes.AddItem "Paradox 4.X"
  97.   lstTypes.AddItem "Paradox 3.X"
  98.   lstTypes.AddItem "Btrieve"
  99.   lstTypes.AddItem "Excel 5.0"
  100.   lstTypes.AddItem "Excel 4.0"
  101.   lstTypes.AddItem "Excel 3.0"
  102.   lstTypes.AddItem "Text"
  103.   lstTypes.AddItem "ODBC"
  104.   lstTypes.ListIndex = 0
  105. End Sub
  106.