nikdelhossein
سه شنبه 11 تیر 1392, 23:18 عصر
سلام دوستان من یک متد ساختم که از یک مشخصه هر بار یکی کم کنه ولی وقتی بار اول کم میکنه دیگه بار دوم مار نمیکنه این هم کل کد هایی که نوشتم لطفا بگین کجاش اشکال داره
این کد هایه کلاسم :
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
این کد هایه کلاسم :
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