بسم الله
مبرمجو المنتدى العظيم
ارجو من الله ان يوفقكم الى الخير والصلاح في الدنيا والآخرة
اسال اليوم عن كيفية عمل الفورم بشكل شفاف
انا اعرف الاكواد نقلتها من موضوع للاخ علاء Alaa 2 VB
ولكن للاسف لا اعرف كيف يتم التعامل معها
كان من الممكن ان انقل الاكواد كما هي واستخدمها في برنامجي ولكني لا احب استخدام اي كود الا اذا كنت فاهم كل البارميترات اللي فيه
فارجو من الاخوة الكرام ان يشرحو لي دوال عمل الفورم الشفاف بالتفصيل
وجزاكم الله خيرا
السلام عليكم
السورس كود بالمرفقات (البرنامج المفتوح)
هذا الكود بالعام (General)
Private Declare Function SetLayeredWindowAttributes Lib "user32.dll" (ByVal hwnd As Long, ByValcrKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Boolean 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 GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long Const LWA_ALPHA = 2 Const GWL_EXSTYLE = (-20) Const WS_EX_LAYERED = &H80000
وهذا الكود بالفورم
SetWindowLong hwnd, GWL_EXSTYLE, GetWindowLong(hwnd, GWL_EXSTYLE) Or WS_EX_LAYERED SetLayeredWindowAttributes hwnd, 0, 128, LWA_ALPHA
والسلام عليكم
الكود عبارة عن إستدعاء لتوابع API و أظن أنك تعلم أن أي إشكال في توابع الـ API ينبغي عليك اللجوء لـ MSDN
"First they ignore you, then they laugh at you, then they attack you, then you win"
===
اقتباسحُكَّامُـنَا إِنْ تَصَـدّوا لِلْحِمَــى اقْتَحَمُـوا ***** وَإِنْ تَصَدَّى لَـهُ المُسْتَعْمِـرُ انْسَحَبُـوا
هُمْ يَفْرشـُونَ لِجَيْـشِ الغَــزْوِ أَعْيُنَـهُـمْ ***** وَيَدَّعُــونَ وُثُـوبَـاً قَـبْـلَ أَنْ يَثِـبُــوا
الحَاكِمُـونَ و«وَاشُنْـطُـنْ» حُكُومَتُـهُـمْ ***** وَاللامِعُــونَ وَمَـا شَعَّـوا وَلا غَرَبُــوا
القَاتِلُـــونَ نُبُــوغَ الشَّـعْــبِ تَرْضِـيَـــةً ***** لِلْمُعْتَدِيــنَ وَمَـا أَجْـدَتْـهُـمُ الـقُــرَبُ
لَهُمْ شُمُـوخُ «المُثَنَّـى» ظَاهِـرَاً وَلَهُـمْ ***** هَـوَىً إِلَـى بَابَـك الخَرْمِـيّ يُنْتَسَـبُ
البردوني "أبو تمام وعروبة اليوم" 1971
===
اقتباسعبيد الهوى يحكمون البـلاد ***** ويحكمهــم كلّهـــم درهــــــمو تقتـادهـم شهـوة لا تنــام ***** وهـــم فـي جـهالتهــم نــــوّم
ففــي كـــلّ ناحيــة ظـالـــم ***** غبــــــيّ يسـلـّطــــه أظلـــم
أيا من شبعتم على جوعــنا ***** وجـــوع بنينـا ألـم تتخمـــوا ؟
ألم تفهموا غضبة الكادحين ***** على الظلـم ؟ لا بدّ أن تفهموا
البردوني "نحن و الحاكمون "
:unsure: اولا لا انصح باستخدام الفورم الشفاف عشان بيبطئ من مفعول الفورم ويخليه تقيل
ثانيا ممكن تتحكم فيه من هنا
SetLayeredWindowAttributes hwnd, 0, 150, LWA_ALPHA غير الرقم 150 ب 100 راح تلاقيه اختفى اكتر
او اقلك خد هذا المثال يمكن ينفعك
المثال في المرفقات :unsure:
:lol: اعتقد اني تسرعت في الرد
لا اعلم اخي ممن يتكون هذا الكود
هذا الموضوع مغلق.