كتابة ارقام فقط داخل الداتا جريد

مشكور اخوي و جزاك الله كل الخير لقد قمت بعمل نفس حلك في وقت سابق و انت احسن مني لانك تريد نشر المعلومة و تعميم الفائدة

لذلك شكرا لك لنشر العلم

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

ياجماعة الكود بيشتعل علي كل العواميد في الداتا جريد

ازاي يكون عمود رقم واحد فقط

السلام عليكم

جميل جدا هذا الكود

وفكرت في فكرة بسيطة لطلبكم وهو تنفيذ الكود اللي بداخل حدث ال KeyPress بشرط معين (وهو رقم العمود المطلوب كتابة ارقام به)

اولا قوموا بتعريف متغير عام على مستوى الكلاس

Dim columnIndex As Integer

ثم في حدث الEditingControlShowing للجردة قوموا بتحدي رقم العمود اللي اليوزر داس عليه هكذا

columnIndex = DataGridView1.CurrentCell.ColumnIndex

وباقي الكود كما هو في هذا الحدث يعني الكود بالكامل في الحدث هايكون هكذا

 Private Sub DataGridView1_EditingControlShowing(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewEditingControlShowingEventArgs) Handles DataGridView1.EditingControlShowing
		columnIndex = DataGridView1.CurrentCell.ColumnIndex
		Dim TextEdit As TextBox = e.Control
		RemoveHandler TextEdit.KeyPress, AddressOf TextBox1_KeyPress
		AddHandler TextEdit.KeyPress, AddressOf TextBox1_KeyPress
	End Sub

اما في حدث الKeyPress للتيكست قوموا بفحص انهي عمود المستخدم اختاره هكذا

 Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
		Select Case columnIndex
			Case 0
				Dim KeyAscii As Short = Asc(e.KeyChar)
				If KeyAscii = 8 Then KeyAscii = 8 : Exit Sub
				If KeyAscii <= 47 Or KeyAscii > 57 Then KeyAscii = 0
				If KeyAscii = 0 Then
					e.Handled = True
				End If

		End Select
	End Sub

وبس

وبالتوفيق ...