تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] طلب مساعدة في ادخال التاريخ ؟
#1
Heart 
السلام عليكم ورحمة الله

لدي 3 Textbox
و Datatimepacker
كود ادخال التاريخ مثلا
Textbox1.text اليوم
Textbox2.text الشهر
textbox3.text السنه 
المطلوب
عند اضافة القيم في التكست بوكس يتم ادراجها في 
Datatimepacker

وشكرا لكم بالتوفيق 
الرد }}
تم الشكر بواسطة:
#2
وعليكم السلام ورحمة الله وبركاته :

كود :
   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       TextBox1.Text = Format(DateTime.Now.Day, "00")
       TextBox2.Text = Format(DateTime.Now.Month, "00")
       TextBox3.Text = Format(DateTime.Now.Year, "0000")
       TextBox1.MaxLength = 2
       TextBox2.MaxLength = 2
       TextBox3.MaxLength = 4
   End Sub

   Private Sub TextBox1_GotFocus(sender As Object, e As EventArgs) Handles TextBox1.GotFocus
       TextBox1.SelectionStart = 0
       TextBox1.SelectionLength = TextBox1.Text.Length
   End Sub

   Private Sub TextBox1_Leave(sender As Object, e As EventArgs) Handles TextBox1.Leave
       DateTimePicker1.Value = DateTimePicker1.Value.AddDays(Val(TextBox1.Text) - DateTimePicker1.Value.Day)
   End Sub

   Private Sub TextBox2_GotFocus(sender As Object, e As EventArgs) Handles TextBox2.GotFocus
       TextBox2.SelectionStart = 0
       TextBox2.SelectionLength = TextBox2.Text.Length
   End Sub
   Private Sub TextBox2_Leave(sender As Object, e As EventArgs) Handles TextBox2.Leave
       DateTimePicker1.Value = DateTimePicker1.Value.AddMonths(Val(TextBox2.Text) - DateTimePicker1.Value.Month)
   End Sub

   Private Sub TextBox3_GotFocus(sender As Object, e As EventArgs) Handles TextBox3.GotFocus
       TextBox3.SelectionStart = 0
       TextBox3.SelectionLength = TextBox3.Text.Length
   End Sub
   Private Sub TextBox3_Leave(sender As Object, e As EventArgs) Handles TextBox3.Leave
       DateTimePicker1.Value = DateTimePicker1.Value.AddYears(Val(TextBox3.Text) - DateTimePicker1.Value.Year)
   End Sub

- لاحظ أن كود التغيير يأتي بعد مغادرة مربع النص  (ليس مهما في حال اليوم والشهر،، ولكن في حال السنة سيتسبب بخطأ بمربع السنة  لأن الـ DateTimePicker1 لن تقبل التواريخ قبل 01/01/1753  ولا حتى التواريخ المستقبلية البعيدة بعد 31/12/9998،، لذلك كتبت الكود في حدث المغادرة ليتجنب ما أمكن من اخطاء)..

لا بد وأنّ هناك كود أفضل من هذا ..
ولكن هذا ما أسعفتني به التجربة الان ..

قال صلى الله عليه وسلم: 
«كلمتان خفيفتان على اللسان 
ثقيلتان في الميزان،حبيبتان إلى الرحمن: 
سبحان الله وبحمده، سبحان الله العظيم».
الرد }}
#3
taha okla شكرا لك اخي الغالي

جاري التجربه

نجحت معي كل الشكر والتقدير اخي TAHA OKLA
الرد }}
تم الشكر بواسطة: ابراهيم ايبو
#4
(11-04-22, 01:06 PM)Taha Okla كتب : وعليكم السلام ورحمة الله وبركاته :

