المساعد الشخصي الرقمي

مشاهدة النسخة كاملة : تغيير صورة واجهة المشروع


عبد العزيز البسكري
28-03-2017, 07:42 PM
السّلام عليكم و رحمة الله و بركاته
إخواني الأفاضل أدعو الله مخلصًا أنْ تكونوا كلّكم بتمام الصحّة و العافيّة و راحة البال و كل أفراد أُسَرِكم الكريمة إن شاء الله
فضلٌ و إحسانٌ منكم أن تدلّوني لو تكرّمتم بكيفية إضافة هذه اللّمسة الجميلة و التي قمت بمتابعتها بهذا الدّرس :
http://www.abc4web.net/vb/showthread.php?t=33476
لديّ واجهة لمشروعي و بها عدد 3 صور .. ما أريده هو تغيّر واجهة المشروع بمجرّد مرور الماوس على الصورة فيأخذ شكل الصورة التي مررت بها
قمت بوضع ثلاث صور على واجهة المشروع ثم وضعت السكريبت في حدث ON ENTER بجميع الصور الموجودة
Application.SetPageProperties("Page1", {BackgroundType= 2});
Application.SetPageProperties("Page1", {ImageFilename = Image.GetFilename(this)})

لكن مع الأسف ..عند مرور الماوس لا يتغيّر شيئًا ..
الجانب الآخر من السؤال هو بزر الأمر .. كيف يتم تغيير واجهة المشروع من خلال إختيار الشكل من على الكمبيوتر .. فزر الأمر الموجود لديَّ يقوم بالبحث لكن عند إختيار الصورة ثم الضغط عليه لا يتغيّر شكل الواجهة .. مع أنّي وضعت هذا السكريبت بزر الأمر :
img = Dialog.FileBrowse(true, "اختر صورة ", "C:\\WINDOWS\\Web\\Wallpaper", "All Files (*.*)|*.*|", "", "jpg", false, false);

if (img[1] ~= "CANCEL") and (img[1] ~= nil) then
Application.SetPageProperties("Page1", {BackgroundType= 2});
Application.SetPageProperties("Page1", {ImageFilename = img[1]})
end
بارك الله فيكم و لكم مسبّقًا و جزاكم خير الجزاء و زادها بموازين حسناتكم
فائق الإحترام و الشّكر و التّقدير

ثامر أبو بلقيس
28-03-2017, 09:31 PM
بالنسبة للشق التاني من سؤالكم

جيد لو تجرب قبل تجربة الكود

تحقيق الاجراء التالي يدويا

https://f.top4top.net/p_452xkouk1.png

وقد يكون هو الحل للشق الأول كذلك

عبد العزيز البسكري
28-03-2017, 11:10 PM
بالنسبة للشق التاني من سؤالكم

جيد لو تجرب قبل تجربة الكود

تحقيق الاجراء التالي يدويا

https://f.top4top.net/p_452xkouk1.png

وقد يكون هو الحل للشق الأول كذلك
السّلام عليكم و رحمة الله و بركاته
بارك الله فيك و لك أخي الكريم " ثامر أبو بلقيس " و جزاك خير الجزاء
فعلاً بتفعيل الخيار المشار إليه من طرفك تحقّق المطلوب بالتّمام و الكمال .. و الكمال لله وحده
بارك الله فيك إلى ما لا نهاية من المرّات
فائق الإحترام و الشّكر و التّقدير و الإمتنان

ثامر أبو بلقيس
29-03-2017, 01:14 AM
السّلام عليكم و رحمة الله و بركاته
بارك الله فيك و لك أخي الكريم " ثامر أبو بلقيس " و جزاك خير الجزاء
فعلاً بتفعيل الخيار المشار إليه من طرفك تحقّق المطلوب بالتّمام و الكمال .. و الكمال لله وحده
بارك الله فيك إلى ما لا نهاية من المرّات
فائق الإحترام و الشّكر و التّقدير و الإمتنان

سعدت بوصولك لحل الإشكال .. سلامي و احتراماتي لك و لكل أهل بسكرة الطيبون

موفق :abc_138:

ثامر أبو بلقيس
29-03-2017, 01:23 AM
لي عندك طلب هل يمكن إدراجه في هذه الصفحة و هو متعلق بالايكسل :abc_138:

عبد العزيز البسكري
29-03-2017, 03:33 AM
أهلا أخي الكريم " ثامر أبو بلقيس "
نعم و بكل سرور و بصدر رحب
فائق الإحترامات

