home *** CD-ROM | disk | FTP | other *** search
/ Tricks of the Windows Gam…ming Gurus (2nd Edition) / Disc2.iso / msdn_vcb / samples / vc98 / com / commap / commap.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1998-04-06  |  4.6 KB  |  150 lines
  1. VERSION 5.00
  2. Begin VB.Form Form1 
  3.    Caption         =   "Form1"
  4.    ClientHeight    =   5730
  5.    ClientLeft      =   1140
  6.    ClientTop       =   1515
  7.    ClientWidth     =   5010
  8.    BeginProperty Font 
  9.       Name            =   "Arial"
  10.       Size            =   8.25
  11.       Charset         =   0
  12.       Weight          =   400
  13.       Underline       =   0   'False
  14.       Italic          =   0   'False
  15.       Strikethrough   =   0   'False
  16.    EndProperty
  17.    LinkTopic       =   "Form1"
  18.    PaletteMode     =   1  'UseZOrder
  19.    ScaleHeight     =   5730
  20.    ScaleWidth      =   5010
  21.    Begin VB.CommandButton Reset 
  22.       Caption         =   "Reset"
  23.       BeginProperty Font 
  24.          Name            =   "Arial"
  25.          Size            =   9.75
  26.          Charset         =   0
  27.          Weight          =   400
  28.          Underline       =   0   'False
  29.          Italic          =   0   'False
  30.          Strikethrough   =   0   'False
  31.       EndProperty
  32.       Height          =   375
  33.       Left            =   3600
  34.       TabIndex        =   8
  35.       Top             =   5040
  36.       Width           =   1095
  37.    End
  38.    Begin VB.CommandButton AutoAggregateBlind 
  39.       Caption         =   "COM_INTERFACE_ENTRY_AUTOAGGREGATE_BLIND"
  40.       Height          =   375
  41.       Left            =   240
  42.       TabIndex        =   7
  43.       Top             =   4440
  44.       Width           =   4455
  45.    End
  46.    Begin VB.CommandButton AggregateBlind 
  47.       Caption         =   "COM_INTERFACE_ENTRY_AGGREGATE_BLIND"
  48.       Height          =   375
  49.       Left            =   240
  50.       TabIndex        =   6
  51.       Top             =   3840
  52.       Width           =   4455
  53.    End
  54.    Begin VB.CommandButton AutoAggregate 
  55.       Caption         =   "COM_INTERFACE_ENTRY_AUTOAGGREGATE"
  56.       Height          =   375
  57.       Left            =   240
  58.       TabIndex        =   5
  59.       Top             =   3240
  60.       Width           =   4455
  61.    End
  62.    Begin VB.CommandButton Aggregate 
  63.       Caption         =   "COM_INTERFACE_ENTRY_AGGREGATE"
  64.       Height          =   375
  65.       Left            =   240
  66.       TabIndex        =   4
  67.       Top             =   2640
  68.       Width           =   4455
  69.    End
  70.    Begin VB.CommandButton Chain 
  71.       Caption         =   "COM_INTERFACE_ENTRY_CHAIN"
  72.       Height          =   375
  73.       Left            =   240
  74.       TabIndex        =   3
  75.       Top             =   2040
  76.       Width           =   4455
  77.    End
  78.    Begin VB.CommandButton CachedTearOff 
  79.       Caption         =   "COM_INTERFACE_ENTRY_CACHED_TEAR_OFF"
  80.       Height          =   375
  81.       Left            =   240
  82.       TabIndex        =   2
  83.       Top             =   1440
  84.       Width           =   4455
  85.    End
  86.    Begin VB.CommandButton TearOff 
  87.       Caption         =   "COM_INTERFACE_ENTRY_TEAR_OFF"
  88.       Height          =   375
  89.       Left            =   240
  90.       TabIndex        =   1
  91.       Top             =   840
  92.       Width           =   4455
  93.    End
  94.    Begin VB.CommandButton BtnOffset 
  95.       Caption         =   "COM_INTERFACE_ENTRY"
  96.       Height          =   375
  97.       Left            =   240
  98.       TabIndex        =   0
  99.       Top             =   240
  100.       Width           =   4455
  101.    End
  102. Attribute VB_Name = "Form1"
  103. Attribute VB_GlobalNameSpace = False
  104. Attribute VB_Creatable = False
  105. Attribute VB_PredeclaredId = True
  106. Attribute VB_Exposed = False
  107. Dim x As New COuter
  108. Private Sub Command1_Click()
  109. End Sub
  110. Private Sub BtnReset_Click()
  111. End Sub
  112. Private Sub Offset_Click()
  113. End Sub
  114. Private Sub Label1_Click()
  115. End Sub
  116. Private Sub Aggregate_Click()
  117. Aggregate.Caption = x.GetName(4)
  118. End Sub
  119. Private Sub AggregateBlind_Click()
  120. AggregateBlind.Caption = x.GetName(6)
  121. End Sub
  122. Private Sub AutoAggregate_Click()
  123. AutoAggregate.Caption = x.GetName(5)
  124. End Sub
  125. Private Sub AutoAggregateBlind_Click()
  126. AutoAggregateBlind.Caption = x.GetName(7)
  127. End Sub
  128. Private Sub BtnOffset_Click()
  129. BtnOffset.Caption = x.GetName(0)
  130. End Sub
  131. Private Sub CachedTearOff_Click()
  132. CachedTearOff.Caption = x.GetName(2)
  133. End Sub
  134. Private Sub Chain_Click()
  135. Chain.Caption = x.GetName(3)
  136. End Sub
  137. Private Sub Reset_Click()
  138. BtnOffset.Caption = "COM_INTERFACE_ENTRY"
  139. TearOff.Caption = "COM_INTERFACE_ENTRY_TEAR_OFF"
  140. CachedTearOff.Caption = "COM_INTERFACE_ENTRY_CACHED_TEAR_OFF"
  141. Chain.Caption = "COM_INTERFACE_ENTRY_CHAIN"
  142. Aggregate.Caption = "COM_INTERFACE_ENTRY_AGGREGATE"
  143. AutoAggregate.Caption = "COM_INTERFACE_ENTRY_AUTOAGGREGATE"
  144. AggregateBlind.Caption = "COM_INTERFACE_ENTRY_AGGREGATE_BLIND"
  145. AutoAggregateBlind.Caption = "COM_INTERFACE_ENTRY_AUTOAGGREGATE_BLIND"
  146. End Sub
  147. Private Sub TearOff_Click()
  148. TearOff.Caption = x.GetName(1)
  149. End Sub
  150.