كود :
   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       TextBox1.Text = Format(DateTime.Now.Day, "00")
       TextBox2.Text = Format(DateTime.Now.Month, "00")
       TextBox3.Text = Format(DateTime.Now.Year, "0000")
       TextBox1.MaxLength = 2
       TextBox2.MaxLength = 2
       TextBox3.MaxLength = 4
   End Sub

   Private Sub TextBox1_GotFocus(sender As Object, e As EventArgs) Handles TextBox1.GotFocus
       TextBox1.SelectionStart = 0
       TextBox1.SelectionLength = TextBox1.Text.Length
   End Sub

   Private Sub TextBox1_Leave(sender As Object, e As EventArgs) Handles TextBox1.Leave
       DateTimePicker1.Value = DateTimePicker1.Value.AddDays(Val(TextBox1.Text) - DateTimePicker1.Value.Day)
   End Sub

   Private Sub TextBox2_GotFocus(sender As Object, e As EventArgs) Handles TextBox2.GotFocus
       TextBox2.SelectionStart = 0
       TextBox2.SelectionLength = TextBox2.Text.Length
   End Sub
   Private Sub TextBox2_Leave(sender As Object, e As EventArgs) Handles TextBox2.Leave
       DateTimePicker1.Value = DateTimePicker1.Value.AddMonths(Val(TextBox2.Text) - DateTimePicker1.Value.Month)
   End Sub

   Private Sub TextBox3_GotFocus(sender As Object, e As EventArgs) Handles TextBox3.GotFocus
       TextBox3.SelectionStart = 0
       TextBox3.SelectionLength = TextBox3.Text.Length
   End Sub
   Private Sub TextBox3_Leave(sender As Object, e As EventArgs) Handles TextBox3.Leave
       DateTimePicker1.Value = DateTimePicker1.Value.AddYears(Val(TextBox3.Text) - DateTimePicker1.Value.Year)
   End Sub

- لاحظ أن كود التغيير يأتي بعد مغادرة مربع النص  (ليس مهما في حال اليوم والشهر،، ولكن في حال السنة سيتسبب بخطأ بمربع السنة  لأن الـ DateTimePicker1 لن تقبل التواريخ قبل 01/01/1753  ولا حتى التواريخ المستقبلية البعيدة بعد 31/12/9998،، لذلك كتبت الكود في حدث المغادرة ليتجنب ما أمكن من اخطاء)..

لا بد وأنّ هناك كود أفضل من هذا ..
ولكن هذا ما أسعفتني به التجربة الان ..

الكود افادني بتحويل التاريخ من الميلادي إلى الهجري

كتبت تاريخ بالميلادي فظهر لي بالهجري " للمعلومية تاريخ جهازي بالهجري

الف شكر لك على الكود
اللهم ارحم من أسس هذا المنتدى (اباليث) و أجعل كل علم نافع تعلمناه في هذا المنتدى أجر له و صدقة تنفعه في قبره
الرد }}
تم الشكر بواسطة: ابراهيم ايبو , Taha Okla , muaamar


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] احتاج مساعدة في كود datagridview جعل اعمدتها checkbox وتخزين في sql hanadiamante 3 184 23-06-22, 06:22 AM
آخر رد: سعود
  [VB.NET] حول تكرار البيانات في نفس التاريخ sher 2 135 15-06-22, 04:50 AM
آخر رد: سعود
  [SQL] مساعدة في جملة الاتصال safralfahd 6 294 13-06-22, 09:43 AM
آخر رد: safralfahd
  [سؤال] طلب مساعدة في كود قراءة النص كلمة كلمة waelalmsry75 3 366 07-06-22, 09:00 AM
آخر رد: asmarsou
  طلب مساعدة في البحث عن مواقع لتحميل الملفات الصوتية للاحرف كل حرف على جدى AHMED213 0 195 06-06-22, 03:54 PM
آخر رد: AHMED213
  ترتيب العرض الشراء الاول ثم السداد في حالة تساوي التاريخ atefkhalf2004 2 204 26-05-22, 10:07 PM
آخر رد: atefkhalf2004
Photo مساعدة في textbox cordava 3 368 06-05-22, 07:30 PM
آخر رد: cordava
Big Grin [VB.NET] ادخال بيانات الى موقع الكترونى بـ VB.NET thecaser 0 324 30-04-22, 01:43 AM
آخر رد: thecaser
  مساعدة بكود الاتصال بقاعدة البيانات نيمو 2 527 14-04-22, 05:02 AM
آخر رد: ابراهيم ايبو
  ممكن مساعدة في عمل مشغل crazykinko 6 1,740 10-04-22, 02:08 PM
آخر رد: omar dz

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم