ayman14 قام بنشر مايو 17, 2019 الكاتب مشاركة قام بنشر مايو 17, 2019 وردا على الاستاد رمهان كما قيل يوجد شيئين العلم المنقول والعلم المعقول تفضل لترتاح نفسك فهدا رابط الموضوع توزيع صور على ازرار العلم المنقول هو ما يتبادله الناس من تجارب في جميع المجالات وعند سؤالك عن ( العلم المعقول) ساقوم برد عليك استاد رمهان رابط هذا التعليق شارك More sharing options...
ابو جودي قام بنشر مايو 17, 2019 مشاركة قام بنشر مايو 17, 2019 (معدل) بعد اذن والدى الحبيب واستاذى الجليل ومعلمى القدير المبجل الاستاذ @ابوخليل انا حضرت الجواب ولما وجدت مشاركتك استحييت ان اضع الاجابة التى فكرت بها وعلى استحياء اضح هذا الكود بدون استخدام كود تصييد الاخطاء Dim ctl As Control For Each ctl In Me.Controls If ctl.ControlType = acCommandButton Then If Not IsNull(ctl.Tag) Or ctl.Tag <> "" Or ctl.Tag <> Null Then If Dir(PicBt & ctl.Tag & ".bmp") = "" Then If Dir(PicBt & "0.bmp") = "" Then Exit Sub Else ctl.Picture = PicBt & "0.bmp" End If Else ctl.Picture = PicBt & ctl.Tag & ".bmp" End If End If End If Next ctl Exit Sub تم تعديل مايو 17, 2019 بواسطه ابا جودى رابط هذا التعليق شارك More sharing options...
رمهان قام بنشر مايو 18, 2019 مشاركة قام بنشر مايو 18, 2019 2 ساعات مضت, ayman14 said: توزيع صور على ازرار وعند سؤالك عن ( العلم المعقول) ساقوم برد عليك استاد رمهان ياحبيبنا المعقول انك تشوف تاريخي المشاركة وتعرف انه بعد سنتين تقريبا وبنفس الفكرة وحتى اسم المتغيرات وهذا طبيعي بين المنتديات وحتى انا اخذت من ابو فيصل افكار ولكن في في الفكرة هذي المنتدى هنا له السبق وخاصية صورة العنصر نفسها نفس خاصية التسمية المسالة تغيير الخاصية فقط سواء صورة او خلفية او لون وغيرها اخيرا @ابا جودى وبما ان ابا خليل اشاد بالاختصار فاسمح لي هنا اخالفه وفي : لماذا تنشء دالة تاتي بالمسار واحنا اصلا currentproject.path هي تاتي بالمسار فلماذا اضعها في دالة مستقلة وكذلك دالة مستقلة لجلب المجلد فيمكن ادراجها في الكود الذي تفضلت به وهكذا : Private Sub Form_Open(Cancel As Integer) On Error Resume Next Dim ctl As Control For Each ctl In Me.Controls If ctl.ControlType = acCommandButton Then If Not IsNull(ctl.Tag) Or ctl.Tag <> "" Or ctl.Tag <> Null Then ctl.Picture = CurrentProject.Path & "\" & "Picture Bbutton" & "\" & ctl.Tag & ".bmp" End If End If Next ctl Exit Sub End Sub تحياتي للجميع 14 ساعات مضت, ابوخليل said: اني اشم في الكود رائحة رمهانية زي مايقولو اخواني المصريين : مابدهاش !! 1 رابط هذا التعليق شارك More sharing options...
ayman14 قام بنشر مايو 18, 2019 الكاتب مشاركة قام بنشر مايو 18, 2019 وعليكم السلام اخي الكريم ما شاء الله عليكانت خبير فهدا ما جعلني اسأل في هدا المنتدى العريق ( الخبراء) اعلم جيدا انكم في هدا المنتدى تعطون دون كلل او ملل جزاكم الله عنا كل الخير واعرف كدلك فيه منتديات اجنبية وليست بهده الخبرة الموجودة في هدا المنتدى ( اسؤل والجواب ادفع تاخد ) وشكرا لكل من ساهم ختى ولو بكلمة اما بنسبة للعلم المنقول اخي الكريم كما خصل مع الاخوان كل يدلي بدلوه وفي الاخير النتيجة واحدة وهده كلها اجتهادات بارك الله فيكم اما عن العلم المعقول فهو اخي الكريم ( القرأن) لاتبديل لكلمات الله وشكـــــــــــــــــــــــــــــــــــــــــــرا جزيـــــــــــــــــــــــــــــــــــــلا تمت الاجابة على سؤالي 200ْْ في 100 رابط هذا التعليق شارك More sharing options...
ayman14 قام بنشر مايو 19, 2019 الكاتب مشاركة قام بنشر مايو 19, 2019 السلام عليكم سؤال اخواني الكرام الكود لا غبار عليه ينقص امتدادات الصورة (jpg,png ) اريد اضافة كودلاخد جميع امتداد الصور لا ينحصر البرنامج في امتداد واحد وشكرا رابط هذا التعليق شارك More sharing options...
ابو جودي قام بنشر مايو 20, 2019 مشاركة قام بنشر مايو 20, 2019 14 ساعات مضت, ayman14 said: السلام عليكم سؤال اخواني الكرام الكود لا غبار عليه ينقص امتدادات الصورة (jpg,png ) اريد اضافة كودلاخد جميع امتداد الصور لا ينحصر البرنامج في امتداد واحد وشكرا اخى الكريم هو مش مشكلة اننا نفكر فى اليه لامتداد الصور لكم المشكلة انك ناوى تستخدمهم لزر امر احيانا زر الامر لا يقبل الصور الا بهذا الامتداد لذلك انا نفذت الكود على هذا الاساس رابط هذا التعليق شارك More sharing options...
ayman14 قام بنشر مايو 21, 2019 الكاتب مشاركة قام بنشر مايو 21, 2019 وعليكم السلام بارك الله فيك الامتداد الزر يقبل png,ico, bmp ومعروف انه لا يقبل امتداد jpg الخطأ كان في سرعة الكتابة ما عليش عندي مكتبة كبيرة جدا ولم اتدكر اين وضعت الاكواد خاصة بكل ما يتعلق بخاصية الازرار ما عليش اخي الكريم ابا جودي تعبناك معانا وربي يجازيك الف خير اريد اضافة هده الامتداد الزر يقبل ( png,ico, bmp ) مع كود جعل الصورة خلفية وليست ايقونة كما دكرت سابقا وشكرا مسبقا رابط هذا التعليق شارك More sharing options...
ابو جودي قام بنشر مايو 21, 2019 مشاركة قام بنشر مايو 21, 2019 12 ساعات مضت, ayman14 said: وعليكم السلام بارك الله فيك الامتداد الزر يقبل png,ico, bmp ومعروف انه لا يقبل امتداد jpg الخطأ كان في سرعة الكتابة ما عليش عندي مكتبة كبيرة جدا ولم اتدكر اين وضعت الاكواد خاصة بكل ما يتعلق بخاصية الازرار ما عليش اخي الكريم ابا جودي تعبناك معانا وربي يجازيك الف خير اريد اضافة هده الامتداد الزر يقبل ( png,ico, bmp ) مع كود جعل الصورة خلفية وليست ايقونة كما دكرت سابقا وشكرا مسبقا انا بصراحة مش عارف موضوع تمدد الصورة لتلائم حجم الزر ده ممكن او لاء اعتقد هذا غير منطقى بالنسبة لزر الامر والله اعلم اما بخصوص الامتداد اعمل سطر التأكد من وجود الملف فى المسار بالثلاث امتدادات واللى يجده يكون هو مسار الزر دى فكرة مش حل الله اعلم انا لسه هجرب وارد عليك مع كود جعل الصورة خلفية وليست ايقونة كما دكرت سابقا انا مش فاهم قصد خضرتك ايه تقصد تعمل زر الامر شفاف وخلفه الصورة علشان التمدد دى فكرة تانيه بردو رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.