محمد بن أحمد أبو حذيفة
29-03-2017, 08:44 AM
بسم الله الرحمن الرحيم
متابع

ثامر أبو بلقيس
29-03-2017, 09:16 AM
أهلا أخي الكريم " ثامر أبو بلقيس "
نعم و بكل سرور و بصدر رحب
فائق الإحترامات

كل شيء عن دالة البحث vlookup

عبد العزيز البسكري
29-03-2017, 10:15 AM
السّلام عليكم و رحمة الله و بركاته
أخي الكريم " ثامر أبو بلقيس "
سأقوم بإذن الله بتجميع ما يمكن تجميعه و يكون شامل و كامل و أخبرك ريثما يتم ذلك
فائق الإحترامات

ربيع
29-03-2017, 05:16 PM
اذ أردت التفعيل برمجيا
الأول:abc_139:ـ :
Application.SetPageProperties(Application.GetCurre ntPage(), {BackgroundType= 2,ImageFilename = Image.GetFilename(this),UseCustomSettings = true});


الثانــ:abc_022:ـــي
img = Dialog.FileBrowse(true, "اختر صورة ", _WindowsFolder.."\\Web\\Wallpaper", "All Files (*.*)|*.*|", "", "*", false, false);
if img[1] ~= "CANCEL" then
Application.SetPageProperties(Application.GetCurre ntPage(), {BackgroundType= 2,ImageFilename = img[1],UseCustomSettings = true});
end

عبد العزيز البسكري
29-03-2017, 06:10 PM
السّلام عليكم و رحمة الله و بركاته
بارك الله فيك و لك أخي الفاضل " ربيع " على الإضافة المميّزة و التي إشتغلت معي على أحسن ما يرام
جزاك الله خير الجزاء و زادها بموازين حسناتك
فاصلة صغيرة سبّبت لي مشاكل كثيرة .. إنتبهت لها الآن فقط
الحمد لله الذي بنعمته تتم الصالحات
فائق إحتراماتي

عبد العزيز البسكري
30-03-2017, 11:30 PM
بسم الله الرّحمن الرحمن
السّلام عليكم و رحمة الله و بركاته
أخي الكريم " ثامر أبو بلقيس "
أدعو الله مخلصا من كل قلبي أن تكون بتمام الصحّة و العافية و راحة البال و كل أفراد الأسرة الكريمة إن شاء الله
للتّنويه .. حاولت مراسلتك على الخاص لكن لم أجد هذه الخاصية أظن أنّها ليست متاحة .. فاضطررت للكتابة هنا :
بالنسبة لدالة البحث الرّأسي أو VLOOKUP أو بالفرنسية RECHERCHEV ..البحث العمودي VERTICAL
في الواقع تتشعب هذه الدالة كثيرا .. و من حيث المبدأ أردت أن أشير بالبداية إلى نقطتين أساسيتين و هما :
1- إستعمال هذه الدالة على ورقة الإكسل كمعادلة
2- إستعمال هذه الدالة على اليوزرفورم واستعمال محرّر الأكواد و تكون ورقة الإكسل فقط مصدر للبيانات
تجد بالملف المرفق ..مثال لاستعمال هذه الدالة على شيت الإكسل و هو ملف شخصي مفتوح أنجزته منذ مدة لتسيير بعض الإمتحانات المدرسية و تقريبا كل صفحاته هي عبارة عن هذه الدّالة .. تجد أيضا ملف بسيط لكيفية إستعمال هذه الدالة من خلال محرّر الأكواد
أرفقت بعض الأمثلة التي تبرز كيفية إستعمال هذه الدالة و كذلك ملفات فيديو حيث أعتبرهم من أفضل ما شاهدته خلال بداية مسيرتي في عالم الإكسل
سأضيف لك بالمستقبل القريب إن شاء الله ..تنوّع إستعمالها و دمجها مع دوال أخرى كدالة IF أو ما تعرف ب SI الشرطية أو دمجها مع الدالة COUNTIF مثلا ..
إلى ذلك الحين ..دمت بود أخي الكريم ..
فائق الاحترام و التقدير و الشكر و الامتنان
رابط الملف :
http://www.mediafire.com/file/3ibqjcbes69mssw/VLOOKUP+RECHERCHEV.rar

