منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

السلام عليكم ورحمة الله وبركاته ,,,
اخوني عندي مشكلة بالنسبة للتواريخ في برنامجي حيث انني استخدم اداة DTpiker
وهي لاتقبل الا فورمات MM/dd/yyyy

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

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

هل يوجد طريقة عند فتح البرنامج يقوم البرنامج بتحويل بتحويل فورمات الويندوز الى MM/dd/yyyy
وعند اغلاقه يقوم بارجاع الفورمات القديم

وشكراً جزيلاً لكم

وعليكم السلام ورحمة الله وبركاته

ممكن تغيير فورمات الاداة DTPicker

جرب التالي

PHP كود :

Private Sub Form_Load()
DTPicker1.Format = dtpCustom
DTPicker1.CustomFormat = "dd" & "/" & "MM" & "/" & "yyyy"
End Sub 

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

جرب التالي

PHP كود :

Option Explicit
Private Const LOCALE_SSHORTDATE = &H1F
Private Declare Function GetSystemDefaultLCID Lib "kernel32" () As Long
Private Declare Function SetLocaleInfo Lib "kernel32" Alias "SetLocaleInfoA" (ByVal Locale As Long, ByVal LCType As Long, ByVal lpLCData As String) As Boolean
Private Declare Function GetLocaleInfo Lib "kernel32" Alias "GetLocaleInfoA" (ByVal Locale As Long, ByVal LCType As Long, ByVal lpLCData As String, ByVal cchData As Long) As Long
Dim lLocal As Long
Dim length As Long
Dim buf As String * 1024
Dim a
Private Sub Form_Load()
    lLocal = GetSystemDefaultLCID()
    length = GetLocaleInfo(lLocal, LOCALE_SSHORTDATE, buf, Len(buf))
    a = Left$(buf, length - 1)
    If SetLocaleInfo(lLocal, LOCALE_SSHORTDATE, "MM/dd/yyyy") = False Then
    End If
End Sub

Private Sub Form_Unload(Cancel As Integer)
 If SetLocaleInfo(lLocal, LOCALE_SSHORTDATE, a) = False Then
 End If
End Sub 

بالتوفيق .

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

hannileo

AL_BRNS