شوقي ربيع قام بنشر يوليو 6, 2013 قام بنشر يوليو 6, 2013 (معدل) السلام عليكم هته الفكرة راودتني عندما كنت اصمم برنامج دليل الهاتف على طريقة سامسونج جالكسي لكني لم أنجح حينها في تنفيذها اليوم وصلت الى الطريقة بحمد الله وشكره واردت مشاركتكم بها المهم وصلت الى طريقة تجعل اللون الابيض يختفي من الفورم حيث يصبح شفافا بل منعدم وبهذه الطريقة اصبح يمكن جعل الفورم ياخذ اي شكل نريده كل ما عليك هو وضع هذا الكود في موديل Option Explicit Public Declare Function FWw Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Public Declare Function SWLg Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long Public Declare Function DrMBar Lib "user32" Alias "DrawMenuBar" (ByVal hWnd As Long) As Long Public Declare Function SLWA Lib "user32" Alias "SetLayeredWindowAttributes" (ByVal hWnd As Long, ByVal crKey As Long, ByVal bAlpha As Long, ByVal dwFlags As Long) As Long Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long Public Declare Function ReleaseCapture Lib "user32" () As Long Public hWnd As Long Public Function Rabie_Sk(uf As Object, colors As Variant, Optional Sk As Variant = True) hWnd = FWw(vbNullString, uf.Caption) SWLg hWnd, -16, &H80080080: SWLg hWnd, -20, &H80000: DrMBar hWnd Select Case Sk Case True SLWA hWnd, colors, &H2, &H1 Case False SLWA hWnd, colors, 50, &H2 End Select End Function وفي حدث UserForm_Initialize ضع هذ الكود Rabie_Sk Me, vbWhite, True والباقي عليك في اختيار الشكل الذي تريده لا اطيل عليكم وأترككم مع المرفق تحياتي للجميع اجعل الفورم يأخذ اي شكل تريده.rar تم تعديل يوليو 7, 2013 بواسطه دغيدى 6
حسام مصطفي قام بنشر يوليو 6, 2013 قام بنشر يوليو 6, 2013 روعة الروعة استاذنا بالفعل ملك الحركات رمضان كريم
عبدالله باقشير قام بنشر يوليو 6, 2013 قام بنشر يوليو 6, 2013 السلام عليكم جزاكم الله خيرا وكل عام وانتم بخير تقبلوا تحياتي وشكري
saad abed قام بنشر يوليو 7, 2013 قام بنشر يوليو 7, 2013 (معدل) يا ملك الحركات (شوقى غريب) ابهرتنا بحركاتك الجميلة التى جعلت للفورم اشكال مختلفة اخى شوقى جزاك الله خيرا وبارك فيك تم تعديل يوليو 7, 2013 بواسطه سعد عابد
يحيى حسين قام بنشر يوليو 7, 2013 قام بنشر يوليو 7, 2013 السلام عليكم و رحمة الله فكرة رائعة أخي شوقي و تطبيق اروع و لكن لي سؤال بما أنك إستخدمت user32 هل يعني ذلك أنها لن تعمل على أجهزة 64
شوقي ربيع قام بنشر يوليو 8, 2013 الكاتب قام بنشر يوليو 8, 2013 روعة الروعة استاذنا بالفعل ملك الحركات رمضان كريم شكرا لمرورك ولكلماتك وكل عام وانت بخير تقبل تحباتي وشكري
شوقي ربيع قام بنشر يوليو 8, 2013 الكاتب قام بنشر يوليو 8, 2013 السلام عليكم جزاكم الله خيرا وكل عام وانتم بخير تقبلوا تحياتي وشكري يشرفني دائما مرورك العطر وكل عام وانت بخير تقبل تحباتي وشكري
شوقي ربيع قام بنشر يوليو 8, 2013 الكاتب قام بنشر يوليو 8, 2013 جزاكم الله خيرا وكل عام وانتم بخير شكرا لمرورك ولكلماتك وكل عام وانت بخير تقبل تحباتي وشكري
شوقي ربيع قام بنشر يوليو 8, 2013 الكاتب قام بنشر يوليو 8, 2013 عمل مميز جزاكم الله خيرا شكرا لمرورك ولكلماتك وكل عام وانت بخير تقبل تحباتي وشكري
شوقي ربيع قام بنشر يوليو 8, 2013 الكاتب قام بنشر يوليو 8, 2013 فنان ومبدع جزاكم الله خيرا شكرا لمرورك ولكلماتك وكل عام وانت بخير تقبل تحباتي وشكري
شوقي ربيع قام بنشر يوليو 8, 2013 الكاتب قام بنشر يوليو 8, 2013 يا ملك الحركات (شوقى غريب) ابهرتنا بحركاتك الجميلة التى جعلت للفورم اشكال مختلفة اخى شوقى جزاك الله خيرا وبارك فيك يسعدني ويشرفني دائما مرورك لك جزيل الشكر لكلماتك الجميلة وكل عام وانت بخير تقبل تحباتي وشكري
شوقي ربيع قام بنشر يوليو 8, 2013 الكاتب قام بنشر يوليو 8, 2013 السلام عليكم و رحمة الله فكرة رائعة أخي شوقي و تطبيق اروع و لكن لي سؤال بما أنك إستخدمت user32 هل يعني ذلك أنها لن تعمل على أجهزة 64 لي عضيم الشرف مرورك بموضوعي استاد يحيى حسين وعلى ما اضن هذه المرة الاولى ولك جزيل الشكر على كلماتك الجميلة بالنسبة لسؤالك فهو نعم لن تعمل مع اجهزة 64 كل عام وانت بخير تقبل تخياتي وشكري
حمادة عمر قام بنشر يوليو 11, 2013 قام بنشر يوليو 11, 2013 بالفعل فكرة جميلة جدا دائما افكارك اخي الكريم اروع واحلي ملك الحركات بكل جدارة رمضان كريم تقبل تحياتي
شوقي ربيع قام بنشر يوليو 13, 2013 الكاتب قام بنشر يوليو 13, 2013 السلام عليكم الاخ الحبيب ضاحي الغريب رمضان كريم سعيد جدا بعودتك الى المنتدى بعد هذا الغيابك ان شاء الله احوالك بخير شكرا جزيلا لكلماتك الجميله تحياتي
شوقي ربيع قام بنشر يوليو 13, 2013 الكاتب قام بنشر يوليو 13, 2013 الاخ الحبيب حمادة عمر رمضان كريم سعيد جدا ايضا بعودتك للمنتدى بعد هذا الغيب ان شاء الله انك بخيير لك جزيل الشكر لكلماتك الجميلة التي قلت ولا زلت اقول انك لم تترك لنا من كلمات نرد بها عليك جزاك الله خيرا اخي الحبيب تحياتي
ضاحي الغريب قام بنشر يوليو 13, 2013 قام بنشر يوليو 13, 2013 السلام عليكم الاخ الحبيب ضاحي الغريب رمضان كريم سعيد جدا بعودتك الى المنتدى بعد هذا الغيابك ان شاء الله احوالك بخير شكرا جزيلا لكلماتك الجميله تحياتي أخي الحبيب صاحب الروائع والحركات // شوقي ربيع (( ربيع المنتدي )) كل عام وانتم بخير ورمضان كريم http://www.arabiccards.com/cards/ramadan/ramadan_36_L.swf بارك الله فيك وجزاك خيرا علي شعورك النبيل الذي يعكس جمال روحكم وشخصيتكم ويعلم الله اني احبكم في الله فاسال الذي جمعنا علي المحبة في سبيله ان يجمعنا واياك وجميع المسلمين علي الخير والبركة ويتقبل منا اعمالنا جمعيا ويصلح حال امتنا العربية تقبل تحياتي
أحمد صاحب قام بنشر أبريل 19, 2014 قام بنشر أبريل 19, 2014 (معدل) السلام عليكم و رحمة الله فكرة رائعة أخي شوقي و تطبيق اروع و لكن لي سؤال بما أنك إستخدمت user32 هل يعني ذلك أنها لن تعمل على أجهزة 64 لي عضيم الشرف مرورك بموضوعي استاد يحيى حسين وعلى ما اضن هذه المرة الاولى ولك جزيل الشكر على كلماتك الجميلة بالنسبة لسؤالك فهو نعم لن تعمل مع اجهزة 64 كل عام وانت بخير تقبل تخياتي وشكري هناك طريقة تستطيع ان تجعلها تعمل على اجهزة 64 وهي سهله جدا فقط كل ما في الامر أن تضيف كلمه PtrSafe و سوف اوضح بالمثال: تبحث عن : Public Declare Function تضيف الكلمة كالتالي: Public Declare PtrSafe Function Public Declare PtrSafe Function FWw Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Public Declare PtrSafe Function SWLg Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long Public Declare PtrSafe Function DrMBar Lib "user32" Alias "DrawMenuBar" (ByVal hWnd As Long) As Long Public Declare PtrSafe Function SLWA Lib "user32" Alias "SetLayeredWindowAttributes" (ByVal hWnd As Long, ByVal crKey As Long, ByVal bAlpha As Long, ByVal dwFlags As Long) As Long Public Declare PtrSafe Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long Public Declare PtrSafe Function ReleaseCapture Lib "user32" () As Long وسيعمل باذن الله تحياتي تم تعديل أبريل 19, 2014 بواسطه أحمد صاحب 2
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.