أزهري قام بنشر يوليو 28, 2023 مشاركة قام بنشر يوليو 28, 2023 السلام عليكم لو أردت أن يتم عرض اليوم، التاريخ الميلادي، التاريخ الهجري، الوقت كلهم في label واحد تباعاً تفرق بينهم خمس ثواني مثلا، للتوضيح يتم عرض اليوم وبعد خس ثواني يتم عرض التاريخ الميلادي وبعد خمس ثواني يتم عرض التاريخ الهجري وبعد خمس ثواني يتم عرض الوقت، ومن ثم بعد خمس ثواني يعود لعرض اليوم وهكذا.. لاحظ المثال المرفق تم عرض كل منهم منفرداً في label مختلف ماذا لو أردنا أن يكونوا في label واحد Database2.accdb رابط هذا التعليق شارك More sharing options...
ابوخليل قام بنشر يوليو 28, 2023 مشاركة قام بنشر يوليو 28, 2023 تفضل If i = 0 Then Label5.Caption = Format(Now(), "dddd") Label0.Caption = "اليوم" i = i + 1 ElseIf i = 1 Then Calendar = vbCalHijri Label5.Caption = Format(Now(), "yyyy/mm/dd") Label0.Caption = "التأريخ الهجري" i = i + 1 ElseIf i = 2 Then Calendar = CurrCal Label5.Caption = Format(Now(), "yyyy/mm/dd") Label0.Caption = "التأريخ الميلادي" i = i + 1 ElseIf i = 3 Then Calendar = CurrCal Label5.Caption = Format(Now(), "long time") Label0.Caption = "الوقت" i = 0 End If عداد الوقت تم ضبطه على 5000 والتي تعني 5 ثواني ، يمكنك تسريع العرض بانقاص الرقم Database3.accdb 1 رابط هذا التعليق شارك More sharing options...
AbuuAhmed قام بنشر يوليو 28, 2023 مشاركة قام بنشر يوليو 28, 2023 مثال لعرض الكل في صندوق تسمية واحد. AllCaptionsInOne_03.accdb رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.