+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : كيفية تغيير طريقة عرض التاريخ في الاداة DateTimePicker1 (/showthread.php?tid=23233)
كيفية تغيير طريقة عرض التاريخ في الاداة DateTimePicker1 - nooralcown - 06-01-18
يتم عرض التاريخ بالطريقة التالية كانون اول كانون ثاني
انا بدي اياه يعرض يناير فبراير مارس وهيك
RE: كيفية تغيير طريقة عرض التاريخ في الاداة DateTimePicker1 - طالب برمجة - 06-01-18
الأداة DateTimePicker تعتمد على إعدادات نظام التشغيل فقط
RE: كيفية تغيير طريقة عرض التاريخ في الاداة DateTimePicker1 - nooralcown - 07-01-18
كلامك صحيح لكن اعتقد ان هناك طريقة برمجية لتغيير نظام التشغيل وجعل الاداة وفقا لما تريد
RE: كيفية تغيير طريقة عرض التاريخ في الاداة DateTimePicker1 - ssayed111 - 07-01-18
استخدم هذه الطريقه لضبط اعدادات التقويم والارقام في وندوز بالكود
Private Sub g() ' '' ''ميلادي
Const userRoot As String = "HKEY_CURRENT_USER"
Const subkey As String = "Control Panel\International"
Const keyName As String = userRoot & "\" & subkey
Microsoft.Win32.Registry.SetValue(keyName, "IDate", 1)
'Microsoft.Win32.Registry.SetValue(keyName, "sShortDate", "dd/MM/yyyy")
Microsoft.Win32.Registry.SetValue(keyName, "sShortDate", "yyyy/MM/dd")
Microsoft.Win32.Registry.SetValue(keyName, "iCalendarType", "1")
Microsoft.Win32.Registry.SetValue(keyName, "iCountry", "61")
Microsoft.Win32.Registry.SetValue(keyName, "Locale", "00000C09")
Microsoft.Win32.Registry.SetValue(keyName, "LocaleName", "ar-SA")
Microsoft.Win32.Registry.SetValue(keyName, "sLanguage", "ENA")
'' '' '' ''Microsoft.Win32.Registry.SetValue(keyName, "sLanguage", "ar-SA")
Microsoft.Win32.Registry.SetValue(keyName, "sLongDate", "yyyy/MM/dd")
Microsoft.Win32.Registry.SetValue(keyName, "NumShape", "2")
''بعد ذالك تحتاج الى عملية إنعاش الويندوز لإظهار التغيرات على الجهاز عن طريق الكود التالي :
'For Each ObjProcess As Process In Process.GetProcessesByName("explorer")
' ObjProcess.Kill()
'Next
'Process.Start("explorer")
End Sub
Private Sub h() '' '' او' '' ''ميلادي
My.Application.ChangeCulture("ar-SA")
My.Application.ChangeUICulture("ar-SA")
'MsgBox(Now.ToShortDateString)
Const userRoot As String = "HKEY_CURRENT_USER"
Const subkey As String = "Control Panel\International"
Const keyName As String = userRoot & "\" & subkey
Microsoft.Win32.Registry.SetValue(keyName, "IDate", 1)
'Microsoft.Win32.Registry.SetValue(keyName, "sShortDate", "dd/MM/yyyy")
Microsoft.Win32.Registry.SetValue(keyName, "sShortDate", "yyyy/MM/dd")
Microsoft.Win32.Registry.SetValue(keyName, "iCalendarType", "6")
Microsoft.Win32.Registry.SetValue(keyName, "iCountry", "61")
Microsoft.Win32.Registry.SetValue(keyName, "Locale", "00000C09")
Microsoft.Win32.Registry.SetValue(keyName, "LocaleName", "ar-SA")
Microsoft.Win32.Registry.SetValue(keyName, "sLanguage", "ENG")
' '' '' '' '' '' ''Microsoft.Win32.Registry.SetValue(keyName, "sLanguage", "ar-SA")
'Microsoft.Win32.Registry.SetValue(keyName, "sLongDate", "dddd, d MMMM yyyy")
Microsoft.Win32.Registry.SetValue(keyName, "sLongDate", "dd/MM/yyyy 'هـ'")
Microsoft.Win32.Registry.SetValue(keyName, "NumShape", "2")
End Sub
المعزرة الاجراء Private Sub h() '' للتاريخ الهجري اما Private Sub g() للميلادي وفور تنفيذ احدهم يظر النتيجه مباشرة في البرنامج اما التقويم الظاهر بجوار الشاشه
يتغير عند اعادة التشغيل
اما في برنامجك تستطيع التحكم في طريقة عرض اداة DateTimePicker
يمكن ان يساعدك هذا الفديو في تلبية طلبك
https://www.youtube.com/watch?v=zdt4qxa3QWw
RE: كيفية تغيير طريقة عرض التاريخ في الاداة DateTimePicker1 - nooralcown - 08-01-18
تسلم اخي الفاضل ssayed111 شكرا جزيلا