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

ادخال قيمة بشكل معين في الداتا غريد فيو

بدأه صاحبة السمو في 7 يوليو 2008 · 3 رد · 752 مشاهدة · في Microsoft Visual Basic.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

اخواني الكرام

كيف يمكنني ان اجعل عامود في الداتا غريد فيو لا يقبل الادخال غير بالصيغه التاليه

hh:mm tt

اي صيغة الوقت على نظام 12 ساعة

انا جربت وكتبت في خصائص العامود الكود التالي

.ValueType = GetType(Date)

ولكن المطلوب حين يدخل القيمه لا يجعلة يقبل

بينما الكود السابق فهو يتحصص من القيمة بعد الادخال

1145392391.gif
#2

لعل هذا الملف المرفق يحقق رغبتك

يمكنك انشاء عمود من نوع custom واستخدام ال mask

DataGridViewCustomColumn.zip

<span style='color:green'>سؤل ابن عباس عن علمه كيف جمعه فقال :( أوتيت لسانا سؤولا وقلبا عقولا)</span>

#3

السلام عليكم يعطيك العافية اخوي

ولكن للاسف لم استطيع ان استخرج المطلوب ....... نظام وقت 12 ساعه

ولكن انا كنت استخدم كود مشابة من قبل وهو التالي

 Private Sub dataGridView1_EditingControlShowing(ByVal sender As Object, ByVal e As DataGridViewEditingControlShowingEventArgs) _
				Handles DataGridView1.EditingControlShowing
		Dim txtEdit As TextBox = CType(e.Control, TextBox)
		'remove any existing handler
		RemoveHandler txtEdit.KeyPress, AddressOf txtEdit_Keypress
		AddHandler txtEdit.KeyPress, AddressOf txtEdit_Keypress
	End Sub
	Private Sub txtEdit_Keypress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs)
		'Try
		Dim txt As TextBox = CType(sender, TextBox)
		Select Case DataGridView1.CurrentCell.ColumnIndex
			Case 2, 3
				If IsNumeric(e.KeyChar.ToString()) _
				Or e.KeyChar = ChrW(Keys.Back) _
				Or e.KeyChar = "." _
				Or e.KeyChar = "-" Then
					If e.KeyChar = "." Then
						If InStr(txt.Text, ".") <> 0 Then
							Console.WriteLine("One Dicemail Only")
							e.Handled = True
						End If
					End If
					If e.KeyChar = "-" Then	' Minus
						If InStr(txt.Text, "-") <> 0 Then
							e.Handled = True
						Else
							txt.Text = txt.Text.Insert(0, "-")
							txt.Select(txt.Text.Length, 0)
							e.Handled = True
						End If
					End If
					If InStr(txt.Text, ".") <> 0 And IsNumeric(e.KeyChar.ToString()) Then
						Dim pos As Integer = txt.Text.IndexOf(".")
						If txt.Text.Length > pos + 2 Then
							e.Handled = True
						End If
					End If
					Console.WriteLine("KeyPress number")
				Else
					Console.WriteLine("Enter Numbers Only")
					e.Handled = True 'if non numeric don't display
				End If
		End Select
		'Catch ex As Exception

		'End Try
	End Sub

ولكن للاسف لم استطيع تحويله لكي يقبل الوقت بصيغة 12 ساعه (مثال 05:45 pm(

لذلك ارجو المساعده ياخوان

1145392391.gif
#4

هل يوجد حل لهذه المشكلة

1145392391.gif

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

عدد الزوار حالياً

المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

جارٍ التحقق من المتواجدين…