الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

كيفية عمل عملية جمع

بدأه المدلهم في 18 فبراير 2009 · 4 رد · 713 مشاهدة · في Microsoft Visual Basic.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

أخواني

السلام عليكم و رحمة الله و بركاته

لنعتبر عندي خانة اسمها المجموع

و عندي خانات من 1 إلى 5 و اريد جمع القيم في خانة المجموع شريطة إذا تم التغيير في اي خانة يتغير خانة المجموع تلقائيا

ارجو مساعدتي عاجلا

#2

ماذا تقصد بـخانات؟ مربع نص او عمود في DataGrid او ماذا بالضبط؟

[وسط]لا اله الا انت سبحانك انى كنت من الظالمين

[/وسط]

#3

شكرا لردك السريع أخي

أقصد textbox

#4

هذا هو الكود

Public Class frmSumTextBox

	Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged, TextBox5.TextChanged, TextBox4.TextChanged, TextBox3.TextChanged, TextBox2.TextChanged
		txtTotal.Text = GetTotal()
	End Sub

	Public Function GetTotal() As Decimal
		Dim result As Decimal
		result = GetNumber(TextBox1.Text) _
		+ GetNumber(TextBox2.Text) _
		+ GetNumber(TextBox3.Text) _
		+ GetNumber(TextBox4.Text) _
		+ GetNumber(TextBox5.Text)
		Return result
	End Function

	Public Function GetNumber(ByVal text As String) As Decimal

		Try
			If String.IsNullOrEmpty(text) Then
				Return 0
			End If
			Return Decimal.Parse(text)
		Catch ex As Exception

		End Try
		Return 0
	End Function
End Class

[وسط]لا اله الا انت سبحانك انى كنت من الظالمين

[/وسط]

#5

جزاك الله خير

مواضيع مشابهة