ثامر أبو بلقيس
31-03-2017, 12:12 AM
بسم الله الرّحمن الرحمن
السّلام عليكم و رحمة الله و بركاته
أخي الكريم " ثامر أبو بلقيس "
أدعو الله مخلصا من كل قلبي أن تكون بتمام الصحّة و العافية و راحة البال و كل أفراد الأسرة الكريمة إن شاء الله
للتّنويه .. حاولت مراسلتك على الخاص لكن لم أجد هذه الخاصية أظن أنّها ليست متاحة .. فاضطررت للكتابة هنا :
بالنسبة لدالة البحث الرّأسي أو VLOOKUP أو بالفرنسية RECHERCHEV ..البحث العمودي VERTICAL
في الواقع تتشعب هذه الدالة كثيرا .. و من حيث المبدأ أردت أن أشير بالبداية إلى نقطتين أساسيتين و هما :
1- إستعمال هذه الدالة على ورقة الإكسل كمعادلة
2- إستعمال هذه الدالة على اليوزرفورم واستعمال محرّر الأكواد و تكون ورقة الإكسل فقط مصدر للبيانات
تجد بالملف المرفق ..مثال لاستعمال هذه الدالة على شيت الإكسل و هو ملف شخصي مفتوح أنجزته منذ مدة لتسيير بعض الإمتحانات المدرسية و تقريبا كل صفحاته هي عبارة عن هذه الدّالة .. تجد أيضا ملف بسيط لكيفية إستعمال هذه الدالة من خلال محرّر الأكواد
أرفقت بعض الأمثلة التي تبرز كيفية إستعمال هذه الدالة و كذلك ملفات فيديو حيث أعتبرهم من أفضل ما شاهدته خلال بداية مسيرتي في عالم الإكسل
سأضيف لك بالمستقبل القريب إن شاء الله ..تنوّع إستعمالها و دمجها مع دوال أخرى كدالة IF أو ما تعرف ب SI الشرطية أو دمجها مع الدالة COUNTIF مثلا ..
إلى ذلك الحين ..دمت بود أخي الكريم ..
فائق الاحترام و التقدير و الشكر و الامتنان
رابط الملف :
http://www.mediafire.com/file/3ibqjcbes69mssw/VLOOKUP+RECHERCHEV.rar

بــــارك الله فيك .. أخــــي عبد العزيــــز ما أرسلته فاق المأمـــول بارك الله فيك
سأتفرغ لقراءة خفايا هذه الدالـــة و إن أستعصي عني أمر سأتصل

ملاحظة أخي الكريم برنامج تسيير الامتحانات الفصليــة بالنمط الموجود قد لا يتوافق مع
ما طرأ من تغيير في طريقة التقويم على كل يبدو أنك زميل مهنة فلابأس إن رأيت أني أفيد
بما تعلق بالمناهج القديمة أو الجيل الثاني أن نتواصل :abc_138:


تقديري لشخصكم الكريم :abc_138:

عبد العزيز البسكري
31-03-2017, 12:39 AM
السّلام عليكم و رحمة الله و بركاته
الحمد لله الذي بنعمته تتمّ الصالحات
أتشرّف و أعتز بمعرفتك .. أخ كريم و أستاذ فاضل هنا بالمنتدى العريق و زميل بالمهنة
في الحقيقة أخي " ثامر أبو بلقيس " .. قد أشرت لك بمشاركتي أعلاه أنّي قد أنجزته منذ مدّة و لم يعد صالحا للإستعمال .. أرسلته لك فقط من حيث تواجد دالة البحث الرأسي خاصة بكشوف النقاط
إبتعدت نوعا ما عن الإكسل و حاولت إنجاز بعض البرامج التنفيذية الخاصة بالمدرسة و شؤون المدرسين .. منها :
برنامج كشف الراتب :
http://www.djelfa.info/vb/showthread.php?t=1930549
برنامج حساب المعاش :
http://www.djelfa.info/vb/showthread.php?t=2010643
تسيير الامتحانات الفصلية و هذه صورة منه .. سأرسل لك نسخة مخصصة مهداة بإذن الله :
https://a.top4top.net/p_4546204u1.jpg
للحديث بقية بعون الله
فائق الإحترامات

