عبد الله فتحي

عندما أقوم بعمل مجلة فأنا لا أستخدم طريقة معينة بذاتها ... وإنما أقوم باستخدام أي طريقة المهم أنها توصلني إلى هدفي .. وهو ظهور المجلة بعد الطباعة بشكل رائع ..

ألف شكر أستاذ أبو مراد .. وإن شاء الله فاتحة خير لمشاركاتك المتميزة بإذن الله :)

أهلاً بالأخت الفاضلة .. وشكراً للأستاذ محمد على الإجابة ..

إذا كان فهمي لسؤالك صحيحاً فالمسألة بسيطة جداً قم بعمل بتغيير المحاذاة للأسطر فقط ..

معلومة جميلة .. كنت سابقاً أستخدم الأمر: SendKeys Chr(8)

للأسف أخي العائد ليس لدي أوفيس 2000 لكي أجرب .. ولكن حاول أنت عمل نفس الخطوات .. وأعتقد أنها ستصلح ,,

أنا سعيد جداً أنس أنك توصلت إلى مبتغاك ... وإن كنت حاسس إنو فيه شغلة ناقصة ... وبالنسبة لكود الاستئناف بالفعل كان هناك خطأ مطبعي .. وقمت بتصحيحه .. ولك مني التحية

أنس كيفك .. يمكن اتأخرت شويتين بس إيش اسوي الحكاية طلعت مو سهلة، وبصراحة برمجة الPowerPoint فيها شيء ماني فاهمه .. المهم وخلينا في المهم .. الكود اللي قدرت أوصله هو: هذا الكود لتوقيف العرض توقيفاً مؤقتاً: SlideShowWindows(1).View.State = ppSlideShowPaused وهذا الكود لإكمال العرض: SlideShowWindows(1).View.State = ppSlideShowRunning علماً بأنني متأكد أن هذا الكود صحيح، ولكن يوجد شيء ينقصه، وحتى الآن لم أستطع التوصل إليه .. وإذا توصلت إلى جديد سأخبرك .. وأعتقد أن الاستاذ محمد طاهر يستطيع مساعدتنا ..

أخي العائد ما فهمته من آخر رد أنك تريد التنفيذ أي عندما نضغط على زر ما يقوم بتنفيذ الحركة المضافة سابقاً لشكل موجود على الشريحة ... إذا كان هذا ما تقصده .. فقد وضعت الطريقة سابقاً من غير كود فهل جربتها ؟؟؟

أهلاً حبيبي أنس كيفك ... بالنسبة لإيقاف العرض أنا جربت حرف ال S و + بس ما وقف العرض ولا شيء ... المهم هذي ماهي شغلتنا ... برمجياً وإذا بدك كود يضغط على حرف معين .. تحتاج إلى الدالة Sendkeys .. وصيغتها كالتالي: SendKeys ("هنا تكتب ما تريد الضغط عليه") وإذا احتجت أسئلة في برمجة الفيجول بيسيك بإمكانك الذهاب إلى منتدى الفيجول بيسيك والسؤال ونحن في الخدمة ... من وجهة نظري أعتقد أنه يوجد طريقة أخرى لإيقاف العرض غير الضغط على S و + ... وسأقوم بعمل مثال بسيط لتوضيح هذه المسألة ... بالكثير رح يكون عندك بعد ساعة لأني مشغول شويتين ... يدك تنتظرني وبس :lol:

بصراحة مشكلة غريبة ... على أي حال إذا أردت يمكنك إرساله على إيميلي .. وطبعاً رح أحاول أشوف حل .. Herr_Abdu_Fathy@Hotmail.com

أخي العزيز .. بعد التحية: أولاً آسف لتأخري في الرد .. ما أدري وش اللي صار :eek: ثانياً بالنسبة للمشكلة التي ذكرتها فأنا أريدك أن تفهم معي الوضع الآن، أنت ذكرت أن المسافة بين آخر سطر والحاشية مختلفة من صفحة لأخرى، ومن الممكن أن يحدث ذلك دون أي أسباب أو بالأصح شيء عادي ولازم يحدث، لكن المسافات لا تختلف من صفحة لأخرى إلا بشكل بسيط لا يؤثر، والسبب في ذلك أن حجم الفراغ الذي بين آخر سطر وخط الحاشية يكون صغيراً أصغر من حجم خط السطر الأول في الصفحة التالية وبالتالي لا يستطيع رفعها، ولا يوجد حل في هذه الحالة - حسب ما أعتقد - إلا لو صغرت الخطوط أو ما شابه، ولكن حل مباشر ما يوجد لأنو مستحيل ... أو با لأصح لأن هذا شيء طبيعي ومو مشكلة ... لكن أنا فهمت من سؤالك إن المسافة كبيرة بحيث تكفي السطر الأول من الصفحة التالية، وهنا يكون الحل في إعداد الفقرة وإلغاء الخيارات التي ذكرتها لك .. ولا تنس أن يكون النص محدداً قبل ذلك ... يعني حدد الملف كله وإعمل إعداد الفقرة كالسابق، ولو عملت كده أنا متأكد إنو كل شيء رح تزول المشكلة ... لكن إذا ما زالت خبرني مرة ثانية ... والله يكون في عونك أخي العزيز ..

