منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[ تمّ الحل ] : جلب سيريال الاسطوانة - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [ تمّ الحل ] : جلب سيريال الاسطوانة (/showthread.php?tid=33822)

الصفحات: 1 2

RE: جلب سيريال الاسطوانة - عبد العزيز البسكري - 16-03-20

أخي عاصم .. جربت مثلما ترى بالصورة أعلاه جلب هذه المكتبة
لكن عند جلب هذه المطتبة .. يختفي الخطأ بالسطر المشار إليه  و يظهر خطأ جديد بهذا السطر
كود :
If (d.DriveType = drivetype.Compact_Disc) AndAlso (d.IsReady) Then

تحياتي


RE: جلب سيريال الاسطوانة - asemshahen5 - 16-03-20

Imports System.Management
Imports System.IO
Imports System.IO.DriveType
Imports System.IO.DriveInfo

هذه المكتبات الموجودة عندي بالمشروع .

RE: جلب سيريال الاسطوانة - عبد العزيز البسكري - 16-03-20

(16-03-20, 05:13 PM)asemshahen5 كتب : Imports System.Management
Imports System.IO
Imports System.IO.DriveType
Imports System.IO.DriveInfo

هذه المكتبات الموجودة عندي بالمشروع .


للأسف أستاذنا الكريم .. جرّبت بجميع الاحتمالات هذه المكتبات
تحياتي واحتراماتي


RE: جلب سيريال الاسطوانة - asemshahen5 - 16-03-20

هذا المثال مع التعديل .

[attachment=24135]

لكن للاسف السواقة عندي معطلة .

RE: جلب سيريال الاسطوانة - عبد العزيز البسكري - 16-03-20

ربّنا يبارك فيك و لك و بجميع من تحب أخي و أستاذي الكريم الغالي " عاصم شاهين "
الآن فعلا كل شيء تمام التمام حتّى بعد تجربة تغيير الاسطوانة
أجدد شكري و تقدير واحترامي وامتناني
تحياتي وتقييماتي