home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic 4 Power Pack / Visual_Basic4_Power_Pack.bin / vb4files / vbof / demoemsg.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1996-11-20  |  4.2 KB  |  131 lines
  1. VERSION 4.00
  2. Begin VB.Form EventMessages 
  3.    Caption         =   "Event Messages"
  4.    ClientHeight    =   2235
  5.    ClientLeft      =   1200
  6.    ClientTop       =   3750
  7.    ClientWidth     =   8385
  8.    Height          =   2640
  9.    Left            =   1140
  10.    LinkTopic       =   "Form1"
  11.    ScaleHeight     =   2235
  12.    ScaleWidth      =   8385
  13.    Top             =   3405
  14.    Width           =   8505
  15.    Begin VB.ListBox lbMessages 
  16.       Height          =   1620
  17.       Left            =   120
  18.       TabIndex        =   1
  19.       Top             =   120
  20.       Width           =   8175
  21.    End
  22.    Begin VB.CommandButton pbOK 
  23.       Caption         =   "OK"
  24.       Default         =   -1  'True
  25.       Height          =   375
  26.       Left            =   7080
  27.       TabIndex        =   0
  28.       Top             =   1800
  29.       Width           =   1215
  30.    End
  31. Attribute VB_Name = "EventMessages"
  32. Attribute VB_Creatable = False
  33. Attribute VB_Exposed = False
  34. Option Explicit
  35. Public ObjectManager As VBOFObjectManager
  36. Private pvtCustomerNumber As Long
  37. Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
  38.     ObjectManager.Form_QueryUnload _
  39.         Me
  40. #If NoEventMgr = False Then
  41.     ObjectManager. _
  42.         UnRegisterForAllEvents _
  43.         RegisterObject:=Me
  44. #End If
  45. End Sub
  46. Private Sub EvaluateAddress(Optional Object As Variant)
  47.     On Local Error Resume Next
  48.     If InStr(UCase$(Object.Line1), "SUITE") = 0 _
  49.     And InStr(UCase$(Object.Line2), "SUITE") = 0 _
  50.     And InStr(UCase$(Object.Line3), "SUITE") = 0 _
  51.     Then
  52.         lbMessages.AddItem "Is there a Suite at the address?", 0
  53.         Me.Show
  54.     End If
  55. End Sub
  56. Private Sub EvaluatePerson(Optional Object As Variant)
  57.     On Local Error Resume Next
  58.     If Object.Age < 20 Then
  59.         lbMessages.AddItem "Discuss Customer's Auto Insurance", 0
  60.         Me.Show
  61.     ElseIf Object.Age < 30 Then
  62.         lbMessages.AddItem "Discuss Customer's Retirement", 0
  63.         Me.Show
  64.     Else
  65.         lbMessages.AddItem "Discuss Customer's Life Insurance", 0
  66.         Me.Show
  67.     End If
  68. End Sub
  69. Private Sub EvaluatePhone(Optional Object As Variant)
  70.     On Local Error Resume Next
  71.     If Len(Object.PhoneNumber) <= 0 Then
  72.         Exit Sub
  73.     ElseIf Len(Object.PhoneNumber) < 7 Then
  74.         lbMessages.AddItem "Huh?  Are you on the right field?  Hello?  Try entering a phone number next time!", 0
  75.         lbMessages.ListIndex = 0
  76.         Me.Show
  77.     ElseIf Len(Object.PhoneNumber) < 8 Then
  78.         lbMessages.AddItem "Is there an Area Code? (It appears all you gathered was the main phone number)", 0
  79.         lbMessages.ListIndex = 0
  80.         Me.Show
  81.     ElseIf Len(Object.PhoneNumber) > 10 Then
  82.         lbMessages.AddItem "Is this a phone number or the distance to Alpha Sentauri? What kind of phone number is this?", 0
  83.         lbMessages.ListIndex = 0
  84.         Me.Show
  85.     End If
  86. End Sub
  87. Private Sub Form_Load()
  88.     Me.Hide
  89.     pvtCustomerNumber = -1
  90. #If NoEventMgr = False Then
  91.     ObjectManager.RegisterForObjectEvent _
  92.         TriggerObjectType:="Person", _
  93.         TriggerEvent:="Changed", _
  94.         RegisterObject:=Me
  95.     ObjectManager.RegisterForObjectEvent _
  96.         TriggerObjectType:="Address", _
  97.         TriggerEvent:="Changed", _
  98.         RegisterObject:=Me
  99.     ObjectManager.RegisterForObjectEvent _
  100.         TriggerObjectType:="Phone", _
  101.         TriggerEvent:="Changed", _
  102.         RegisterObject:=Me
  103. #End If
  104. End Sub
  105. Public Sub ObjectEventCallBack(Optional Event As Variant, Optional Object As Variant)
  106.     Dim tempObjectType As String
  107.     On Local Error Resume Next
  108.     tempObjectType = TypeName(Object)
  109.     If tempObjectType = "Person" Then
  110.         If pvtCustomerNumber <> Object.CustomerNumber Then
  111.             lbMessages.Clear
  112.             pvtCustomerNumber = Object.CustomerNumber
  113.         End If
  114.     End If
  115.     If tempObjectType = "Person" Then
  116.         EvaluatePerson _
  117.             Object:=Object
  118.     End If
  119.     If tempObjectType = "Address" Then
  120.         EvaluateAddress _
  121.             Object:=Object
  122.     End If
  123.     If tempObjectType = "Phone" Then
  124.         EvaluatePhone _
  125.             Object:=Object
  126.     End If
  127. End Sub
  128. Private Sub pbOK_Click()
  129.     Me.Hide
  130. End Sub
  131.