题记:写这篇博客要主是加深自己对共享变量类的认识和总结实现算法时的一些验经和训教,如果有错误请指出,万分感谢。
同享方法
Public Class Math
Shared Function Add(ByVal a As Integer, ByVal b As Integer) As Integer
Return a + b
End Function
End Class
我们可以不必实例化一个Math对象,就能够访问,代码如下:Dim result As Integer
result = Math.Add(5, 10)
Dim infile As StreamReader = File.OpenText(words.txt) Dim strIn As String str = infile.ReadLine()
同享变量:
Public Class MyCounter Private Shared mintCount As Integer End Class
Public Class MyCounter Private Shared mintCount As Integer Public Sub New() mintCount += 1 End Sub Public ReadOnly Property Count() As Integer Get Return mintCount End Get End Property End Class
Protected Sub Button4_Click(ByVal sender As Object, _
ByVal e As System.EventArgs)
Dim obj As MyCounter
obj = New MyCounter()
obj = New MyCounter()
obj = New MyCounter()
MsgBox(obj.Count, MsgBoxStyle.Information,counter)
End Sub
如果我们再次运行这段程序,将可以得到6、9等等。只要我们的应用程序继承运行计数器就保持有效,也就是说一旦我们结束应用程序计数器就不再起作用。 这项计数对于服务器的处置过程是非常有效的,因为它可以省力地不停地进行计数。这个数值只有在处置过程重新开始地时候才被复位。 全局变量
Public Class TheClass
Public Shared MyGlobal As Integer
End Class
我们可以在客户代码中使用这个变量。 TheClass.MyGlobal += 5
这个变量将在我们应用程序的任何地方都是有效的,它供给了一个很好的机理来在组件、类、模块等等之间来同享数值。
这是我根据自己的需求从网上查询了一些资料,并进行了整理,望读者批评指正
文章结束给大家分享下程序员的一些笑话语录:
据说有一位软件工程师,一位硬件工程师和一位项目经理同坐车参加研讨会。不幸在从盘山公路下山时坏在半路上了。于是两位工程师和一位经理就如何修车的问题展开了讨论。
---------------------------------
原创文章 By |
|