Example “Counting”:

 

This example shows how one VB program, called HANS, creates a variable with the name “EdelweissFound” and constantly increments it using a timer.

A second VB program, called KARL, creates the same variable. Using the ‘WithEvents’ statement KARL installs an event handler for the variable. This allows KARL to be notified whenever the value of the variable changes. Every time HANS increments the “EdelweissFound” variable, KARL’s MyCounter_Changed() event handler is executed and the value of the “EdelweissFound” variable is displayed.

 

Program HANS:

Dim Create As New beWISE.Functions 'REQUIRED definition

Dim MyCounter As beWISE.var_INTEGER

 

Private Sub Form_Load()

    Set MyCounter = Create.New_var_INTEGER("EdelweissFound")

End Sub

 

Private Sub Increment_Timer()

    MyCounter.Value = MyCounter.Value + 1

End Sub

 

 

Program KARL:

Dim Create As New beWISE.Functions 'REQUIRED definition

Dim WithEvents MyCounter As beWISE.var_INTEGER

 

Private Sub Form_Load()

    Set MyCounter = Create.New_var_INTEGER("EdelweissFound")

End Sub

 

Private Sub MyCounter_Changed()

    EdelwiseLabel.Caption = Format(MyCounter.Value, "#####0")

End Sub

 

HANS can talk to all of KARL’s twin brothers at the same time. I.e. you can start KARL.exe as many times as you want. Each instance will receive its separate ‘Changed’ event and display the correct “EdelweissFound” counter.

www.edelwise.com

This product allows you to share 1 (one) variable of type LONG among your VB6 programs. If you just want to synchronize different VB6 applications during runtime, then this is all you need.

Product Summary

download product

FREE

Other useful links:  product FAQ    product comparison chart    product licensing

The Essential Resource for Visual Basic Developers

Home | beWISE Features | VB6 Products | VB.NET Products | Tools | FAQ | Project List | User Forum | Legal | About Us

documentation for this product