عبد الله فتحي

الآن تأكدت من الطريقة السابقة .. وبإمكانك الاطلاع على التفاصيل أكثر هنــــــــــــــــــــا

بالنسبة لل AutoRun: قم بإنشاء ملف جديد باسم AutoRun.inf واكتب فيه ما يلي: [autorun] open=Untitled.exe icon=Untitled.ico غير ال Untitled.exe إلى اسم المشروع .. غير ال Untitled.ico إلى الأيقونة التي تريدها .. هذه الطريقة أنا أحفظها هكذا ... وأتمنى أن لا أكون نسيت شيئاً .. وطبعاً يوجد برامج خاصة لعمل ذلك .. ولكن أنا شايف إن الحكاية ما تستاهل .. تحياتي

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

قمت بتجربة الكود السابق في الأكسيس وهو شغال مائة بالمائة .. الله يعطيني العافية :lol: :d لاحظ أن رمز محرك الأقراص سيكون موجوداً في المتغير XDrive وبالتالي ستضع هذا المتغير بدلاً من رمز محرك الأقراص: XDrive & ":\ ويمكنك تجربته بنفسك وإخباري بالنتيجة .. ستواجهك مشكلة بسيطة وهي إذا ما كان المستخدم لديه أكثر من محرك أقراص مضغوطة، أو كان لديه محركات أقراص مضغوطة وهمية .. بالنسبة لسؤالك الثاني عن تشغيل البرنامج عند وضع الاسطوانة مباشرة فأعتقد أن الأمر بسيط جداً وكل ما عليك هو عمل AutoRun لها .. تحياتي

أخي الفاضل hghghg بالنسبة لما تريد فهو واضح جداً .. ولكن سؤالك هو الذي قلب المفاهيم قليلاً فأنت لا تريد تغيير الرمز وإنما تريد التعرف على رمز محرك الأقراص المضغوطة الـ CD-ROM .. بالنسبة للكود فقد قمت بعمل هذا الكود سابقاً في الفيجول بيسيك .. وأعتقد أنه قابل للتطبيق هنا: Dim XDrives Dim XDrive Dim XTest Private Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long Private Sub Command1_Click() XDrives = "abcdefghijklmnopqrstuvwxyz" For i = 1 To 26 XTest = Mid(XDrives, i, 1) If GetDriveType(XTest & ":\") = 5 Then XDrive = XTest End If Next ' XDrive يمثل هنا رمز محرك الأقراص المضغوطة Print XDrive End Sub لاحظ أن المتغير XDrive بعد هذا الكود سيحتوي على رمز محرك الأقراص المضغوطة ..

للتحميل مباشرة اضغط هنــــا مع تحياتي

هنــا تجد درساً في كيفية عمل ملف مساعدة .. بغض النظر عن ربطه .. أرجو أن يكون ذا نفع لك ..

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

شكراً لكما

أحسنت أخي العزيز أشرف وبارك الله فيك ونفع بك :yess: ..

رائع جداً :yess:

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

في الرابط التالي يوجد كود للأخ أبو بكر في هذا الموضوع .. http://www.arabteam2000.com/ib/index.php?a...=ST&f=1&t=28079

حاولت أنا أيضاً ولكن للأسف لم أتوصل إلى نتيجة مرضية ..

بصراحة لم أفهم سؤالك بشكل جيد . ياريت توضح أكثر أخي العزيز ..

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

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

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

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

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

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

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

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

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