مو مشكلة أخت رحيل :) يمكن حصلت ظروف منعت ... ولكن أكيد رح يجي مرة ثانية ... بعدين اسمه العائد ... يعني أكيد رح يعود :pp: ...

طيب أنا ما عندي الوورد الحين ... بس أنا كان قصدي تلغي تفعيل كل الخيارات وليس تفعيلها كلها ...

أعتقد أن حل المشكلة موجود في تنسيق الفقرة، وتحديدا في فواصل الصفحات ...

هاهي أداة الـ Microsoft Winsock Control 6.0 WinSock.rar

الإخوة الأعزاء بما أن الأمر يُهم بعضكم فإليكم طريقة أخرى سهلة جداً ولا تحتاج إلى كود طويل، ولكننا سنستخدم فيها أداة الوينسوك .. طبعاً سنقوم بإنشاء نموذج جديد، ومن مربع الأدوات نقوم برسم أداة زر أمر، ثم بعدها ومن مربع الأدوات أيضاً نقوم باختيار عناصر تحكم إضافية، وهنا ستظهر لنا قائمة طويلة قم باختيار الأداة Microsoft Winsock Control منها، ثم قم برسمها على النموذج .. الآن تأكد من أن اسم الأداة الجديدة هو Winsock1 ثم بعد ذلك ضع الكود التالي في حدث النقر على الزر: If Winsock1.LocalIP = "127.0.0.1" Then MsgBox ("الجهاز غير متصل بالانترنت") Else MsgBox ("الجهاز متصل بالانترنت") End If كما ترون الكود سهل جداً ولا يحتاج إلى موديول ولا إلى غيره، فقط سنحتاج الأداة المذكورة سابقاً .. وبعدها سنجعل الأداة تتحقق من رقم الأي بي فإذا كان 127.0.0.1 فهذا يعني أننا غير متصلين بالإنترنت، وإذا كان غير ذلك فهذا يعني أننا متصلين بها .. وفي المثال المرفق تجد نموذج واحد يحتوي على ما ذكرناه .. وإليكم تحياتي. Check2.rar

أخي أمير شكراً لك .. وأنا لم أقم بأي جهد يُذكر :hart: وكل التقدير لك وللأستاذ محمد طاهر على ما تقدمونه لنا من مجهودات عظيمة .. أرجو أن يجعلها الله في ميزان حسناتكما

بودي لو أستطيع المساعدة :) لدي كود للتحقق من الاتصال بالانترنت ولكنه طويل جداً ... حالياً أنا أبحث عن كود أقصر ..

أهلاً بك أخي الراحل بيننا

:yess: :yess:

بسم الله الرحمن الرحيم أهلاً أخي محمد وشكراً على المجاملة الرقيقة .. بصراحة أنا أول ما حاولت أحل هذي المشكلة حطيت في بالي إنو لازم كود، وهذا اللي عقدني، مع إنو لغة الفيجول بيسيك سهلة إلا إني ما عرفت كيف أحدد اسم للـ shapes في نافذة الكود و..... المهم فيه طريقة أخرى لعمل ذلك بدون الحاجة إلى كود، وهي أسهل، وما دامت تؤدي الغرض فلا حاجة لنا إلى الكود. إليك الطريقة أخي العائد بعد إذن الأخ محمد طاهر والأخت رحيل: 1. قم برسم زر إجراء مخصص من: عرض الشرائح >> أزرار إجراءات، وعندما تظهر لك إعدادات الإجراء إنقر على إلغاء الأمر. 2. بعد ذلك قم بتحديد الـ shape الذي تريده، ثم أضف له التأثير الذي تريده. 3. بعدها قم بالذهاب إلى خيارات التأثير كما في الصورة التالية: 4. سيظهر لك نموذج يحتوي على ثلاث تبويبات (تأثير - التوقيت - حركة النص) 5. اذب إلى التبويب( التوقيت ) وانقر على الزر مشغلات. 6. هنا ستظهر لك خانتي اختيار، اختر الخانة السفلية (بدء التأثير عن نقر) 7. اختر الآن زر إجراء مخصص ... واستمتع بمشاهدة النتيجة .. ولا تنسى تدعيلي. تحياتي لك أخي العائد ... وتحياتي الخاصة للقائمين على هذا المنتدى المميز :yess: :yess: ...

شو هادا السؤال عقدني :lol:

:yess: شرح رائع وجميل .. جزاك الله خيراً .. :yess:

خطوط تروتايب هي حسب علمي الخطوط القابلة للتصغير والتكبير .. وبالتالي فالخطوط التي نستخدمها هي خطوط تروتايب .. وعما إذا كان ذلك يعني أنه سيحفظها مع الملف ... فالتجربة خير برهان ..