حركة جديدة (اجعل الفورم يأخذ اي شكل تريده)

[شوقي ربيع]

السلام عليكم

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

اليوم وصلت الى الطريقة بحمد الله وشكره واردت مشاركتكم بها

المهم وصلت الى طريقة تجعل اللون الابيض يختفي من الفورم حيث يصبح شفافا بل منعدم وبهذه الطريقة اصبح يمكن جعل الفورم ياخذ اي شكل نريده

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

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 بواسطه دغيدى

[حسام مصطفي]

روعة الروعة استاذنا

بالفعل ملك الحركات

رمضان كريم

[عبدالله باقشير]

السلام عليكم

 

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

وكل عام وانتم بخير

 

تقبلوا تحياتي وشكري

[مصطفى كمال متولى]

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

وكل عام وانتم بخير

[ابراهيم الشال]

عمل مميز            

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

[محمد ابو البـراء]

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

[saad abed]

يا ملك الحركات (شوقى غريب)

ابهرتنا بحركاتك الجميلة التى جعلت للفورم اشكال مختلفة

اخى شوقى

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

وبارك فيك

تم تعديل يوليو 7, 2013 بواسطه سعد عابد

[يحيى حسين]

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

فكرة رائعة أخي شوقي و تطبيق اروع 

 

و لكن لي سؤال 

بما أنك إستخدمت user32 

هل يعني ذلك أنها لن تعمل على أجهزة 64 

[شوقي ربيع]

روعة الروعة استاذنا

بالفعل ملك الحركات

رمضان كريم

شكرا لمرورك ولكلماتك

وكل عام وانت بخير

تقبل تحباتي وشكري

[شوقي ربيع]

 

السلام عليكم

 

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

وكل عام وانتم بخير

 

تقبلوا تحياتي وشكري

يشرفني دائما مرورك العطر

وكل عام وانت بخير

تقبل تحباتي وشكري

[شوقي ربيع]

 

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

وكل عام وانتم بخير

 

شكرا لمرورك ولكلماتك

وكل عام وانت بخير

تقبل تحباتي وشكري

[شوقي ربيع]

عمل مميز            

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

شكرا لمرورك ولكلماتك

وكل عام وانت بخير

تقبل تحباتي وشكري 

[شوقي ربيع]

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

شكرا لمرورك ولكلماتك

وكل عام وانت بخير

تقبل تحباتي وشكري

[شوقي ربيع]

يا ملك الحركات (شوقى غريب)

ابهرتنا بحركاتك الجميلة التى جعلت للفورم اشكال مختلفة

اخى شوقى

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

وبارك فيك

يسعدني ويشرفني دائما  مرورك

لك جزيل الشكر لكلماتك الجميلة

وكل عام وانت بخير

تقبل تحباتي وشكري

[شوقي ربيع]

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

فكرة رائعة أخي شوقي و تطبيق اروع 

 

و لكن لي سؤال 

بما أنك إستخدمت user32 

هل يعني ذلك أنها لن تعمل على أجهزة 64 

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

ولك جزيل الشكر على  كلماتك الجميلة

بالنسبة لسؤالك فهو نعم لن تعمل مع اجهزة 64

كل عام وانت بخير

تقبل تخياتي وشكري

[ضاحي الغريب]

[حمادة عمر]

 

بالفعل فكرة جميلة جدا

دائما افكارك اخي الكريم اروع واحلي

ملك الحركات بكل جدارة

رمضان كريم

تقبل تحياتي

[شوقي ربيع]

السلام عليكم

الاخ الحبيب ضاحي الغريب

رمضان كريم

سعيد جدا بعودتك الى المنتدى بعد هذا الغيابك ان شاء الله احوالك بخير 

شكرا جزيلا لكلماتك الجميله

تحياتي

[شوقي ربيع]

الاخ الحبيب  حمادة عمر

رمضان كريم

سعيد جدا ايضا بعودتك للمنتدى بعد هذا الغيب ان شاء الله انك بخيير

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

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

تحياتي

[ضاحي الغريب]

السلام عليكم

الاخ الحبيب ضاحي الغريب

رمضان كريم

سعيد جدا بعودتك الى المنتدى بعد هذا الغيابك ان شاء الله احوالك بخير 

شكرا جزيلا لكلماتك الجميله

تحياتي

أخي الحبيب صاحب الروائع والحركات // شوقي ربيع  (( ربيع المنتدي ))

كل عام وانتم بخير 

ورمضان كريم

http://www.arabiccards.com/cards/ramadan/ramadan_36_L.swf

بارك الله فيك وجزاك خيرا علي شعورك النبيل الذي يعكس جمال روحكم وشخصيتكم

ويعلم الله اني احبكم في الله

فاسال الذي جمعنا علي المحبة في سبيله

ان يجمعنا واياك وجميع المسلمين علي الخير والبركة

ويتقبل منا اعمالنا جمعيا

ويصلح حال امتنا العربية

تقبل تحياتي

[ميدو63]

شكرا لك على المجهود الكريم

[أحمد صاحب]

 

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

فكرة رائعة أخي شوقي و تطبيق اروع 

 

و لكن لي سؤال 

بما أنك إستخدمت 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 بواسطه أحمد صاحب

[علي المصري]

بارك الله فيك 

عمل أكثر من ممتاز