home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic 4 Power Pack / Visual_Basic4_Power_Pack.bin / vb4files / dbawarco / intro.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1996-11-20  |  2.4 KB  |  83 lines
  1. VERSION 4.00
  2. Begin VB.Form Intro 
  3.    Caption         =   "DataAwareCollection - Supporting an Integrated OO Architecture for VB4"
  4.    ClientHeight    =   2595
  5.    ClientLeft      =   255
  6.    ClientTop       =   855
  7.    ClientWidth     =   7470
  8.    Height          =   3000
  9.    Left            =   195
  10.    LinkTopic       =   "Form2"
  11.    ScaleHeight     =   2595
  12.    ScaleWidth      =   7470
  13.    Top             =   510
  14.    Width           =   7590
  15.    Begin VB.CommandButton Command3 
  16.       Cancel          =   -1  'True
  17.       Caption         =   "Cancel"
  18.       Height          =   375
  19.       Left            =   5520
  20.       TabIndex        =   4
  21.       Top             =   2160
  22.       Width           =   1815
  23.    End
  24.    Begin VB.CommandButton Command2 
  25.       Caption         =   "Begin Demo"
  26.       Height          =   375
  27.       Left            =   2880
  28.       TabIndex        =   3
  29.       Top             =   2160
  30.       Width           =   1815
  31.    End
  32.    Begin VB.CommandButton Command1 
  33.       Caption         =   "Create Demo Objects"
  34.       Height          =   375
  35.       Left            =   120
  36.       TabIndex        =   2
  37.       Top             =   2160
  38.       Width           =   1815
  39.    End
  40.    Begin VB.Label Label3 
  41.       Caption         =   $"Intro.frx":0000
  42.       Height          =   615
  43.       Left            =   120
  44.       TabIndex        =   5
  45.       Top             =   840
  46.       Width           =   7335
  47.    End
  48.    Begin VB.Label Label2 
  49.       Caption         =   $"Intro.frx":012B
  50.       Height          =   495
  51.       Left            =   120
  52.       TabIndex        =   1
  53.       Top             =   1560
  54.       Width           =   7335
  55.    End
  56.    Begin VB.Label Label1 
  57.       Caption         =   $"Intro.frx":01B2
  58.       Height          =   615
  59.       Left            =   120
  60.       TabIndex        =   0
  61.       Top             =   120
  62.       Width           =   7335
  63.    End
  64. Attribute VB_Name = "Intro"
  65. Attribute VB_Creatable = False
  66. Attribute VB_Exposed = False
  67. Option Explicit
  68. Private Sub Command1_Click()
  69.     Me.MousePointer = vbArrowHourglass
  70.     CreateTestData
  71.     Me.MousePointer = vbArrow
  72.     Command2.SetFocus
  73. End Sub
  74. Private Sub Command2_Click()
  75.     Me.MousePointer = vbArrowHourglass
  76.     publicCompany.Persons.Refresh
  77.     CustomersAndAddresses.Show
  78.     Me.MousePointer = vbArrow
  79. End Sub
  80. Private Sub Command3_Click()
  81.     End
  82. End Sub
  83.