أريد دالة أو مديول

ماذا لو كان عندي سواقتين فكيف سوف تحرف السواقه المطلوبه؟؟؟؟

المشكلة تكمن في تصحيح ال cd later الذي لديك.

ما رأيك ان ترفقه هنا في المنتدى.؟؟

عفوا هل تقصد OCX لديك باسم cd later؟!!

يوجد مشاركة للأخ عرفة لا ستخلاص رمز ال CD ستجده في ضمن مواضيع المنتدى

هذا الكود ربما يفي بالغرض:

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

بعد استخلاص رمز ال CD يمكنك استخدامه كما تريد ..

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

وضعت في السابق مثالاً للأكسس هنا، ربما يكون ذا فائدة:

http://www.officena.com/ib/index.php?showtopic=1336&st=0

الأخ amervb

السلام عليكم ورحمة الله وبركاته

أرفق لك المديول وهو يعمل بشكل ممتاز مع الوندوز 98 ولكن المشلكة تكمن في أنه لايعمل مع xp والمديول هو لمعرفة رمز السي دي وقراءة أو تحميل الصور منها لآن picturelod لا تعمل مع الأسطوانة بل في المحرك c أو d

وأنا أريد تحميل الصور من الأسطوانة على xp

أرجو أن تحل لي المشكلة ولك جزيل الشكر .

تشغيل أي ملف بالمديول.zip

يا شباب يا مبرمجين يا مشرفين

هل المطلوب صعب .

ألم تواجهكم مثل هذه المشاكل .

أجيبوني أفيدوني .

أرجوووووووووكم . :wacko:

إذا كنت تريد الكود الذي يقوم باستخلاص الحرف الخاص بمحرك ال cd فقد وضعت لك الكود بالأعلى، وهو بالعمل على إصدارات الويندوز المختلفة

إذا كنت تريد شيئاً آخر فأرجو أن توضحه، علماً بأني لا أفهم ما الذي تقصده من كون ال ( picturelod لا تعمل مع الأسطوانة بل في المحرك c أو d ) ما هي ال picturelod ؟؟ هل تقصد الوظيفة LoadPicture أم تقصد شيئاً آخر ؟؟ والوظيفة الأخيرة تعمل مع ال CD ومع غيره ...

بالتوفيق

الأخ عبدالله فتحي

باختصار شديد عندي برنامج هذا البرنامج عبارة عن صور بحيث أن الماوس تأتي على image يتم تحميل الصورة داخل هذه image الإسطوانة تشتغل أوتورن والصور داخل الأسطوانة ( مثلاً image مكتوب عليها خروج يتم تحميل صورة فيها بلون أصفر وعندما نضع الماوس عليها يتم تحميل صورة داخل الــ IMAGE باللون الأزرق ) علماُ أن هذا كله داخل الأسطوانه أي ليس في محرك أقراص . الأسطوانة كما ذكرت تعمل تلقائي .

أرجو أن أكون وضحت المطلوب .

أما بالنسبة للكود في الأعلى فهو كود زر وأنا أريد كود لتحميل الصور في اللود .

هل وضحت المشكلة .

المشكله اصبحت واضحه

بالنسبة للمثال المرفق فهو ناقص:

PATHSOUNDSg غير معرف

CDLetter غير معرف

و هذه الطريقه غير صحيحه ابدا:

Shell "START.EXE" & " " & PATHSOUNDSg

انتظرني لكي اجيبك .

ربما اليوم و الله اعلم؟؟؟

عفوا

طالما ان البرنامج موجود بالاساس على القرص فاذا لماذا لا تستخدم:

App.Path ؟

ام ان البرنامج قد تم تنصيبه؟

أخي أبو عبير نحن لا نريد الاختصار :D

إذاً .. المشكلة لديك ليست في الكود وإنما في مكان وضعه ؟؟

لتجعل الكود في الـ LOAD كل ما عليك أن تنقله إلى حدث الـ FORM_LOAD للفورم، وعند تمرير الماوس على الصورة سيتم تنفيذ حدث الـIMAGE_MouseMove وعند الانتقال إلى الفورم مرة أخرى يتم تنفيذ حدث ال MouseMove للفورم هذه المرة

عند تجربة الكود لأول مرة تجاهل الموديول أو الكود السابق تماماً، وجرب بوضع المسار الكامل للصورة هكذا مثلاً:

Image1.Picture = LoadPicture("H:\Folder\File.bmp")

على اعتبار أن رمز محرك الأقراص هو الـ H والمسار كما هو بالأعلى

إذا ظهرت لك رسائل خطأ فمن الأفضل أن تذكرها لنا هنا

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

أيضاً لا تنس ما أشار إليه الأخ عامر، فإذا كان البرنامج يعمل من على الـ CD ( كما يبدو من كلامك )، فمن الأفضل استخدام الخاصية Path من الفئة APP والتي تعيد مسار البرنامج، وبذلك تخرج من مشكلة وجود أكثر من CD ROM وتغنيك عن استدعاء دالة الـ API ..

بالتوفيق

السلام عليكم

كما قال اخى عبدالله وإجابتة مظبوطة تماما

والرابط به إجابة لسؤالك

/index.php?showtopic=52697