اخواني الاعضاء اسعد الله اوقاتكم
نبحث عن كود معرفة اسم مشغل الاقراص هل هو H او G او اي كان ووضعة في تكست 1
واذا كان هناك اكثر من مشغل وضع اسم المشغل التاني في تكست 2
ولكم كل الشكر والعرفان
السلام عليكم ورحمة الله وبركاته
ضع هذا الكود في زر بوتون
كود :
TextBox1.Text = ""
TextBox2.Text = ""
Dim cd = From d In IO.DriveInfo.GetDrives() Where d.DriveType = IO.DriveType.CDRom Select d
For Each a In cd
If TextBox1.Text = "" Then
TextBox1.Text = a.ToString
Else
TextBox2.Text = a.ToString
End If
Next
اشكرك اخي العزيز 3booody على هذة المشاركة
حقا هذا هو المطلوب بعينة اكرر شكري لك ولكل القائمين على هذا المنتدى المفيد
طلب اخير اخي العزيز 3booody وفي نفس المساق
يظهر اسم مشغل الاقراص في التكست بهذا الشكل \:H والمطلوب ان تظهر اسم القرص فقط مثل H فقط
ولك كل الشكر والعرفان
بعد اذن الاخوان احب اضيف الكود اللي اظنه ابسط ويؤدي الغرض
كود :
For Each drive In IO.DriveInfo.GetDrives
If drive.DriveType = IO.DriveType.CDRom Then
TextBox1.Text = drive.Name
TextBox1.Text = TextBox1.Text.Remove(1, 2)
End If
Next
رقم 1 هو بداية الحذف وطبعا رقم صفر بيحذف من الاول عشان كذا كتبنا واحد والثاني طول النص المراد حذفه وهو اثنين فقط النقطتين (1) و الشرطة(2)
بارك الله فيك اخي العزيز سعود على هذا التعديل الممتاز
وفعلا هذا ما ابحث عنة بكل دقة
اكرر شكري لك ولكل الاخوة الاعضاء على هذا الجهد الكبير المبذول
والى اللقاء في موضوع اخر يفيد ونستفيد والله الموفق
طبعا لو فيه اكثر من محرك cd تكتب صيغة الالحاق Appendtext
كود :
TextBox1.Appendtext(drive.Name & vbnewline)
وتكتب جملة for لتفحص النقطتين والشرطة المائلة لحذفهما
بارك الله فيك اخي سعود كلام سليم 100%
كل الشكر والعرفان