static as integer

[sey]

 Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Dim i As Integer
        Static h As Integer
        
        '***********handles collision with a rock, tree, skier********
        If contact = "hit" Then h = h + 1
        If h = 15 Then
            imgOuch.Visible = False
        End If
        If h > 14 Then
            contact = ""
            h = 0
            imgOuch.Visible = False
        End If

For what does "static as integer" stand for. And how can I use "static"? Whats the difference between "dim" and "static"?

 

[Ruddles]

Used when you want a local variable to retain its value after the procedure in which it's declared has ended.

http://msdn.microsoft.com/en-us/library/z2cty7t8(v=vs.80).aspx

 

[sey]

Thank you very much for the information!

Used when you want a local variable to retain its value after the procedure in which it's declared has ended.

http://msdn.microsoft.com/en-us/library/z2cty7t8(v=vs.80).aspx

 

[RSXchin]

How do I get the variable to be shared to a function (without overtly passing it)?

for example, I'm using "i" in a loop in my sub and I call a function that I want to also use the same "i".

 

[RoryA]

Why don't you want to pass it? That's the best way, as a rule.

 

[RSXchin]

I'm just seeing if I can. It tends to look cleaner though.

 

[RoryA]

If they are both in the same module, declare the variable at module level only.

 

[RSXchin]

how do I do that? Like this? (really lame example)

dim i as integer
sub something()
    i = 1
    msgbox (lame) 
end sub
function lame() as string
    lame = i + 5
end function

 

[RoryA]

Yep.