[المبرمج الطموح vb6]

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

فيما يلي دالة لمعرفة نوع القرص بعد ادخال حرف ( اسم ) القرص فيرسل النظام لك رسالة وضعتها انا باللغة الانكليزية ليسهل معرفة نوع القرص و للتسهيل ايضا وضعت كل حروف الاقراص في الكومبوليست 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

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