عبد الله فتحي

أهلاً حبيبي أنس كيفك ... بالنسبة لإيقاف العرض أنا جربت حرف ال 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:

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

بدكم دورة بوربوينت .. طيب .. أنا مستعد .. بس كم بتدفعوا لي ؟؟ :p أمزح :) .. بصراحة أنا شايف أن البور بوينت ما هو بالصعوبة التي تحتاج إلى دورة .. وكثيرين تعلموا هذا البرنامج بالتجربة ... خصوصا أن إضدارة XP العربية سهلت الكثير من المسائل ..

بسم الله الرحمن الرحيم أخي العزيز s-click ... بعد ألف تحية: أعتذر عن كون الرد متأخراً بعض الشيء، ولكن إليك هذا الحل ربما يفيدك: يمكنك تشغيل ملف صوتي عند بداية تشغيل الملف كالتالي: 1/ قم باختيار أدوات >> ماكرو >> محرر فيجول بيسيك. 2/ ستظهر لك شاشة جديدة تحتوي في جانبها الأيسر على النافذة Project، وستجد فيها بندين رئيسيين هما Normal و Project والفرق بينهما أننا لو أضفنا على الـ Normal فهذا يعني أن ما سنضيفه سيتم تطبيقه على القالب العمومي، وبالتالي سيقوم بتشغيل الملف الصوتي كلما نقوم بتشغيل أي ملف وورد، أما لو أضفنا على الـ Project فإنه سيتم تطبيقه على هذا الملف فقط وهذا ما سنتعامل على أساسه الآن ... والاختيار الأول والأخير لك ... 3/ الآن قم بالنقر على رمز الـ Project بزر الماوس الأيمن ثم اختر Insert ثم Module .. هنا ستظهر لك شاشة على اليمين وربما تكون فارغة أو ممتلئة هذا لا يُهمنا الآن ... 4/ قم بالذهاب إلى أعلى هذه الشاشة واكتب ما يلي: Public Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" _ (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long Sub Autoopen() xx = sndPlaySound("c:\windwos\media\Chimes.wav", 1) End Sub لاحظ أخي أننا في السطر الذي قبل الأخير كتبنا مسار ملف صوتي موجود مع الويندوز قم بتغييره إلى أي ملف صوتي آخر بشرط أن يكون من نوع wav ... أخي العزيز مع خالص تحياتي ما قمنا بعمله سابقاً هو ماكرو بسيط استخدمنا لبرمجته لغة الفيجول بيسيك ... ونتيجته تشغيل الملف الصوتي عند كل تشغيل لملف الوورد .. إذا كانت لديك خبرة سابقة بالفيجول بيسيك فلا شك أنك فاهم لكل الخطوات السابقة ... إذا كان لديك أي استفسار على هذه الطريقة أو أنها لم تنفع أرجو أن تكتب ذلك هنا ولك مني خالص التحية ...