خطأ يحدث عند العمل على اليوزرفورم ( اختفاء وظهور الماوس بسبب كود اظهار الساعة في الفورم )

[إبراهيم ابوليله]

الاخوه الافاضل

اريد ان اعرف سبب اختفاء الماوس

عند الضغط داخل التيكست بوس

اختفاء الماوس.rar

[حمادة عمر]

السلام عليكم

الاخ الحبيب / إبراهيم ابوليله

بارك الله فيك

في ملفك المرفق اخي الكريم ..

السبب في ظهور واختفاء الماوس

هو الكود المستخدم لاظهار الساعة في الفورم خاصتك

ويمكن استبداله باكواد اخري لتنفيذ ذلك دون اختفاء وظهور الماوس

شاهد المرفق التالي ...

تقبل خالص تحياتي

 

 

اختفاء الماوس1.rar

 

 

[إبراهيم ابوليله]

اخى حماده

اولا اشكرك على الرد  والمساعده

بارك الله فيك

---------------------------------

ثانيا

هذه الكود حاولت استخدامه من قبل

ولكن يحدث مع مشاكل

عند استخدام خصائص الادوات للاستاذ الخالدى

اى استخدام الليبل فى عمل قائمه منسدله  لتنفيذ الاكواد

--------------------------------------------------

ثالثا يحدث تهنيجه عند الخروج من الفورم فى الكود المرفق من حضرتك

------------------------------------------------------------------------

ثالثا

لو قمت بعمل زر لاستدعاء الفورم

فلن يختفى الماوس

---------------------------------------

عزرا على الاطاله اخى واستاذنا الحبيب حماده

[شوقي ربيع]

السلام عليكم

بالفعل كما قال اخي حمادة ان الكود المستعمل لأضهار الساعة هو المتسبب في المشكلة

 

لكنني أفضل استعمل الحلقة Do عن الحلقة for لأنها اسرع في التنفيذ و ايضا لا تحتاج بداية ونهاية فقط تحتاج الى شرط

المهم جرب هذا الكود

Private Sub UserForm_Activate()
Time True
End Sub

Sub Time(Start As Boolean)
Dim Secondes, N
Secondes = 1#
Do While Start
N = Now
Me.CLOCK.Caption = Format(N, "h:mm:ss AM/PM")
    DoEvents
    Loop
End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Time False
End
End Sub

تحياتي

[إبراهيم ابوليله]

اخى واستاذنا شوقى

مشكورا على الاهتمام

الكود جميل

ويعمل معى بدون مشاكل

بارك الله فيك

---------------------------------

[شوقي ربيع]

السلام عليكم

تم تطوير الكود حيث يمكن استعماله في عدت فورمات دون تكرار كتابة الاكواد وايضا اضفة  اليوم الحالي مع الوقت

ضع هذا الكود في ميودل

Option Explicit

Public Sub Timer(Frm As Object, LTime As String, LDate As String, Start As Boolean)
If Start = False Then End
Do While Start
    If LTime <> "" Then Frm.Controls(LTime).Caption = Time
    If LDate <> "" Then Frm.Controls(LDate).Caption = Date
    DoEvents
Loop
End Sub

اما هذا الكود ضعه في الفورم الذي تريد ان تضهر فيه الساعة واليوم

Private Sub UserForm_Activate()
Timer Me, "Label1", "Label2", True
End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Timer Me, "", "", False
End Sub

فقط قم بكتابة اسم الليبل الدي تريد ان تضهر فيه الساعة او التاريخ مكان Label1 و Label2 على التاوالي

وان اردت عدم عرض التاريخ او الوقت فقط اترك مكانه فارغ

تحياتي

[إبراهيم ابوليله]

اخى واستاذنا شوقى

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

بارك الله فيك

ومشكورا على الاضافه

جعل الله اعمالك فى ميزان حسناتك