عبد العزيز البسكري
16-04-2017, 01:55 AM
السّلام عليكم و رحمة الله و بركاته
أخي الكريم " ثامر أبو بلقيس " .. كيلا أخلف وعدي تفضّل هذا البرنامج لتسيير الإختبارات الفصلية
كنت أريد أن أجمع بين الأوتوبلاي و الفيجوال بيسك و الإكسل .. فتعثّر لديَّ برنامج الأوتوبلاي بسبب هذا الخلط في المكتبات مع كامل الأسف .. سأقوم بالتعديل ريثما أعيد تسطيب الوينداوز لتصحيح الإختلالات
إغتنمت هذه الفرصة لإبداء رأيك و ملاحظاتك لإستدراكها لأنّني أنجزته على عجالة ..
تركت كل شيء مفتوحا بما في ذلك قاعدة البيانات و لم أقم بتشفيرها حتى تتمكن من رؤية الأمور عن قرب
أكيد أخي الفاضل ستحتاج إلى بعض الأدوات لتسجيلها فقط أخبرني برسائل الخطأ التي تظهر لديك لأتمكن من معاينة تسجيل هذه الأدوات الخارجية
إلى ذلك الحين فائق الإحترام و الشكر و التقدير
رابط تحميل الملف :
http://www.mediafire.com/file/nm21ugxdnr3qfik/%D8%A5%D8%AF%D8%A7%D8%B1%D8%A9+%D8%A7%D9%84%D8%A5% D8%AE%D8%AA%D8%A8%D8%A7%D8%B1%D8%A7%D8%AA+%D8%A7%D 9%84%D9%81%D8%B5%D9%84%D9%8A%D8%A9.rar

ثامر أبو بلقيس
16-04-2017, 09:15 AM
شكرا جزيــــلا وبارك الله فيك أخي قد ينقصني رقم المرور و اسم المستخدم
للإطلاع على هذا العمـــل فقط هي ملاحظة أنه سيصدر منشور جديد عن قريب يحدد آلية
التقييم بطريقة جديدة لذلك قد تنتظر قلبلا قبل النشر لتحيين برنامجك مع المستجدات
شكرا أستاذي :abc_138:

عبد العزيز البسكري
16-04-2017, 12:42 PM
شكرا جزيــــلا وبارك الله فيك أخي قد ينقصني رقم المرور و اسم المستخدم
للإطلاع على هذا العمـــل فقط هي ملاحظة أنه سيصدر منشور جديد عن قريب يحدد آلية
التقييم بطريقة جديدة لذلك قد تنتظر قلبلا قبل النشر لتحيين برنامجك مع المستجدات
شكرا أستاذي :abc_138:

أهلا عزيزي الغالي " ثامر أبو بلقيس "
آسف و الله بجد آسف عن عدم إنتباهي للاسم المستخدم و كلمة المرور ..
Thamer 123456
ملاحظة : تركت قاعدة البيانات مفتوحة كان يمكن الاطّلاع عليهما
فائق إحتراماتي

ثامر أبو بلقيس
16-04-2017, 02:20 PM
البرنامج ممتاز شكلا و مضمونا

سأكلمك هاتفيا مساء :abc_138:

عبد العزيز البسكري
16-04-2017, 02:41 PM
السلام عليكم و رحمة الله و بركاته
ألف مرحبا و أهلا و سهلا بكل الأوقات
فقط اذا أردت قم بمسح اسم المستخدم و كلمة المرور من قاعدة البيانات بالقرص c
لكي يبدأ البرنامج باسم مدير نظام من انشائك
فائق احتراماتي أستاذي الكريم

ثامر أبو بلقيس
17-04-2017, 12:44 AM
السلام عليكم و رحمة الله و بركاته
ألف مرحبا و أهلا و سهلا بكل الأوقات
فقط اذا أردت قم بمسح اسم المستخدم و كلمة المرور من قاعدة البيانات بالقرص c
لكي يبدأ البرنامج باسم مدير نظام من انشائك
فائق احتراماتي أستاذي الكريم

تشرفت بسماع صوتك دمت أخا و سنلتقي إن شاء الله في العطلة
و مرحبا بك في أي وقت :abc_138:

عبد العزيز البسكري
17-04-2017, 01:31 AM
تشرفت بسماع صوتك دمت أخا و سنلتقي إن شاء الله في العطلة
و مرحبا بك في أي وقت :abc_138:
بسم الله الرحمن الرحيم
شعور متبادل و محبة أخويّة متبادلة
أسمى معاني السعادة و قمّة الشّرف التّعرف على أناس طيّبين .. طيبتك أخي الكريم " ثامر أبو بلقيس "
إحتراماتي

محمد رمضان أبو يوسف
27-04-2017, 02:02 AM
شكرا جزيلا أخوتى الكرام بصراحة كل يوم بحصل على إضافة جديدة و جميلة من عندكم جزاكم الله خيرا كثيرا و جعلة فى ميزان حسانتكم يوم العرض علية

محمد رمضان أبو يوسف
27-04-2017, 02:05 AM
سؤال - كيف يمكن أن أغير ثيم المشروع و ليس الخلفية