اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

Transparent UserForm - فورم شفاف


الردود الموصى بها

كود لجعل الفورم شفاف مع الابقاء على شريط عنوان الفورم و اطاره و على جميع الكونترولات بداخله

transparentUserForm1.png

ملف للتحميل : https://app.box.com/s/pzaml5g8slh8kq7bd03axq01vzmrldai

الكود في موديول الفورم:

 

Option Explicit
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hwnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long
Private Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, ByVal wCmd As Long) As Long
Private Const LWA_COLORKEY = &H1
Private Const GWL_EXSTYLE = (-20)          '
Private Const WS_EX_LAYERED = &H80000

Private Sub UserForm_Initialize()
    Dim hwnd As Long
    hwnd = FindWindow(vbNullString, Me.Caption)
    SetWindowLong hwnd, GWL_EXSTYLE, GetWindowLong(hwnd, GWL_EXSTYLE) Or WS_EX_LAYERED
    Me.BackColor = vbRed
    SetLayeredWindowAttributes hwnd, vbRed, 0&, LWA_COLORKEY
End Sub

 

تم تعديل بواسطه جعفر الطريبق
  • Like 7
رابط هذا التعليق
شارك

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

جزاك الله خيرًا أستاذنا الفاضل

.. و الله تحفة حقيقية .. واصل تألّقك و إبداعاتك بارك الله فيك .. وفّقك الله و سدّد خطاك لما يحبّه و يرضاه

                                                                                                                          خالص احتراماتي 

  • Like 1
رابط هذا التعليق
شارك

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

جزاك الله خيرًا أستاذنا الفاضل جعفر الطريبق المحترم:

كما قال أخي عبد العزيز البسكري... تحفة حقيقية .. واصل تألّقك و إبداعاتك بارك الله فيك .. وفّقك الله و سدّد خطاك لما يحبّه و يرضاه

                                                                                                                          خالص احتراماتي

  • Like 1
رابط هذا التعليق
شارك

اخى جعفر

جزاك الله خيرا

ايه الحلاوه دى

انظر للمحاسبين نظره كده واعملنا كشف حساب بمتغيرات بين تاريخين من صنع ايدك انت بالفورم

يا ريت بالطريقه المغربية الجعفريه

وفقكم الله

  • Like 1
رابط هذا التعليق
شارك

50 مشاركة ... 67 إعجاب ..

يعني إعجاباتك تجاوزت عدد مشاركاتك

وهذ متوقع من أعمالك التي حرمنا منها طويلاً

الحمد لله أن رزقنا الله بك أخي الحبيب جعفر

تقبل تحياتي

  • Like 3
رابط هذا التعليق
شارك

50 مشاركة ... 67 إعجاب ..

يعني إعجاباتك تجاوزت عدد مشاركاتك

وهذ متوقع من أعمالك التي حرمنا منها طويلاً

الحمد لله أن رزقنا الله بك أخي الحبيب جعفر

تقبل تحياتي

انت فين ياعم ياسر

باعتلك رساله

ليش مارديت

المهم طمنى انت مكمل معانا قبل العيد ولا عيدت

انا عايز اكمل الموضوع

بس محتاج متابعتك

علشان لو فيه هفوه عدت عليا تلحقنى بيها

تقبل تحياتى

رابط هذا التعليق
شارك

أخي الحبيب إبراهيم

كنت في أجازة العيد اعذرني

إن شاء الله وبعونه نستكمل ونحاول استرجاع معلوماتنا في الإكسيل .. الأجازة بخرت المعلومات :blink:

رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information