+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [سؤال] تحديث عناصر ال combobox (/showthread.php?tid=2556)
تحديث عناصر ال combobox - أبو الحسن - 13-04-14
السلام عليكم ورحمة الله
أريد كود لتحديث عناصر ال combobox باستمرار طالما أن البرنامج يعمل
لكن بدون استخدام timer
وشكرا جزيلا.
RE: تحديث عناصر ال combobox - Aly El-Haddad - 13-04-14
يتم تحديثها على أي أساس؟ ياريت توضح طلبك
RE: تحديث عناصر ال combobox - أبو الحسن - 13-04-14
(13-04-14, 07:52 PM)Aly El-Haddad كتب : يتم تحديثها على أي أساس؟ ياريت توضح طلبك
أريد ان اعمل برنامج فيه combobox يحتوي على الفلاشات المتصلة بالحاسوب وعند ازالة الفلاشة او اضافة واحدة جديد
يتم اضافة اسمها الى ال combobox
RE: تحديث عناصر ال combobox - Aly El-Haddad - 13-04-14
http://www.vbforfree.com/detect-when-removable-usbvolume-drive-devices-are-addedremovedconnected-vbnet/
و استبدل سطر الرسالة MsgBox بكود إضافة/مسح العنصر إلى/من الـComboBox
RE: تحديث عناصر ال combobox - أبو الحسن - 17-04-14
قمت بتجربة هذا الكود وقد نجح باضافة الفلاشة عند وصلها بالحاسب في حالة واحدة وهي ان نضع الفلاشة ونصغر الفورم ونعيد تكبيرها فيضاف اسمها الى القائمة
اذا ممكن تعديل عليه حتى يضيف الفلاشة بدون تصغير الفورم.
Imports System.IO
Public Class Form1
Dim a As DriveInfo
Private Sub ComboBox1_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles ComboBox1.GotFocus
ComboBox1.Items.Clear()
For Each a As DriveInfo In My.Computer.FileSystem.Drives
If a.IsReady Then
ComboBox1.Items.Add(a.Name)
ComboBox1.Update()
ComboBox1.Refresh()
End If
Next
End Sub
RE: تحديث عناصر ال combobox - أبو الحسن - 24-04-14
قمت بتغيير الحدث في الكود السابق من gotfocus إلى الحدثclick وقد نجح الامر
شكرا للجميع