Preserving a Variable's Values between Procedure Calls in VB.net
By: Steven Holzner in VB.net Tutorials on 2010-11-17
You've written a function named Counter to keep track of the number of times the user clicks a particular button. Each time through a loop, you call the Counter function to increment the count, but when the program ends, it just displays 0 counts. Why? Let's look at the code:
Module Module1
Sub Main()
Dim intLoopIndex As Integer, intValue = 0
For intLoopIndex = 0 To 4
intValue = Counter()
Next intLoopIndex
System.Console.WriteLine(intValue)
End Sub
Function Counter() As Integer
Dim intCountValue As Integer
intCountValue += 1
Return intCountValue
End Function
End Module
The problem here is that the counter variable, intCountValue, in the Counter function is reinitialized each time the Counter function is called (because a new copy of all the variables local to procedures is allocated each time you call that procedure). The solution is to declare intCountValue as static. This means it will retain its value between calls to the Counter function. Here's the working code:
Module Module1
Sub Main()
Dim intLoopIndex As Integer, intValue = 0
For intLoopIndex = 0 To 4
intValue = Counter()
Next intLoopIndex
System.Console.WriteLine(intValue)
End Sub
Function Counter() As Integer
Static intCountValue As Integer
intCountValue += 1
Return intCountValue
End Function
End Module
Running this code displays a value of 5, as it should.
| Tip |
You can also make intCountValue preserve its value between procedure calls by making it a module-level variable-just declare it outside any procedure. But note that you should restrict the scope of your variables as much as possible (to avoid inadvertent conflicts with variables of the same name), so making this variable a static variable in a procedure is probably a better choice. |
| Note |
You were able to declare a whole function static in VB6, which meant that all the variables in it would be static, but you can't do that in VB .NET. |
Add Comment
This policy contains information about your privacy. By posting, you are declaring that you understand this policy:
- Your name, rating, website address, town, country, state and comment will be publicly displayed if entered.
- Aside from the data entered into these form fields, other stored data about your comment will include:
- Your IP address (not displayed)
- The time/date of your submission (displayed)
- Your email address will not be shared. It is collected for only two reasons:
- Administrative purposes, should a need to contact you arise.
- To inform you of new comments, should you subscribe to receive notifications.
- A cookie may be set on your computer. This is used to remember your inputs. It will expire by itself.
This policy is subject to change at any time and without notice.
These terms and conditions contain rules about posting comments. By submitting a comment, you are declaring that you agree with these rules:
- Although the administrator will attempt to moderate comments, it is impossible for every comment to have been moderated at any given time.
- You acknowledge that all comments express the views and opinions of the original author and not those of the administrator.
- You agree not to post any material which is knowingly false, obscene, hateful, threatening, harassing or invasive of a person's privacy.
- The administrator has the right to edit, move or remove any comment for any reason and without notice.
Failure to comply with these rules may result in being banned from submitting further comments.
These terms and conditions are subject to change at any time and without notice.
- Data Science
- Android
- React Native
- AJAX
- ASP.net
- C
- C++
- C#
- Cocoa
- Cloud Computing
- HTML5
- Java
- Javascript
- JSF
- JSP
- J2ME
- Java Beans
- EJB
- JDBC
- Linux
- Mac OS X
- iPhone
- MySQL
- Office 365
- Perl
- PHP
- Python
- Ruby
- VB.net
- Hibernate
- Struts
- SAP
- Trends
- Tech Reviews
- WebServices
- XML
- Certification
- Interview
categories
Related Tutorials
Changes in Controls from VB6 to VB.net
Throwing a Custom Exception in VB.net
Throwing an Exception in VB.net
Using Multiple Catch Statements in VB.net
Exception Filtering in the Catch Block in VB.net
Raising an Exception Intentionally in VB.net
Getting an Exception's Number and Description in VB.net
Using On Error GoTo 0 in VB.net
Using Resume Next and Resume Line in VB.net
Preserving a Variable's Values between Procedure Calls in VB.net
Specifying Optional Arguments with default values in Procedures in VB.net
Comments