شوقي ربيع

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

لي عضيم الشرف مرورك بموضوعي استاد يحيى حسين وعلى ما اضن هذه المرة الاولى ولك جزيل الشكر على كلماتك الجميلة بالنسبة لسؤالك فهو نعم لن تعمل مع اجهزة 64 كل عام وانت بخير تقبل تخياتي وشكري

يسعدني ويشرفني دائما مرورك لك جزيل الشكر لكلماتك الجميلة وكل عام وانت بخير تقبل تحباتي وشكري

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

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

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

يشرفني دائما مرورك العطر وكل عام وانت بخير تقبل تحباتي وشكري

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

السلام عليكم هته الفكرة راودتني عندما كنت اصمم برنامج دليل الهاتف على طريقة سامسونج جالكسي لكني لم أنجح حينها في تنفيذها اليوم وصلت الى الطريقة بحمد الله وشكره واردت مشاركتكم بها المهم وصلت الى طريقة تجعل اللون الابيض يختفي من الفورم حيث يصبح شفافا بل منعدم وبهذه الطريقة اصبح يمكن جعل الفورم ياخذ اي شكل نريده كل ما عليك هو وضع هذا الكود في موديل 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

السلام عليكم كما هو مبين في المرفق السابق ان وضيفة الدائرة جعل الحركة مستمرة وهذا الكود الذي يقوم بجعل الدائرة يدور حول نفسه بأستمرار ما دمنا نريد ذلك Sub engrenage() secondes = 0.1 Do While start timer_avant = Timer Do While Timer < timer_avant + secondes DoEvents Loop Feuil1.Shapes("Ellipse 1").IncrementRotation 9 Loop End Sub ثم وضعت حلقة تكرارية لجعل التكست بوكس واليبل يأخذ لون معين في كل مرة بواسطة هذا الكود Sub SHMove() secondes = 0.2 For a = 1 To 22 b = Feuil1.Cells(a, 1).Value c = Feuil1.Cells(a + 2, 1).Value timer_avant = Timer Do While Timer < timer_avant + secondes DoEvents Loop Me.Label1.BackColor = b Me.TextBox1.BackColor = c Next End Sub بدجهما معا تكون النتيجة كما تلاحط عند تشغيل الفورم يمكن الاستغناء عن الدائرة بادراج كود الوقت وانا لا احبذ ذلك الكود لانه يجعل الملف يهتز كثيرا وهناك حل افضل وهو جعل الدائرة غير مرئية بواسطة هذا الكود Feuil1.Shapes("Ellipse 1").Visible = msoFalse ملاحضة ليس واجب ان تكون دائرة تستطيع تطبيق الامر على اي شكل اما بالنسبة لسؤالك الاخير للاسف ليس لي اجابة عليه الان تحياتي

السلام عليكم يتم بواسطة هذا الكود Me.TextBox1.BackColor = Feuil1.Range("a1").Interior.Color

10/10 شكرا جزيلا استادي الكريم

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

السلام عليكم انضر المرفق عسى ان يكون المطلوب تغيير الالوان في الفورم.rar

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

استادي العزيز مجدي يونس انت تستحق اكثر من هدية او كلامات او عبارت نبتهل بها بشخصك الجميل ولك مني جزيل الشكر ولي عظيم الشرف على الهدية التي اهديتها لي وفرج الله عن ابناء بلدنا الثاني مصر ان شاء الله وكافة الامة العربية كل عام وانت ومصر بخير ان شاء الله تقبل تحياتي وشكري

الاخ الحبيب جمال عبد السميع (ملك المعادلات) لا أعرف مادا أقول لك بعد كلماتك هته التي تنم عن شخصكم الجميل وروحكم الجميلة هي التي ترى ما أقدمه جميلا جزاك الله خيرا اخي الحبيب وكل عام وانت بخير ان شاء الله تقبل تحياتي وشكري

امين يايرب العالمين الاخت الفاضلة ام عبد الله جزاك خيرا لدعائك الجميل هدا والشكر موصول للاستادين عبد الله المجرب و حمادة عمر رمضان كريم وكل عام وانتي بخير تقبلي تحياتي وشكري

الأخ مصطفى كامل رمضان كريم و كل عام وأنت بخير شكرا لمرورك تقبل تحياتي وشكري

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

الاخ اسلام الشامي رمضان كريم وكل عام وانت بخير شكرا لمرورك ولكلماتك تقبل تخياتي وشكري

يا ملك الحركات حركت قلوبنا من كثرة الابداعات افكاركك جديدة وجميلة جزاك االله خيرا الاح سعد عابد اخجلتم تواضعنا رمضان كريم وكل عام وانت بخير شكرا لمرورك ولكلماتك تقبل تخياتي وشكري

الاخ عباس السماوي رمضان كريم وكل عام وانت بخير شكرا لمرورك ولكلماتك تقبل تخياتي وشكري

الاستاد مجدي يونس رمضان كريم وكل عام وانت بخير شكرا لك على هدا الملف الجميل الظريف كما ان طلبك وصل بأسمك على الرابط http://www.officena....showtopic=47870 تقبل تخياتي وشكري

استادي مجدي يونس طلبك وصل بأسمك على الرابط http://www.officena.net/ib/index.php?showtopic=47870