[RaggiTech]

كاتب الموضوع : المبرمج الطموح vb6

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