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 (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1998-03-27  |  4.6 KB  |  151 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. Attribute VB_Name = "Form1"
  106. Attribute VB_Creatable = False
  107. Attribute VB_Exposed = False
  108. Dim x As New COuter
  109. Private Sub Command1_Click()
  110. End Sub
  111. Private Sub BtnReset_Click()
  112. End Sub
  113. Private Sub Offset_Click()
  114. End Sub
  115. Private Sub Label1_Click()
  116. End Sub
  117. Private Sub Aggregate_Click()
  118. Aggregate.Caption = x.GetName(4)
  119. End Sub
  120. Private Sub AggregateBlind_Click()
  121. AggregateBlind.Caption = x.GetName(6)
  122. End Sub
  123. Private Sub AutoAggregate_Click()
  124. AutoAggregate.Caption = x.GetName(5)
  125. End Sub
  126. Private Sub AutoAggregateBlind_Click()
  127. AutoAggregateBlind.Caption = x.GetName(7)
  128. End Sub
  129. Private Sub BtnOffset_Click()
  130. BtnOffset.Caption = x.GetName(0)
  131. End Sub
  132. Private Sub CachedTearOff_Click()
  133. CachedTearOff.Caption = x.GetName(2)
  134. End Sub
  135. Private Sub Chain_Click()
  136. Chain.Caption = x.GetName(3)
  137. End Sub
  138. Private Sub Reset_Click()
  139. BtnOffset.Caption = "COM_INTERFACE_ENTRY"
  140. TearOff.Caption = "COM_INTERFACE_ENTRY_TEAR_OFF"
  141. CachedTearOff.Caption = "COM_INTERFACE_ENTRY_CACHED_TEAR_OFF"
  142. Chain.Caption = "COM_INTERFACE_ENTRY_CHAIN"
  143. Aggregate.Caption = "COM_INTERFACE_ENTRY_AGGREGATE"
  144. AutoAggregate.Caption = "COM_INTERFACE_ENTRY_AUTOAGGREGATE"
  145. AggregateBlind.Caption = "COM_INTERFACE_ENTRY_AGGREGATE_BLIND"
  146. AutoAggregateBlind.Caption = "COM_INTERFACE_ENTRY_AUTOAGGREGATE_BLIND"
  147. End Sub
  148. Private Sub TearOff_Click()
  149. TearOff.Caption = x.GetName(1)
  150. End Sub
  151.