محمد عبدالسلام قام بنشر سبتمبر 20, 2015 قام بنشر سبتمبر 20, 2015 (معدل) هداكود لجعل الفورم شفاف مع تحكم فيه Userform_.zip تم تعديل سبتمبر 20, 2015 بواسطه محمد عبدالسلام
مختار حسين محمود قام بنشر سبتمبر 20, 2015 قام بنشر سبتمبر 20, 2015 جميل جدا يا أستاذ محمد عبد السلام بارك الله فيكم هذا الرابط مفيد و له علاقه بموضوعك http://www.officena.net/ib/topic/63770-transparent-userform-فورم-شفاف/ أطلب من الادارة تعديل لعنوان الموضوع الى كود للتحكم فى درجة شفافية الفورم ليصبح العنوان أكثر تعبيرا عن محتواه تحياتى 3
عبد العزيز البسكري قام بنشر سبتمبر 20, 2015 قام بنشر سبتمبر 20, 2015 السلام عليكم و رحمة الله و بركاته بارك الله فيك أستاذي القدير مختار حسين محمود على الرابط أعلاه .. شامْبُو اثنين X واحد .. جزاك الله خيرًا و زادها بميزان حسناتك خالص احتراماتي 1
جعفر الطريبق قام بنشر سبتمبر 20, 2015 قام بنشر سبتمبر 20, 2015 الكود في الملف يحتاج الى كونترول أو dll .. فهو لا يشتغل عندي لكن في الحقيقة جعل الفورم شفاف مع التحكم في درجة الشفافية لا يحتاج الى أي كونترولات أو Com Dlls ثم هنالك فرق بين شفافية الفورم في االرابط http://www.officena.net/ib/topic/63770-transparent-userform-فورم-شفاف/ و الدي يعمل الشفافية على وسط الفورم فقط Client Area و يبقي على الكونترولات و شريط العنوان TitleBar و بين الكود في الرابط Userform_.zip و اللدي يخفي الشريط و الكونترولات و كل شيئ 2
مختار حسين محمود قام بنشر سبتمبر 21, 2015 قام بنشر سبتمبر 21, 2015 بارك الله فيك أخى الحبيب العزيز زيزو أستاذى الفاضل جعفر ملف الأستاذ محمد يعمل عندى تمام و ملف حضرتك FormattedUserFormCaption لا يعمل عندى هل هذا معناه أن فيه كونترول أو dll ناقص عندى ؟ مع ملاحظة أن الفيجوال بيزك عندى ما قالش أن فيه dll مفقود الملف بصراحة جميل وعايزه يشتغل لأن فكرته جميلة أوى فيه حاجة كمان مش قادر أفهمها حضرتك قلت على ملف الأخ محمد أن " الكود في الملف يحتاج الى كونترول أو dll .. فهو لا يشتغل عندي " و قلت " جعل الفورم شفاف مع التحكم في درجة الشفافية لا يحتاج الى أي كونترولات أو Com Dlls " طيب ماشى ..... فى ملف الأستاذ محمد بنقدر نتحكم فى درجة الشفافية ..... اذن الملف لا يحتاج الى أي كونترولات أو Com Dlls ؟ صح كده ولا أنا فيه حاجه مش واخد بالى منها ؟
إبراهيم ابوليله قام بنشر سبتمبر 21, 2015 قام بنشر سبتمبر 21, 2015 بصراحه رد استاذنا جعفر معبر جدا ومفيد ودائما ما يزيد بارك الله فيه
جعفر الطريبق قام بنشر سبتمبر 21, 2015 قام بنشر سبتمبر 21, 2015 أستاذى الفاضل حسين يبدو أنني لم أوفق في التعبير عما أقصده الملف لا يعمل عندي لأن الفورم يحتوي على Slider Control و هدا الكونترول لا يوجد في ال MSFORMS Lybrary ... و هدا ال OCX Control أي ال Slider Control لا يوجد بالضرورة في كل جهاز فأنا مثلا ليس لدي هدا الكونترول .. لتفادي مثل هده المشاكل من الأفضل دائما استعمال Default Controls .. الكود أدناه يستعمل ال ScrollBar Control الدي هو موجود دائما مع الأكسيل فورم ملف للتحميل : https://app.box.com/s/jff2a32tl4x5uoyoowbi16eb39ku3yrz 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 crey As Byte, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long Private Const GWL_EXSTYLE = (-20) Private Const WS_EX_LAYERED = &H80000 Private Const LWA_ALPHA = &H2& Private hwnd As Long Private bytOpacity As Byte Private Sub UserForm_Initialize() hwnd = FindWindow("ThunderDFrame", Me.Caption) Call SetWindowLong(hwnd, GWL_EXSTYLE, GetWindowLong(hwnd, GWL_EXSTYLE) Or WS_EX_LAYERED) Call SetLayeredWindowAttributes(hwnd, 0, 255, LWA_ALPHA) ScrollBar1.Min = 0 ScrollBar1.Max = 255 ScrollBar1.SmallChange = 3 Label1.Caption = "Transparency : " & 0 & "%" bytOpacity = ScrollBar1.Max End Sub Private Sub ScrollBar1_Change() Call AdjustFormTransparency End Sub Private Sub ScrollBar1_Scroll() Call AdjustFormTransparency End Sub Private Sub AdjustFormTransparency() bytOpacity = 255 - ScrollBar1.Value Call SetLayeredWindowAttributes(hwnd, 0, bytOpacity, LWA_ALPHA) Label1.Caption = "Transparency : " & 100 - (100 * bytOpacity \ 255) & "%" End Sub التحدي الحقيقي هو كيف يمكن التحكم في درجة شفافية الفورم كما فعلنا هنا لكن بدون اخفاء الكونترولات الموجودة داخل الفورم أو ال TitleBar كما هو مطروح في موضوع الرابط التالي : http://www.officena.net/ib/topic/63770-transparent-userform-فورم-شفاف/ 1
عبدالواحد احمد قام بنشر سبتمبر 21, 2015 قام بنشر سبتمبر 21, 2015 (معدل) السلام عليكم و رحمة الله و بركاته بارك الله فيك أستاذي القدير جعفر الطريبق على هدا الكود لي طلب اريد اضافات الكود في هدا الملف لجعل الفورم شفاف لقد حاولت تعديل عليه ليعمل ولم نجح اكود لجعل الفورم شفاف.zip تم تعديل سبتمبر 21, 2015 بواسطه عبدالواحد احمد
مختار حسين محمود قام بنشر سبتمبر 21, 2015 قام بنشر سبتمبر 21, 2015 أشكرك أستاذى العزيز على اجابتك و سعة صدرك لكن سؤالى الأساسى عن ملف حضرتك Formatted Userorm Caption فى موضوعك كيفية تغيير لون شريط العنوان لليوزرفورم و تغيير شكل و لون و حجم الخط ال Caption لماذا لا يعمل عندى هذا الملف أعمل على mso 2010 معلش ان كنت تعبتك معى الملف بصراحة جميل وعايزه يشتغل على العموم أنا سأعيد تحميله جايز يكون هناك خطأ
جعفر الطريبق قام بنشر سبتمبر 22, 2015 قام بنشر سبتمبر 22, 2015 الأستاد الفاضل مختار حسين لست متأكدا من سبب عدم عمل الملف عندك .. أحيانا بعض ال API Functions لا تشتغل على ال Windows 7 للأسف ليس عندي جهاز يشتغل على ال Windows 7 لكي أجرب الكود
مختار حسين محمود قام بنشر سبتمبر 22, 2015 قام بنشر سبتمبر 22, 2015 أخى وأستاذى جعفر بارك الله فيك وفى عملك من أجل نشر العلم تحياتى لك ولكل أهلنا فى المغرب الحبيب كل سنة وأنت طيب
عبدالواحد احمد قام بنشر سبتمبر 22, 2015 قام بنشر سبتمبر 22, 2015 (معدل) ارجو اطلاع على الموضوع تم تعديل سبتمبر 22, 2015 بواسطه عبدالواحد احمد
عبدالواحد احمد قام بنشر سبتمبر 22, 2015 قام بنشر سبتمبر 22, 2015 ارجو الطلاع لماذا لا يعمل عندى هذا الكود في الملف اكود لجعل الفورم شفاف.zip
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.