مشکل در کار با متد ها

[nikdelhossein]

سلام دوستان من یک متد ساختم که از یک مشخصه هر بار یکی کم کنه ولی وقتی بار اول کم میکنه دیگه بار دوم مار نمیکنه این هم کل کد هایی که نوشتم لطفا بگین کجاش اشکال داره
این کد هایه کلاسم :

Public Class kot_daman
Private mTedadKotDaman As Integer
Public Property TedadKotDaman() As Integer
Get
Return mTedadKotDaman
End Get
Set(ByVal value As Integer)
mTedadKotDaman = value
End Set
End Property
Dim mMeghdarPool As Integer
Public Property MeghdarPool() As Integer
Get
Return mMeghdarPool
End Get
Set(ByVal value As Integer)
mMeghdarPool = value
End Set
End Property
Public Sub Froosh()
TedadKotDaman = TedadKotDaman - 1
mMeghdarPool = mMeghdarPool + 70000
End Sub


End Class

واین هم کد های فرمم :


Private Sub Label5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label5.Click
Dim t As New kot_daman
t.TedadKotDaman = Label2.Text
t.Froosh()
TextBox2.Text = t.TedadKotDaman
TextBox3.Text = t.MeghdarPool




End Sub

[milad.biroonvand]

بخاطر این کم نمیشه که تو در هربار داری یک نمونه جدید از class میگیری و در اصل با هر بار کلیک ، نمونه گرفته شده نابود میشه و از حافظه پاک میشه . این کاری که انجام دادی اشتباهه . برای اینکار میتونی نمونه گرفته شده رو بصورت public تعریف کنی. و در هر بار از کد Dim t As New kot_daman استفاده نکنی .