أردت استعمال الأداه drive list box فقمت بادراجها ,,,
ثم وأنا بأستخدم خاصية الـ drive list box.drive وجدت أنها تعرض ال drive lettre بالاضافه
الي الـ drive lable ,,, مثال:
C:[win]
ولكني أريد ال drive lettre فقط هكذا :
C:/
فرجاء من يعرف كيفية عمل السابق يقولي ,,,
كمان مشكله :
عند استخدام الـ open file dialog الخاصيه file name ترجع أو تعود بمسار الملف كاملا ,,,
مثال :
C:/new folder/filename.txt
ولكني أريد أسم الملف فقط هكذا ,,,
filename.txt
من يعرف يساعدني, جزاكم الله خيرا,,,
بص ياعم حازم
انت عارف ان ماعنديش الدوت نت لكن جرب الطريقة دى يمكن تنجح
Dim Drv As String Drv=Strings.Left(drivelistbox.drive ,2)
ممكن يشتغل بس مش فاكر هى Strings واللا String :lol: :lol:
تم تعديل هذه المشاركة بواسطة GHOST2010 في 24 يوليو 2005 في 15:34
إن قلت قال الله قال رسولـه همزوك همز المنكر المتعالي
أو قلت قد قال الصحابة والألـى تبعاً لهم بالقول والأعمال
أو قلت قـال الشافعي وأحمد و أبو حنيفة والإمام الغالي
صدوا عن وحي الإله ودينـه واحتالوا على حرام الله بالإحلال
يا أمةً لعبت بدين نبيها كتلاعب الصبيان في الأوحال
حاشا رسول الله يحكم بالهوى تلك إذاً حكومة الضلال
شويه كده أجربها وأقولك,والسؤال الثاني !!!
تم تعديل هذه المشاركة بواسطة hazzoom في 24 يوليو 2005 في 15:24
الطريقه منفعتش يا مهدي :(
ياجماعه أنا لايص حد يعبرني ويرد عليا ؟؟؟
للرفع................. :( :( :(
بالنسبة للسؤال الأول فأنا لم أستعمل drive list box في الدوت نت من قبل
اما السؤال الثاني فيمكن حله عن طريق عمل Split للاسم الكامل للملف و أخذ الجزء الأخير فقط و قراءته
حاول أن تحله لوحدك اذا نجحت فألف ألف مبروك اما اذا واجهتك أي مشكلة فأنا تحت أمرك :)
السلام عليكم
الفكرة كالتالي
أولاً نصنع مصفوفة لإستخدام عملية الفصل بهذا الشكل
Dim spArray() As String
ثم نقوم بإسناد مسار الصورة مع تحديد عنصر الفصل هو \ بهذا الشكل
spArray = Split(.FileName, "\")
اي لو إفتراضنا ان المسار بهذا الشكل c:\myfolder\myimage.jpeg
فبعد عملية الـ splite ستحتوي المصفوفة spArray على القيمة c اي محرك الأقراص c فقط
الان سنقوم بعملية قلب القيمة لإيخذ بدل الـ c بـ myimage.jpeg بهذا الشكل
spArray.Reverse(spArray)
هذا الكلام ينطبق على السؤالين والله أعلم
تنبية : فيما مضى رأيت مثال بدون إستخدام المصفوفة لكن لا أذكر أين و كيف
و يالله البركة فيك و ننتظر منك إن شاء الله أنك تذكرنا فيها ( تذكر بدون إستخدام المصفوفة)
السلام عليكم
تم تعديل هذه المشاركة بواسطة الغملاسي في 25 يوليو 2005 في 22:31
في المثال يتضح المقال
يوه يا عم غملاسي ... انا لم أضع الحل حتى أترك المجال للعزيز Hazzoom يجتهد و يحلها لوحده بس ما في مشكل ... :)
-----
اقتباسفبعد عملية الـ splite ستحتوي المصفوفة spArray على القيمة c اي محرك الأقراص c فقط
كيف ذلك أخي ؟؟؟
المصفوفة ستحتوي على كل عناصر ال String التي عملت لها Split
مثلا "C:\Windows\Text.txt" ستكون المصفوفة بالشكل التالي
spArray(0)=C: spArray(1)=Windows spArray(2)=Text.txt
و لأخذ العنصر الأخير يمكن عمل
Dim JustFileName as string JustFileName = spArray(spArray.GetUpperBound(0))
تم تعديل هذه المشاركة بواسطة crazy-man في 25 يوليو 2005 في 23:28
والله الواحد مش عارف يقول ايه أو يشكركم ازاي جزاكم الله خيرا ,أردهالكم في الأفراح ان شاء الله ,
وانتوا لفتوا انتباهي الي المصفوفات لأنه ليس لي خبره في التعامل معها الواحد أول ما دخل الفيجوال دوت نت اتجهت الي ADO.NET ونسيت الأساسيات .....لازم أرتب أوراقي من جديد .....,
الطريقه نفعت وتمام التمام أنا كنت عايزها لبرنامج يقوم بتغيير أيقونة الـ Partitions ,أنا عارف انها فكرة قديمة وبسيطه بس أنا محتاج أمرن أو أمشي أيدي في أكواد الدوت نت لأني من وقت ما تركت الفيجوال 6 لم أصمم ربع برنامج ,البرنامج يقوم بوظيفته تمام بس تبقي اني أدرج معه مجموعة أيقونات تظهر في List View والتي لم أتعامل معها من قبل ,اللي يقدر يعدل علي الكود من أجل التحسين يتفضل
بس بشرط انه يقوم بادراج البرنامج بعد التعديل في مرفق وكل واحد وأمانته ومن غير ما يحذف اسمي ولما أخلص البرنامج نهائيا هعمل موضوع جديد فيه البرنامج النهائي وفي النهايه أوجه الشكر لأخواني
الغملاسي و crazy-man ,وكمان محمد المهدي ,,,
وان شاء الله في النسخه النهائيه البرنامج هيكون قادر علي تغيير أيقونات المجلدات,واللي عنده طريق تغيير أيقونات الملفات ياريت يتفضل يدرجها في البرنامج ويحطه في مرفق ,,,
آه نسيت أقول فكرة البرنامج ,البرنامج يقوم بعمل ملف Autorun مثل اللي بداخل الأسطوانات ويقوم بنسخ الأيقونه اللي انت تختارها الي مسار الـ Drive ثم يقوم باخفاء الملفين ,وأي حاجه مش واضحه في الكود أنا ان شاء الله هأوضحها ,,,
البرنامج معمول علي فيجوال 2002
تم تعديل هذه المشاركة بواسطة hazzoom في 26 يوليو 2005 في 04:49
أنا آسف فيه خطأ في المرفق السابق بدلت ال List View بـ Picture box , المرفق بعد التعديل ,
السلام عليكم
حياك الله أخي Man وشكراً لك هذا التنبيه
و أنا كنت أقصد الـ Index الأول في المصفوفة وهو بلا شك صفر الذي سيحوي c:
لكن ربما خاني التفكير و التعبير وكنت على عُجاله آنذاك B)
...
أخي حازم
أنا قمت بتعديل شبه جذري للمشروع ولكن توقفت عند الصور المختارة من القائمة list view
بعد تحويلها إلى أيقونات لا يقبلها محرك الأقراص ( لا أعرف السبب)
كذلك محرك الأقراص الذي طبقت عليه الأيقونة لا يتغير إذا تم إختيارة مرة أخر !!!
كذلك أفكر في حل مشكلة الـ autorun بحيث يكتب فقط في المحرك C والسبب لو إفتراضنا أن المستخدم
إختار المحرك A فليس منطقي أن نطلب منه Floppy Disk لنضع ملف الـ Autorun و الأيقونة فيه !!
لذلك المشروع يتطلب إعادة تصميم منطقي قبل الشروع فيه
الملف المرفق ( يحتاج إلى تعديل )
السلام عليكم
تم تعديل هذه المشاركة بواسطة الغملاسي في 26 يوليو 2005 في 14:06
في المثال يتضح المقال
ألف شكر يا أخ غملاسي ,
المشروع تعبني لحد ما فتح علي فيجوال 2002 ,وبعد ما فتح أنا ذهلت من منظر الكود فأنا عمري في الدوت نت لم يبلغ شهرا الي الآن ,وطبعا لم أفهم شيئا للأسف ,ولكن يبدو أنك بذلت جهدا كبيرا فيه ,فلو تكرمت تشرح الكود أنا عارف انه طلب صعب لكن ان شاء الله ربنا يقدرك عليه لأنك بالتأكيد عارف ان الكود لا علاقه له بالبرنامج السابق هناك تشابه في الواجهه لكن الكود مختلف تماما ,أنا عارف اني أثقلت عليك فجزاك الله خيرا لا ترد طلبي ,
ملحوظه :أنا أستشفيت من الكود انك لغيت Drive list box وأدرجت List عاديه ثم أحضرت
ال drives ووضعتها ووضعت لكل منها أيقونه ,بس ازاي أنا مش عارف وهوه دي بالذات الجزء اللي أنا عايزه جزاك الله خيرا,,,
تم تعديل هذه المشاركة بواسطة hazzoom في 26 يوليو 2005 في 17:13
اقتباسأنا أستشفيت من الكود انك لغيت Drive list box وأدرجت List عاديه ثم أحضرتال drives ووضعتها ووضعت لكل منها أيقونه
يا جماعه اللي يعرف كيفية عمل الجزء السابق الذي قام به الأخ الغملاسي يتكرم ويشرح شرح بسيط ,,,
ثانيا كيف يتم عرض أيقونات موجوده في مجلد معين في أداة List View ,,,
جزاكم الله خيرا .........,,,
تم تعديل هذه المشاركة بواسطة hazzoom في 27 يوليو 2005 في 20:08
هذا الموضوع مغلق.