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

حول اداة DateTimePicker1

مغلق
بدأه صاحبة السمو في 20 فبراير 2007 · 9 رد · 1,100 مشاهدة · في Microsoft Visual Basic.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

اء

عندي سوالين حول اداة DateTimePicker

اول سوال كيف اجعل القيمه الابتدائيه لهده الاداه لا شي

يعني اول ما يفتح الفريم ما يكوت فيها اي قيمه

ثاني سوال انا عامله كود انه ادا كان في هده الاداة وكبس انتر ينتقل الى الاداة التى بعدها يعني مثل التاب بس لما يضغط انتر

المشكله انو لما استخدم التاب مايطلع صوت بس لما كتبت الكود اللى يحول الانتر لتاب يطلع صوت قوي جدا ( بصراحه الصوت دا مزعج للغايه)

كيف امنع هذا الصوت من عدم الظهور

الكود اللي كنت استخدمه كالتالى

Private Sub DateTimePicker1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles DateTimePicker1.KeyPress

Dim ch As Char

ch = e.KeyChar

If Asc(ch) = 13 Then

SendKeys.Send("{TAB}")

Exit Sub

End If

End Sub

1145392391.gif
#2

حسب معرفتي المتواضعة

ال DateTimePicker اما تغير قيمتهة من DateTimePicker.string

او DateTimePicker.value

و لكن سبق و جربت الاثنين باعطاءه

DateTimePicker.string=""

DateTimePicker.value=""

و بالطريقتين لم يفرغ الأداة من القيمة

أما موضوع الصوت المزعج اقترح تخفضي صوت السماعات عندك فقط

أرجو اني قدرت اوصلك معلومة

و السلام

اقتباس

أبكـــــي فتبتسم الجراح من البكا

فكـــــأنّها في كـل جارحـــــــة فـم ُ

يالابتسـام الجــرح كـم أبكي و كم

ينساب فــــوق شفاهه الحمرا دم

ُ

#3

شكوره اخي الكريم على نعبك معي

بس للاسف انا لا استطيع ان اشترط على الشركه التى سوف تستخدم البرنامج بان يلغو السمعات من عندهم

(راحة المستخدم من اهم شروط البرنامج الناجح)

ارجو المساعده لمن لديهم خلفيه عن الموضوع

عفوا انا لما اعمل تاب لايطلع صوت

بس عندما اجعل الانتر متل التاب يطلع صوت

1145392391.gif
#4

أولا: بالنسبة لارجاع القيمة الى قيمة خالية لا تعمل مع هذا الكنترول ولكن يمكنك ان تجعليه يرجع الى القيمة الافتراشية

ولنفترش ان القيمة الافتراضية هي تاريخ اليوم :

DateTimePicker1.Value = Today

اما بانلسبة للجزء الثاني من السؤال فبصراحة (( ما ادري ايش الغرض من هذي الفكرة ))

وجربت الكود لكن علق علي الجهاز لمدة 5 ثواني وبعدين ما صار شي

تم تعديل هذه المشاركة بواسطة Scoool في 20 فبراير 2007 في 08:02

>> تجارب برمجية <<

[/وسط][/وسط][/وسط]

#5

السلام عليكم

بالنسبة لموضوع الصوت يتم اضافة الكود التالى فى حدث ال KeyPress 

If e.KeyChar = Convert.ToChar(Keys.Return) Then
			e.Handled = True
		End If

{وَاتَّقُواْ يَوْمًا تُرْجَعُونَ فِيهِ إِلَى اللّهِ ثُمَّ تُوَفَّى كُلُّ نَفْسٍ مَّا كَسَبَتْ وَهُمْ لاَ يُظْلَمُونَ} (281) سورة البقرة

br17.gif

برنامج الإتصلات الإدارية والارشيف الالكتروني

برنامج الخبير لنقاط البيع المباشرة

#6

شكرا لكم اخواني الكرام على سرعه ردكم

قد اشار الى الاخ الكريم Scoool بان اجعل التاريخ بقيمه افتراضيه ولتكن تاريخ اليوم

بصراحه تعتبر هيدي مشكله كبيره لو استخدمتها في برنامجي

لانو انا بستخدم هيدي الادا لادخال بيانات لموظف

وقد استخدمت تلك الاداء لتاريخ فصل الموضف او تاريخ ايقافه عن العمل

ولك ان تتخيل انني ادا استخدمت القيمه الافتراضيه سوف اجعل بذلك جميع موظفي الشركه مفصولين او موقوفين عن العمل في ذلك التاريخ

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

هي كيف اجعل التكس بوكس العادية تحتوي على / /

وبذلك يقوم المستخدم فقط بادخال التاريخ يعني بس يقوم بادخال الارقام في التكس بوكس ( بشرط وجود / / مسبقا )

اما بالنسبه للشق التاني من السوال

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

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

Dim ch As Char

ch = e.KeyChar

If Asc(ch) = 13 Then

SendKeys.Send("{TAB}")

Exit Sub

End If

شرح هذا الكود انو لو كبس المستخدم انتر يعمله عمل التاب تماما

بس للاسف انو يصدر اصوات كل ما اراد الانتقال

وايضا بعض الادوات عندما اعملها هذا الحدث يصدر صوت عالى جدا (مزعج) مثل اداه التاريخ مثلا

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

1145392391.gif
#7

بالنسبة للضق الاول عندي فكرة افضل :

ليه ما تستخدمي 3 TextBox واحد لليوم والثاني للشهر والثالث للسنه

أو 2 DropDown واحد لليوم والثاني للشهر وواحد TextBox للتاريخ

اما الشق الثاني فلا أعتقد انها فكرة عملية وهناك قاعدة عند المبرمجين تقول

( لا توفر للمستخدم كل شئ لانه لن يكتفي بما حصل عليه )

- بصراحة .. أنا مؤلفها :D

>> تجارب برمجية <<

[/وسط][/وسط][/وسط]

#8

بالنسبة للسؤال الاول لم اجد له إجابة حتى الان

بالنسبة للسؤال الثاني قم بكتابة هذا الكود داخل حدث keyDown

If e.KeyCode = Keys.Enter Then
			SendKeys.Send("{tab}")
			e.SuppressKeyPress = True
		End If
#9

الاخوة الكرام شكرا لكم تجازبكم معي

انا حليت مشكله الصوت وهى تقريبا نفس حل الاخ ASWANYيعني طلع بس في غلط في الكود اللى كنت كاتبه

اما مشكله التاريخ فبعد مراجعتي لاكثر من منتدي عربي واجنبي وجت انه من المستحيل جعل اداتا التاريخ فارغه

يعني راح احول احصل حل تاني واتوقع اني راح ابرمجه التكس بوكس كالتالى \ \ بحيث يكون على المستخدم ادخال الارقام فقط

وان كنت لا اعلم كيف هي الطريقه

لذ1لك اي احد عندهع فكره عن كيفيه حل تلك الفكره راجو ان يمدنا بالحل

الاخ SCOOOL

صدقني لو طبقت مقولتك

راح ترمي الشركه البرنامج في سله المهملات

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

1145392391.gif
#10

إستخدمي خاصية Checked التابعة لل DateTimePicker1

اقتباس
How to get experience without a job, and how to get a job without experience

هذا الموضوع مغلق.

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