home *** CD-ROM | disk | FTP | other *** search
/ Tricks of the Windows Gam…ming Gurus (2nd Edition) / Disc2.iso / msdn_vcb / samples / vc98 / atl / commap / commap.frm < prev    next >
Text File  |  1998-03-26  |  5KB  |  175 lines
  1. VERSION 4.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.       charset         =   0
  11.       weight          =   400
  12.       size            =   8.25
  13.       underline       =   0   'False
  14.       italic          =   0   'False
  15.       strikethrough   =   0   'False
  16.    EndProperty
  17.    Height          =   6135
  18.    Left            =   1080
  19.    LinkTopic       =   "Form1"
  20.    ScaleHeight     =   5730
  21.    ScaleWidth      =   5010
  22.    Top             =   1170
  23.    Width           =   5130
  24.    Begin VB.CommandButton Reset 
  25.       Caption         =   "Reset"
  26.       BeginProperty Font 
  27.          name            =   "Arial"
  28.          charset         =   0
  29.          weight          =   400
  30.          size            =   9.75
  31.          underline       =   0   'False
  32.          italic          =   0   'False
  33.          strikethrough   =   0   'False
  34.       EndProperty
  35.       Height          =   375
  36.       Left            =   3600
  37.       TabIndex        =   8
  38.       Top             =   5040
  39.       Width           =   1095
  40.    End
  41.    Begin VB.CommandButton AutoAggregateBlind 
  42.       Caption         =   "COM_INTERFACE_ENTRY_AUTOAGGREGATE_BLIND"
  43.       Height          =   375
  44.       Left            =   240
  45.       TabIndex        =   7
  46.       Top             =   4440
  47.       Width           =   4455
  48.    End
  49.    Begin VB.CommandButton AggregateBlind 
  50.       Caption         =   "COM_INTERFACE_ENTRY_AGGREGATE_BLIND"
  51.       Height          =   375
  52.       Left            =   240
  53.       TabIndex        =   6
  54.       Top             =   3840
  55.       Width           =   4455
  56.    End
  57.    Begin VB.CommandButton AutoAggregate 
  58.       Caption         =   "COM_INTERFACE_ENTRY_AUTOAGGREGATE"
  59.       Height          =   375
  60.       Left            =   240
  61.       TabIndex        =   5
  62.       Top             =   3240
  63.       Width           =   4455
  64.    End
  65.    Begin VB.CommandButton Aggregate 
  66.       Caption         =   "COM_INTERFACE_ENTRY_AGGREGATE"
  67.       Height          =   375
  68.       Left            =   240
  69.       TabIndex        =   4
  70.       Top             =   2640
  71.       Width           =   4455
  72.    End
  73.    Begin VB.CommandButton Chain 
  74.       Caption         =   "COM_INTERFACE_ENTRY_CHAIN"
  75.       Height          =   375
  76.       Left            =   240
  77.       TabIndex        =   3
  78.       Top             =   2040
  79.       Width           =   4455
  80.    End
  81.    Begin VB.CommandButton CachedTearOff 
  82.       Caption         =   "COM_INTERFACE_ENTRY_CACHED_TEAR_OFF"
  83.       Height          =   375
  84.       Left            =   240
  85.       TabIndex        =   2
  86.       Top             =   1440
  87.       Width           =   4455
  88.    End
  89.    Begin VB.CommandButton TearOff 
  90.       Caption         =   "COM_INTERFACE_ENTRY_TEAR_OFF"
  91.       Height          =   375
  92.       Left            =   240
  93.       TabIndex        =   1
  94.       Top             =   840
  95.       Width           =   4455
  96.    End
  97.    Begin VB.CommandButton BtnOffset 
  98.       Caption         =   "COM_INTERFACE_ENTRY"
  99.       Height          =   375
  100.       Left            =   240
  101.       TabIndex        =   0
  102.       Top             =   240
  103.       Width           =   4455
  104.    End
  105. End
  106. Attribute VB_Name = "Form1"
  107. Attribute VB_Creatable = False
  108. Attribute VB_Exposed = False
  109. Dim x As New COuter
  110.  
  111. Private Sub Command1_Click()
  112.  
  113. End Sub
  114.  
  115.  
  116. Private Sub BtnReset_Click()
  117.  
  118. End Sub
  119.  
  120. Private Sub Offset_Click()
  121.  
  122. End Sub
  123.  
  124.  
  125. Private Sub Label1_Click()
  126.  
  127. End Sub
  128.  
  129.  
  130. Private Sub Aggregate_Click()
  131. Aggregate.Caption = x.GetName(4)
  132. End Sub
  133.  
  134. Private Sub AggregateBlind_Click()
  135. AggregateBlind.Caption = x.GetName(6)
  136. End Sub
  137.  
  138. Private Sub AutoAggregate_Click()
  139. AutoAggregate.Caption = x.GetName(5)
  140. End Sub
  141.  
  142. Private Sub AutoAggregateBlind_Click()
  143. AutoAggregateBlind.Caption = x.GetName(7)
  144. End Sub
  145.  
  146. Private Sub BtnOffset_Click()
  147. BtnOffset.Caption = x.GetName(0)
  148. End Sub
  149.  
  150.  
  151. Private Sub CachedTearOff_Click()
  152. CachedTearOff.Caption = x.GetName(2)
  153. End Sub
  154.  
  155. Private Sub Chain_Click()
  156. Chain.Caption = x.GetName(3)
  157. End Sub
  158.  
  159. Private Sub Reset_Click()
  160. BtnOffset.Caption = "COM_INTERFACE_ENTRY"
  161. TearOff.Caption = "COM_INTERFACE_ENTRY_TEAR_OFF"
  162. CachedTearOff.Caption = "COM_INTERFACE_ENTRY_CACHED_TEAR_OFF"
  163. Chain.Caption = "COM_INTERFACE_ENTRY_CHAIN"
  164. Aggregate.Caption = "COM_INTERFACE_ENTRY_AGGREGATE"
  165. AutoAggregate.Caption = "COM_INTERFACE_ENTRY_AUTOAGGREGATE"
  166. AggregateBlind.Caption = "COM_INTERFACE_ENTRY_AGGREGATE_BLIND"
  167. AutoAggregateBlind.Caption = "COM_INTERFACE_ENTRY_AUTOAGGREGATE_BLIND"
  168. End Sub
  169.  
  170. Private Sub TearOff_Click()
  171. TearOff.Caption = x.GetName(1)
  172. End Sub
  173.  
  174.  
  175.