المشاركات : 7
المواضيع 3
الإنتساب : Mar 2022
السمعة :
0
الشكر: 2
تم شكره 1 مرات في 1 مشاركات
11-04-22, 11:31 PM
(آخر تعديل لهذه المشاركة : 11-04-22, 11:48 PM {2} بواسطة lionexxd.)
taha okla شكرا لك اخي الغالي
جاري التجربه
نجحت معي كل الشكر والتقدير اخي TAHA OKLA
المشاركات : 352
المواضيع 48
الإنتساب : Oct 2012
السمعة :
18
الشكر: 897
تم شكره 309 مرات في 142 مشاركات
(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،، لذلك كتبت الكود في حدث المغادرة ليتجنب ما أمكن من اخطاء)..
لا بد وأنّ هناك كود أفضل من هذا ..
ولكن هذا ما أسعفتني به التجربة الان ..
الكود افادني بتحويل التاريخ من الميلادي إلى الهجري
كتبت تاريخ بالميلادي فظهر لي بالهجري " للمعلومية تاريخ جهازي بالهجري
الف شكر لك على الكود
اللهم ارحم من أسس هذا المنتدى (اباليث) و أجعل كل علم نافع تعلمناه في هذا المنتدى أجر له و صدقة تنفعه في قبره