منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
لمعرفة نوع القرص في جهاز الكومبيوتر - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم مقالات vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=29)
+---- الموضوع : لمعرفة نوع القرص في جهاز الكومبيوتر (/showthread.php?tid=4907)

لمعرفة نوع القرص في جهاز الكومبيوتر - المبرمج الطموح vb6 - 02-10-12

<< بسم الله الرحمن الرحيم >>

فيما يلي دالة لمعرفة نوع القرص بعد ادخال حرف ( اسم ) القرص فيرسل النظام لك رسالة وضعتها انا باللغة الانكليزية ليسهل معرفة نوع القرص و للتسهيل ايضا وضعت كل حروف الاقراص في الكومبوليست Combo حتى لا يتعب المستخدم في في الكتابة .

نبدأ مشروعاً جديداً و نستخدم فورم Form واحد بداخله أداة زر Command , قائمة Combo

تفضلواهذه الدالة نضعها في قسم التصريحات العامة General اي أعلى الكود :
Private Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long


وهذا الكود نضعه في امر زر الكوماند Command1 :


Private Sub Command1_Click()
Me.AutoRedraw = True
Select Case GetDriveType(Combo1.Text)
Case 2
MsgBox " The Driver You ' ve chossen is a Floppy Driver ", 48, " The Result "
Case 3
MsgBox " The Driver You ' ve chossen is a Harddisk Driver ", 48, " The Result "
Case Is = 4
MsgBox " The Driver You ' ve chossen is a Remote Driver ", 48, " The Result "
Case Is = 5
MsgBox " The Driver You ' ve chossen is a Cd-Rom Driver ", 48, " The Result "
Case Is = 6
MsgBox "The Driver You ' ve chossen is a Ram disk Driver ", 48, " The Result "
Case Else
MsgBox " The Driver You ' ve chossen isn`t exsisted ", 48, " The Result "
End Select
End Sub


و هذا الكود لاضافة كل الحروف المتاحة لمحركات الاقراص في النظام في الكومبوليست عند تشغيل البرنامج :

Private Sub Form_Load()
Combo1.AddItem ("A:\")
Combo1.AddItem ("B:\")
Combo1.AddItem ("C:\")
Combo1.AddItem ("D:\")
Combo1.AddItem ("E:\")
Combo1.AddItem ("F:\")
Combo1.AddItem ("G:\")
Combo1.AddItem ("H:\")
Combo1.AddItem ("I:\")
Combo1.AddItem ("J:\")
Combo1.AddItem ("K:\")
Combo1.AddItem ("L:\")
Combo1.AddItem ("M:\")
Combo1.AddItem ("N:\")
Combo1.AddItem ("O:\")
Combo1.AddItem ("P:\")
Combo1.AddItem ("Q:\")
Combo1.AddItem ("R:\")
Combo1.AddItem ("S:\")
Combo1.AddItem ("T:\")
Combo1.AddItem ("U:\")
Combo1.AddItem ("V:\")
Combo1.AddItem ("W:\")
Combo1.AddItem ("X:\")
Combo1.AddItem ("Y:\")
Combo1.AddItem ("Z:\")
End Sub

هذا كل شي نشغل البرنامج و نجرب لنحصل على المطلوب بإذن الله Smile
تم بإذنه تعالى , تحياتي
المبرمج الطموح vb6