دالة معرفة نوع القرص + مثال مرفق !!!!!!!!!! - نسخة قابلة للطباعة +- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb) +-- قسم : الأقسام التعليمية - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=90) +--- قسم : مكتبة أكواد المنتدى (http://vb4arb.com/vb/forumdisplay.php?fid=111) +---- قسم : مكتبة أكواد الفيجوال بيسك 6 (http://vb4arb.com/vb/forumdisplay.php?fid=116) +---- الموضوع : دالة معرفة نوع القرص + مثال مرفق !!!!!!!!!! (/showthread.php?tid=6072) |
دالة معرفة نوع القرص + مثال مرفق !!!!!!!!!! - RaggiTech - 17-10-12 كاتب الموضوع : المبرمج الطموح vb6
السلام عليكم اخواني .فيما يلي دالة لمعرفة نوع القرص بعد ادخال حرف ( اسم ) القرص فيرسل النظام لك رسالة وضعتها انا باللغة الانكليزية ليسهل معرفة نوع القرص و للتسهيل ايضا وضعت كل حروف الاقراص في الكومبوليست Combo حتى لا يتعب المستخدم في في الكتابة . طبعا وضعت مثالا مرفقا مع الكود اتمنى ان ينال اعجابكم . كما يجب ان المّ ( اذكر ) بأن الموضوع لا يخلو من الأخطاء لن أطول بالحديث. تفضلواهذه الدالة نضعها في قسم التصريحات العامة General كود : Private Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long كود : Private Sub Command1_Click() كود : Private Sub Form_Load() |