[RESOLVED] Rising Event in VB6

[vladosfi]

Hello I'm trying to apply the method described in this URL.

The problem is that the events are not implemented in a standard way.

How can you implement the events ?

I have attach a test project for testing!
TestEvents.zip

[Doogle]

Private Sub Form_Load()
    
    Set Complete = New CPerson
    
    Complete.Init "First", "Last"
    
End Sub

[vladosfi]

Private Sub Form_Load()
    
    Set Complete = New CPerson
    
    Complete.Init "First", "Last"
    
End Sub

That's true.
But what if I want to use:

Public Function New_CPerson(FirstName As String, LastName As String, Optional ID As Variant, Optional BirthDate As Variant) As CPerson
        Set New_CPerson = New CPerson
        New_CPerson.Init FirstName, LastName, ID, BirthDate
End Function

And in Form call

Call New_CPerson ("First", "Last")

Then how the Event will be Raised ?

[firoz.raj]

SEE The following way to raise event

public withEvents New_cperson 'this is the way to raise the event
Public Function New_CPerson(FirstName As String, LastName As String, Optional ID As Variant, Optional BirthDate As Variant) As CPerson
        Set New_CPerson = New CPerson
        New_CPerson.Init FirstName, LastName, ID, BirthDate
End Function

And to know more about raising event see the following link .hope it might help.
http://stackoverflow.com/questions/1...n-event-in-vb6
http://www.developer.com/net/vb/arti...al-Basic-6.htm

[vladosfi]

Thanks !