home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1997 July & August / Pcwk7897.iso / mgxsuite / abc.z / FIELD.FRM < prev    next >
Text File  |  1996-12-16  |  3KB  |  99 lines
  1. VERSION 4.00
  2. Begin VB.Form Form1 
  3.    Appearance      =   0  'Flat
  4.    BackColor       =   &H80000005&
  5.    Caption         =   "Field Change DEMO"
  6.    ClientHeight    =   2175
  7.    ClientLeft      =   1095
  8.    ClientTop       =   1485
  9.    ClientWidth     =   3780
  10.    BeginProperty Font 
  11.       name            =   "MS Sans Serif"
  12.       charset         =   0
  13.       weight          =   700
  14.       size            =   8.25
  15.       underline       =   0   'False
  16.       italic          =   0   'False
  17.       strikethrough   =   0   'False
  18.    EndProperty
  19.    ForeColor       =   &H80000008&
  20.    Height          =   2580
  21.    Icon            =   "FIELD.frx":0000
  22.    Left            =   1035
  23.    ScaleHeight     =   2175
  24.    ScaleWidth      =   3780
  25.    Top             =   1140
  26.    Width           =   3900
  27.    Begin VB.PictureBox Picture1 
  28.       Appearance      =   0  'Flat
  29.       BackColor       =   &H80000005&
  30.       BorderStyle     =   0  'None
  31.       ForeColor       =   &H80000008&
  32.       Height          =   495
  33.       Left            =   210
  34.       Picture         =   "FIELD.frx":030A
  35.       ScaleHeight     =   495
  36.       ScaleWidth      =   495
  37.       TabIndex        =   2
  38.       Top             =   915
  39.       Width           =   495
  40.    End
  41.    Begin AbcflowLib.ABC ABC1 
  42.       Height          =   495
  43.       Left            =   1440
  44.       TabIndex        =   3
  45.       Top             =   1440
  46.       Width           =   495
  47.       _version        =   65536
  48.       _extentx        =   873
  49.       _extenty        =   873
  50.       _stockprops     =   1
  51.    End
  52.    Begin VB.Label Label3 
  53.       Appearance      =   0  'Flat
  54.       BackColor       =   &H80000005&
  55.       Caption         =   "(c) Micrografx Inc., 1996. All Rights Reserved."
  56.       ForeColor       =   &H80000008&
  57.       Height          =   390
  58.       Left            =   840
  59.       TabIndex        =   1
  60.       Top             =   990
  61.       Width           =   3000
  62.    End
  63.    Begin VB.Label Label1 
  64.       Appearance      =   0  'Flat
  65.       BackColor       =   &H80000005&
  66.       Caption         =   "When this VB program is running, a MessageBox appears naming the changed field and its contents."
  67.       ForeColor       =   &H80000008&
  68.       Height          =   735
  69.       Left            =   240
  70.       TabIndex        =   0
  71.       Top             =   120
  72.       Width           =   3375
  73.    End
  74. End
  75. Attribute VB_Name = "Form1"
  76. Attribute VB_Creatable = False
  77. Attribute VB_Exposed = False
  78. Private Sub ABC1_AppQuitNOTIFY()
  79.     End
  80. End Sub
  81.  
  82. Private Sub ABC1_FieldValueChangedNOTIFY(ByVal FieldValue As Object, ByVal Object As Object, ByVal Chart As Object)
  83.     ABC1.App.MsgBox FieldValue.Name & " has changed to " & FieldValue.FormattedValue & "!"
  84. End Sub
  85.  
  86. Private Sub Form_Load()
  87.     Dim ABCApp As Object
  88.  
  89.     Set ABCApp = CreateObject("ABCFlow.application")
  90.     ABCApp.Visible = True
  91.  
  92.     ABCApp.RegisterEvent ABC1, Form1.Caption, "FieldValueChangedNOTIFY"
  93.     
  94.     ' Get the ABC Quit event so the Menu
  95.     ' sample can unload when ABC Quits
  96.     ABCApp.RegisterEvent ABC1, Form1.Caption, "AppQuitNOTIFY"
  97. End Sub
  98.  
  99.