جعفر الطريبق قام بنشر سبتمبر 19, 2015 قام بنشر سبتمبر 19, 2015 (معدل) كود لجعل الفورم شفاف مع الابقاء على شريط عنوان الفورم و اطاره و على جميع الكونترولات بداخله ملف للتحميل : https://app.box.com/s/pzaml5g8slh8kq7bd03axq01vzmrldai الكود في موديول الفورم: 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 crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long Private Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, ByVal wCmd As Long) As Long Private Const LWA_COLORKEY = &H1 Private Const GWL_EXSTYLE = (-20) ' Private Const WS_EX_LAYERED = &H80000 Private Sub UserForm_Initialize() Dim hwnd As Long hwnd = FindWindow(vbNullString, Me.Caption) SetWindowLong hwnd, GWL_EXSTYLE, GetWindowLong(hwnd, GWL_EXSTYLE) Or WS_EX_LAYERED Me.BackColor = vbRed SetLayeredWindowAttributes hwnd, vbRed, 0&, LWA_COLORKEY End Sub تم تعديل سبتمبر 19, 2015 بواسطه جعفر الطريبق 7
عبد العزيز البسكري قام بنشر سبتمبر 19, 2015 قام بنشر سبتمبر 19, 2015 السلام عليكم و رحمة الله و بركاته جزاك الله خيرًا أستاذنا الفاضل .. و الله تحفة حقيقية .. واصل تألّقك و إبداعاتك بارك الله فيك .. وفّقك الله و سدّد خطاك لما يحبّه و يرضاه خالص احتراماتي 1
محمد حسن المحمد قام بنشر سبتمبر 19, 2015 قام بنشر سبتمبر 19, 2015 السلام عليكم و رحمة الله و بركاته جزاك الله خيرًا أستاذنا الفاضل جعفر الطريبق المحترم: كما قال أخي عبد العزيز البسكري... تحفة حقيقية .. واصل تألّقك و إبداعاتك بارك الله فيك .. وفّقك الله و سدّد خطاك لما يحبّه و يرضاه خالص احتراماتي 1
إبراهيم ابوليله قام بنشر سبتمبر 19, 2015 قام بنشر سبتمبر 19, 2015 اخى واستاذنا جعفر ايه الجمال والحلاوه دى مش بقولك شكلك كده الجراب بتاعك مليان على الاخر طلع ياريس تقبل تحياتى
الصـقر قام بنشر سبتمبر 19, 2015 قام بنشر سبتمبر 19, 2015 استاذى الحبيب جزاكم الله خيرا وزادك من علمه وفضله واصل ونحن معك تقبل تحياتى
محمد عبدالسلام قام بنشر سبتمبر 19, 2015 قام بنشر سبتمبر 19, 2015 (معدل) السلام عليكم و رحمة الله و بركاته جزاك الله خيرًا أستاذنا الفاضل جعفر الطريبق تم تعديل سبتمبر 19, 2015 بواسطه محمد عبدالسلام 1
saad abed قام بنشر سبتمبر 19, 2015 قام بنشر سبتمبر 19, 2015 اخى جعفر جزاك الله خيرا ايه الحلاوه دى انظر للمحاسبين نظره كده واعملنا كشف حساب بمتغيرات بين تاريخين من صنع ايدك انت بالفورم يا ريت بالطريقه المغربية الجعفريه وفقكم الله 1
Yasser Fathi Albanna قام بنشر سبتمبر 19, 2015 قام بنشر سبتمبر 19, 2015 أخى الحبيب الفاضل أ / جعفر الطريبق بالفعل عمل أكثر من رائع جزاك الله به خيرا 1
ياسر خليل أبو البراء قام بنشر سبتمبر 19, 2015 قام بنشر سبتمبر 19, 2015 50 مشاركة ... 67 إعجاب .. يعني إعجاباتك تجاوزت عدد مشاركاتك وهذ متوقع من أعمالك التي حرمنا منها طويلاً الحمد لله أن رزقنا الله بك أخي الحبيب جعفر تقبل تحياتي 3
إبراهيم ابوليله قام بنشر سبتمبر 19, 2015 قام بنشر سبتمبر 19, 2015 50 مشاركة ... 67 إعجاب .. يعني إعجاباتك تجاوزت عدد مشاركاتك وهذ متوقع من أعمالك التي حرمنا منها طويلاً الحمد لله أن رزقنا الله بك أخي الحبيب جعفر تقبل تحياتي انت فين ياعم ياسر باعتلك رساله ليش مارديت المهم طمنى انت مكمل معانا قبل العيد ولا عيدت انا عايز اكمل الموضوع بس محتاج متابعتك علشان لو فيه هفوه عدت عليا تلحقنى بيها تقبل تحياتى
ياسر خليل أبو البراء قام بنشر سبتمبر 27, 2015 قام بنشر سبتمبر 27, 2015 أخي الحبيب إبراهيم كنت في أجازة العيد اعذرني إن شاء الله وبعونه نستكمل ونحاول استرجاع معلوماتنا في الإكسيل .. الأجازة بخرت المعلومات
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.