home *** CD-ROM | disk | FTP | other *** search
/ Tricks of the Windows Gam…ming Gurus (2nd Edition) / Disc2.iso / msdn_vcb / samples / vc98 / com / inproc / ipdrive / vbdrive.frm < prev   
Text File  |  1998-04-02  |  4KB  |  142 lines
  1. VERSION 5.00
  2. Begin VB.Form Form1 
  3.    Appearance      =   0  'Flat
  4.    BackColor       =   &H80000005&
  5.    Caption         =   "InProc Driver"
  6.    ClientHeight    =   2100
  7.    ClientLeft      =   255
  8.    ClientTop       =   5955
  9.    ClientWidth     =   5310
  10.    BeginProperty Font 
  11.       Name            =   "MS Sans Serif"
  12.       Size            =   8.25
  13.       Charset         =   0
  14.       Weight          =   700
  15.       Underline       =   0   'False
  16.       Italic          =   0   'False
  17.       Strikethrough   =   0   'False
  18.    EndProperty
  19.    ForeColor       =   &H80000008&
  20.    LinkTopic       =   "Form1"
  21.    PaletteMode     =   1  'UseZOrder
  22.    ScaleHeight     =   2100
  23.    ScaleWidth      =   5310
  24.    Begin VB.CommandButton Remove 
  25.       Appearance      =   0  'Flat
  26.       Caption         =   "&Remove"
  27.       Height          =   375
  28.       Left            =   3600
  29.       TabIndex        =   8
  30.       Top             =   1200
  31.       Width           =   1335
  32.    End
  33.    Begin VB.CommandButton Add 
  34.       Appearance      =   0  'Flat
  35.       Caption         =   "&Add"
  36.       Height          =   375
  37.       Left            =   3600
  38.       TabIndex        =   7
  39.       Top             =   720
  40.       Width           =   1335
  41.    End
  42.    Begin VB.CommandButton Lookup 
  43.       Appearance      =   0  'Flat
  44.       Caption         =   "&Lookup"
  45.       Height          =   375
  46.       Left            =   3600
  47.       TabIndex        =   6
  48.       Top             =   240
  49.       Width           =   1335
  50.    End
  51.    Begin VB.TextBox MapTo 
  52.       Appearance      =   0  'Flat
  53.       Height          =   285
  54.       Left            =   840
  55.       TabIndex        =   1
  56.       Top             =   720
  57.       Width           =   2055
  58.    End
  59.    Begin VB.TextBox MapFrom 
  60.       Appearance      =   0  'Flat
  61.       Height          =   285
  62.       Left            =   840
  63.       TabIndex        =   0
  64.       Top             =   240
  65.       Width           =   2055
  66.    End
  67.    Begin VB.Label MapCount 
  68.       Appearance      =   0  'Flat
  69.       BackColor       =   &H80000005&
  70.       ForeColor       =   &H80000008&
  71.       Height          =   255
  72.       Left            =   960
  73.       TabIndex        =   5
  74.       Top             =   1320
  75.       Width           =   1935
  76.    End
  77.    Begin VB.Label Label3 
  78.       Appearance      =   0  'Flat
  79.       BackColor       =   &H80000005&
  80.       Caption         =   "Count:"
  81.       ForeColor       =   &H80000008&
  82.       Height          =   255
  83.       Left            =   240
  84.       TabIndex        =   4
  85.       Top             =   1320
  86.       Width           =   615
  87.    End
  88.    Begin VB.Label Label2 
  89.       Appearance      =   0  'Flat
  90.       BackColor       =   &H80000005&
  91.       Caption         =   "&To:"
  92.       ForeColor       =   &H80000008&
  93.       Height          =   255
  94.       Left            =   240
  95.       TabIndex        =   3
  96.       Top             =   720
  97.       Width           =   495
  98.    End
  99.    Begin VB.Label Label1 
  100.       Appearance      =   0  'Flat
  101.       BackColor       =   &H80000005&
  102.       Caption         =   "&From:"
  103.       ForeColor       =   &H80000008&
  104.       Height          =   255
  105.       Left            =   240
  106.       TabIndex        =   2
  107.       Top             =   240
  108.       Width           =   615
  109.    End
  110. End
  111. Attribute VB_Name = "Form1"
  112. Attribute VB_GlobalNameSpace = False
  113. Attribute VB_Creatable = False
  114. Attribute VB_PredeclaredId = True
  115. Attribute VB_Exposed = False
  116. Dim map As Object
  117.  
  118. Private Sub Add_Click()
  119.     map.SetAt MapFrom.Text, MapTo.Text
  120.     Lookup_Click
  121.     MapCount.Caption = map.Count
  122. End Sub
  123.  
  124. Private Sub Form_Load()
  125.     Set map = CreateObject("mfc.inproc.varmap")
  126. End Sub
  127.  
  128. Private Sub Form_Unload(Cancel As Integer)
  129.     Set map = Nothing
  130. End Sub
  131.  
  132. Private Sub Lookup_Click()
  133.     temp = map.Item(MapFrom.Text)
  134.     MapTo.Text = temp
  135. End Sub
  136.  
  137. Private Sub Remove_Click()
  138.     map.RemoveKey MapFrom.Text
  139.     MapTo.Text = "<nothing>"
  140.     MapCount.Caption = map.Count
  141. End Sub
  142.