+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [كود] حل مشكلة في كود (/showthread.php?tid=19242)
الصفحات:
1
2
حل مشكلة في كود - عبدالرحمن المكاوي - 14-02-17
بسم الله الرحمن الرحيم
اهلا ومرحبا بكل مسؤولي واعضاء المنتدي الكرام لديه
PHP كود :
Dim OldFormat As String = "2016-12-26-09-36-08" 'الشكل القديم
Dim OldDate As Date = DateTime.ParseExact(OldFormat, "yyyy-MM-dd-hh-mm-ss", Globalization.CultureInfo.InvariantCulture) 'التحويل من نص الى تاريخ و وقت
Dim NewFormat = OldDate.ToString("dd/MM/yyyy HH:mm:ss") 'التحويل الى الشكل الذي نريده
MsgBox(NewFormat) 'اظهار النتيجة في مسجبوكس '
وهكذا يقوم الكود عندما اختار اي iteam من الكومبوكس بتغير صيغة هذا التاريخ -36-09-26-12-2016 الذي هو صيغة yyyy-MM-dd-hh-mm-ss
ويجعله علي هذه الصيغة dd/MM/yyyy HH:mm
s اي مثل هذه الشكل 26/12/2016 09:36:08 ويخرج التاريخ في ماسج بوكس بعد تحويله الي الشكل الثاني لكن عندما اختار اي iteam يقوم باعطائي هذا الناتج
في كل مرة 2016-12-26-09-36-08 ارجو التعديل علي الكود
RE: حل مشكلة في كود - عبدالرحمن المكاوي - 14-02-17
اخوانييييييييييييييييييييييييي اين انتم
RE: حل مشكلة في كود - Adrees - 14-02-17
جرب الطريقة التالية
PHP كود :
Dim OldFormat As String = "2016-12-26-09-36-08" 'الشكل القديم
Dim OldDate As DateTime = DateTime.ParseExact(OldFormat, "yyyy-MM-dd-hh-mm-ss", Globalization.CultureInfo.InvariantCulture) 'التحويل من نص الى تاريخ و وقت
Dim NewFormat = OldDate.ToString("dd/MM/yyyy HH:mm:ss", Globalization.CultureInfo.InvariantCulture) 'التحويل الى الشكل الذي نريده
MsgBox(NewFormat) 'اظهار النتيجة في مسجبوكس '
RE: حل مشكلة في كود - عبدالرحمن المكاوي - 14-02-17
(14-02-17, 08:08 PM)Adrees كتب : جرب الطريقة التالية
PHP كود :
Dim OldFormat As String = "2016-12-26-09-36-08" 'الشكل القديم
Dim OldDate As DateTime = DateTime.ParseExact(OldFormat, "yyyy-MM-dd-hh-mm-ss", Globalization.CultureInfo.InvariantCulture) 'التحويل من نص الى تاريخ و وقت
Dim NewFormat = OldDate.ToString("dd/MM/yyyy HH:mm:ss", Globalization.CultureInfo.InvariantCulture) 'التحويل الى الشكل الذي نريده
MsgBox(NewFormat) 'اظهار النتيجة في مسجبوكس '
لم يحدث شئ المشكلة مازالت موجودة
RE: حل مشكلة في كود - مساعدة - 15-02-17
السلام عليكم
RE: حل مشكلة في كود - عبدالرحمن المكاوي - 15-02-17
طيب اوك اريد استعمالها في اداة كومبوبكس في اي حدث اضعها
RE: حل مشكلة في كود - مساعدة - 15-02-17
اوك
ضعها في حدث SelectedIndex.
RE: حل مشكلة في كود - عبدالرحمن المكاوي - 15-02-17
لم تنجح المهم ساجرب طريقتك اعطني كود يقوم بوضع نفس الايتم المحدد في الكومبوبكس ويقوم بنقله في اداة تيكست بوكس
RE: حل مشكلة في كود - مساعدة - 15-02-17
تفضل الكود وقد جربته قبل وضعه
كود :
Private Sub ComboBox1_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
Dim OldFormat As String = ComboBox1.Text 'الشكل القديم
Dim OldDate As DateTime = DateTime.ParseExact(OldFormat, "yyyy-MM-dd-HH-mm-ss", Globalization.CultureInfo.InvariantCulture) 'التحويل من نص الى تاريخ و وقت
Dim NewFormat = OldDate.ToString("dd/MM/yyyy HH:mm:ss", Globalization.CultureInfo.InvariantCulture) 'التحويل الى الشكل الذي نريده
TextBox1.Text = NewFormat 'اظهار النتيجة في مسجبوكس '
End Subعفوا على هذا السؤال، هل أنت مبتدئ في البرمجة؟
RE: حل مشكلة في كود - عبدالرحمن المكاوي - 15-02-17
(15-02-17, 06:36 PM)مساعدة كتب : تفضل الكود وقد جربته قبل وضعه
كود :
Private Sub ComboBox1_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
Dim OldFormat As String = ComboBox1.Text 'الشكل القديم
Dim OldDate As DateTime = DateTime.ParseExact(OldFormat, "yyyy-MM-dd-HH-mm-ss", Globalization.CultureInfo.InvariantCulture) 'التحويل من نص الى تاريخ و وقت
Dim NewFormat = OldDate.ToString("dd/MM/yyyy HH:mm:ss", Globalization.CultureInfo.InvariantCulture) 'التحويل الى الشكل الذي نريده
TextBox1.Text = NewFormat 'اظهار النتيجة في مسجبوكس '
End Sub
عفوا على هذا السؤال، هل أنت مبتدئ في البرمجة؟
ولله اخي انا افعل مابوسعي لكي اتعلم والله لايكلف نفسا الا بوسعها المهم لدينا مشكلة هنا
واعتقد ان الكود كان يعمل منذو البداية لاكني اكتشفت الخطئ وهو ان اي iteam لديه في الكومبوكس
يبدء يكون هكذا beinsave-yyyy-MM-dd-HH-mm-ss
وعندما اختار اي ايتم يعطيني ان التنسيق خطئ فهل يوجد حل لكي لايقراء beinsave-