home *** CD-ROM | disk | FTP | other *** search
/ QBasic & Borland Pascal & C / Delphi5.iso / C / BC_502 / IPDRIVE.PAK / VBDRIVE.FRM (.txt) < prev   
Encoding:
Visual Basic Form  |  1997-05-06  |  2.7 KB  |  105 lines
  1. VERSION 2.00
  2. Begin Form Form1 
  3.    Caption         =   "InProc Driver"
  4.    ClientHeight    =   2100
  5.    ClientLeft      =   255
  6.    ClientTop       =   5955
  7.    ClientWidth     =   5310
  8.    Height          =   2505
  9.    Left            =   195
  10.    LinkTopic       =   "Form1"
  11.    ScaleHeight     =   2100
  12.    ScaleWidth      =   5310
  13.    Top             =   5610
  14.    Width           =   5430
  15.    Begin CommandButton Remove 
  16.       Caption         =   "&Remove"
  17.       Height          =   375
  18.       Left            =   3600
  19.       TabIndex        =   8
  20.       Top             =   1200
  21.       Width           =   1335
  22.    End
  23.    Begin CommandButton Add 
  24.       Caption         =   "&Add"
  25.       Height          =   375
  26.       Left            =   3600
  27.       TabIndex        =   7
  28.       Top             =   720
  29.       Width           =   1335
  30.    End
  31.    Begin CommandButton Lookup 
  32.       Caption         =   "&Lookup"
  33.       Height          =   375
  34.       Left            =   3600
  35.       TabIndex        =   6
  36.       Top             =   240
  37.       Width           =   1335
  38.    End
  39.    Begin TextBox MapTo 
  40.       Height          =   285
  41.       Left            =   840
  42.       TabIndex        =   1
  43.       Top             =   720
  44.       Width           =   2055
  45.    End
  46.    Begin TextBox MapFrom 
  47.       Height          =   285
  48.       Left            =   840
  49.       TabIndex        =   0
  50.       Top             =   240
  51.       Width           =   2055
  52.    End
  53.    Begin Label MapCount 
  54.       Height          =   255
  55.       Left            =   960
  56.       TabIndex        =   5
  57.       Top             =   1320
  58.       Width           =   1935
  59.    End
  60.    Begin Label Label3 
  61.       Caption          =   "Count:"
  62.       Height          =   255
  63.       Left            =   240
  64.       TabIndex        =   4
  65.       Top             =   1320
  66.       Width           =   615
  67.    End
  68.    Begin Label Label2 
  69.       Caption         =   "&To:"
  70.       Height          =   255
  71.       Left            =   240
  72.       TabIndex        =   3
  73.       Top             =   720
  74.       Width           =   495
  75.    End
  76.    Begin Label Label1 
  77.       Caption         =   "&From:"
  78.       Height          =   255
  79.       Left            =   240
  80.       TabIndex        =   2
  81.       Top             =   240
  82.       Width           =   615
  83.    End
  84. Dim map As object
  85. Sub Add_Click ()
  86.     map.SetAt mapFrom.text, MapTo.text
  87.     Lookup_Click
  88.     MapCount.caption = map.Count
  89. End Sub
  90. Sub Form_Load ()
  91.     Set map = CreateObject("mfc.inproc.varmap")
  92. End Sub
  93. Sub Form_Unload (Cancel As Integer)
  94.     Set map = Nothing
  95. End Sub
  96. Sub Lookup_Click ()
  97.     temp = map.Item(mapFrom.text)
  98.     MapTo.text = temp
  99. End Sub
  100. Sub Remove_Click ()
  101.     map.RemoveKey mapFrom.text
  102.     MapTo.text = "<nothing>"
  103.     MapCount.caption = map.Count
  104. End Sub
  105.