تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
دالة معرفة نوع القرص + مثال مرفق !!!!!!!!!!
#1
كاتب الموضوع : المبرمج الطموح 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 .


الملفات المرفقة
.zip   Drivers Search.zip (الحجم : 13.83 ك ب / التحميلات : 44)
}}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  250 مثال في الفجوال بيزيك تمكنك من بداية البرمجة من الصفر derbaliammar 1 1,775 10-06-14, 08:14 PM
آخر رد: Lord of Books
  معرفة الاجهزة التي تعمل على الشبكة ping + mac address RaggiTech 0 927 17-10-12, 03:24 PM
آخر رد: RaggiTech
  معرفة الاجهزة التي تعمل على الشبكة ping RaggiTech 0 563 17-10-12, 03:23 PM
آخر رد: RaggiTech
  معرفة المساحة الفارغة في القرص -- Api RaggiTech 0 428 17-10-12, 02:54 PM
آخر رد: RaggiTech
  دالة RandomString للحصول على نصوص عشوائية RaggiTech 0 624 17-10-12, 02:41 PM
آخر رد: RaggiTech
  مثال - تشفير وفك تشفير نص RaggiTech 0 587 17-10-12, 02:35 PM
آخر رد: RaggiTech
  مثال تحميل به أكثر من هدية RaggiTech 0 487 17-10-12, 02:27 PM
آخر رد: RaggiTech
  معرفة لغة العرض الخاصة بنظام التشغيل ويندوز RaggiTech 0 352 17-10-12, 02:24 PM
آخر رد: RaggiTech
  معرفة وعمل Format لرقم هاتف RaggiTech 0 400 17-10-12, 01:09 AM
آخر رد: RaggiTech
  معرفة وجود كرت صوت ملحق بالجهاز أم لا RaggiTech 0 354 17-10-12, 01:09 AM
آخر رد: RaggiTech

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم