إظهار البرنامج بعد أخفائة VB

[محمد الزريعي]

الاخوة الافاضل

لقد قمت في انشاء برنامج ووضعت له ايقونة في جوار الساعة فقط 

عند تشغيل البرنامج تظهر الفورم  طبيعي

وضعت زر في النافذة وضيفته يقوم اخفاء هذه النافذة "البرنامج " حتى وقت اخر يقوم المستخدم بأستداعة عن طريق النقر على هذه الايقونة

 ولكن  المشكلة التي واجهتني عندما انقر على الايقونة لم تظهر معي الشاشة

 

المطلوب كود يقوم بإستعادة البرنامج  عند النقر على هذه الايقونة .

 

 

يعني مطلوب كود يعمل زي برنامج ديب فريز

الاخوة الأفاضل السلام عليكم ورحمة الله وبركاته وبعد.rar

[خالد عبد المنعم]

اخى الكريم 

 

اولا هل الكود عباره عن notify icon فقط ام ماذا ؟

ثانيا اشرح لنا كيفية عمل الكود لكى نعطيك حل ؟

ثالثا هل تستخدم wshell ؟

رابعا هل قمت بعمل الكود من الملف المرفق  ؟

 

يرجى الاطلاع على الملف المرفق 

 

api.zip

[محمد الزريعي]

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

 

ممكن فقط تعطيني الكود  كتابة  أو تشرح لي كيف اسوي . ؟

[خالد عبد المنعم]

اخى الكريم 

 

البرنامج لست مشفر

ثانيا بامكانك الضغط على مفتاح الشيفت لكى ترى كل شىء

 

اذا كان الملف المرفق يعمل معك بدون مشكله

اذن يرجى الضغط على Detail ثم قم بتغيير ال name الى Detailbereich

بعد ذلك حدث On Mouse Over 

قم بقتح محرر الكود و اكتب التالى 

Private Sub Detailbereich_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)


On Error Resume Next

    Dim sngX    As Single
    
    
    If CursorOnTaskbar Then
        
       
        sngX = x - getTwipsPerPixel

        If Me.RecordSelectors Then
         
            sngX = sngX + 285
        End If
            

        sngX = sngX / getTwipsPerPixel
        
      
        If sngX = WM_LBUTTONDBLCLK Then
            Call trayIconDblClick
        ElseIf sngX = WM_RBUTTONUP Then
            Call trayIconRClick
        End If
    End If

End Sub

اذا لم يفلح معك ذلك يرجى اضافة قاعدة البيانات

مع العلم ان الملف المرفق يعمل على نسخ 32 بت

[محمد الزريعي]

نعم أخي  ان نظام التشغيل عندي 64 غير 32 يمكن هذا السبب ..

 

لكن هل ممكن انفذ هذا الكود على برنامج فجول بيسك 6

[خالد عبد المنعم]

اخى الكريم

 

السبب الرئيسى فى المشكله ليست الكود فالمشكله تكمن فى ملف shell32.dll فى نسخة الويندوز 64 بت

و للأسف الترقيع بملفات dll ليس إجراء بسيط بالمره

 

اما بالنسبه للفيجول بيزيك فضلا لا امرا قم بتحميل السورس كود من الملف المرفق

 

StealthDialog.zip

[محمد الزريعي]

اشكرك اخي العزيز على تعاملك القيم اولاً ..

ثانياً ارفقت لك الكود الذي استخدمته في فجول بيسك .  واسف لو غلبتك معي .

كود فجول بيسك تصغير.rar

[خالد عبد المنعم]

اخى الكريم

 

يمكنك ذلك بشرط ان يتم اخفاء MinimizeBox

MaximizeBox = false
MinimizeBox = false

[محمد الزريعي]

اخي الكريم  حاولت كذا مرة ولم افلح بشئ في هذا الكود

لكن ممكن تشرح لي اكثر ..  انا حاولت بكل الطرق في هذا ولم  اصل الي نتيجة ...