home *** CD-ROM | disk | FTP | other *** search
/ Mastering Microsoft Visual Basic 5 / Mastering Microsoft Visual Basic 5.ISO / demo code / ch05 / callback / form1.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1997-01-06  |  2.8 KB  |  95 lines
  1. VERSION 5.00
  2. Begin VB.Form Form1 
  3.    Caption         =   "Providing Callbacks"
  4.    ClientHeight    =   3150
  5.    ClientLeft      =   60
  6.    ClientTop       =   345
  7.    ClientWidth     =   5760
  8.    LinkTopic       =   "Form1"
  9.    ScaleHeight     =   3150
  10.    ScaleWidth      =   5760
  11.    StartUpPosition =   3  'Windows Default
  12.    Begin VB.TextBox Text1 
  13.       Height          =   315
  14.       Left            =   4140
  15.       TabIndex        =   8
  16.       Text            =   "A Text Box"
  17.       Top             =   2625
  18.       Width           =   1245
  19.    End
  20.    Begin VB.ListBox List1 
  21.       Height          =   1650
  22.       Left            =   150
  23.       TabIndex        =   5
  24.       Top             =   1290
  25.       Width           =   2655
  26.    End
  27.    Begin VB.Frame Frame1 
  28.       Caption         =   "Frame1"
  29.       Height          =   2325
  30.       Left            =   3240
  31.       TabIndex        =   1
  32.       Top             =   150
  33.       Width           =   2175
  34.       Begin VB.OptionButton Option1 
  35.          Caption         =   "Option1"
  36.          Height          =   525
  37.          Left            =   360
  38.          TabIndex        =   4
  39.          Top             =   300
  40.          Width           =   1245
  41.       End
  42.       Begin VB.OptionButton Option2 
  43.          Caption         =   "Option2"
  44.          Height          =   525
  45.          Left            =   360
  46.          TabIndex        =   3
  47.          Top             =   960
  48.          Width           =   1245
  49.       End
  50.       Begin VB.OptionButton Option3 
  51.          Caption         =   "Option3"
  52.          Height          =   525
  53.          Left            =   360
  54.          TabIndex        =   2
  55.          Top             =   1590
  56.          Width           =   1245
  57.       End
  58.    End
  59.    Begin VB.CommandButton cmdEnum 
  60.       Cancel          =   -1  'True
  61.       Caption         =   "&Click Here to Enumerate Child Windows"
  62.       Default         =   -1  'True
  63.       Height          =   765
  64.       Left            =   570
  65.       TabIndex        =   0
  66.       Top             =   150
  67.       Width           =   1755
  68.    End
  69.    Begin VB.Label Label2 
  70.       Caption         =   "A Label"
  71.       Height          =   255
  72.       Left            =   3240
  73.       TabIndex        =   7
  74.       Top             =   2685
  75.       Width           =   765
  76.    End
  77.    Begin VB.Label Label1 
  78.       Caption         =   "Child Window Captions"
  79.       Height          =   255
  80.       Left            =   210
  81.       TabIndex        =   6
  82.       Top             =   1020
  83.       Width           =   2385
  84.    End
  85. Attribute VB_Name = "Form1"
  86. Attribute VB_GlobalNameSpace = False
  87. Attribute VB_Creatable = False
  88. Attribute VB_PredeclaredId = True
  89. Attribute VB_Exposed = False
  90. Option Explicit
  91. Private Sub cmdEnum_Click()
  92.   Dim bRtn As Boolean
  93.   bRtn = EnumChildWindows(Form1.hwnd, AddressOf EnumFunc, 0)
  94. End Sub
  95.