Making your own custom event subs

[Cuallito]

How can I create a sub that runs when a variable changes value(without having to check the variable all the time)? Kind of like Form_Load or something.

[kedaman]

You can't. You can though emulate it by using property get/let/set statements.

[Zaei]

Although, if you are making a game, you should have a continuous loop where you can check it every time.

Z.

[Jotaf98]

Put this in a class module called clsPlayer (it's just an example) :

Private pHealth As String

Public Property Let Health(ByVal sData As String)
    pHealth = sData
    'Put here anything else you want to happen when
    'you modify the player's health
End Property

Public Property Get Health() As String
    Health = Health
    'Put here anything else you want to happen when
    'you get the player's health
End Property

To use it, just declare it like this where you would declare the variable:

Dim Player As New clsPlayer

Then, to access it, do it like this:

Player.Health = 100
Temp = Player.Health

Hope that clears everything

[Zaei]

Or you could go overboard, and have every Get/Let create an event... 0.o

Z.

[Jotaf98]

Another approach would be to make a function to return the value of the var, and another to set it.

Dim MyVar As Long

Public Sub SetMyVar(ToWhat As Long)
    MyVar = ToWhat
End Sub

Public Function GetMyVar() As Long
    GetMyVar = MyVar
End Sub

There, it should be simplier and faster than Property Get/Set, but you would have to use these functions instead of Something = MyVar or MyVar = Something...

Oh, and thanks for replying. I like people that say "Thanks dude that works you're great"