13-04-14, 07:49 PM
13-04-14, 07:52 PM
يتم تحديثها على أي أساس؟ ياريت توضح طلبك
13-04-14, 08:57 PM
(13-04-14, 07:52 PM)Aly El-Haddad كتب : [ -> ]يتم تحديثها على أي أساس؟ ياريت توضح طلبك
أريد ان اعمل برنامج فيه combobox يحتوي على الفلاشات المتصلة بالحاسوب وعند ازالة الفلاشة او اضافة واحدة جديد
يتم اضافة اسمها الى ال combobox
13-04-14, 09:09 PM
http://www.vbforfree.com/detect-when-rem...ted-vbnet/
و استبدل سطر الرسالة MsgBox بكود إضافة/مسح العنصر إلى/من الـComboBox
و استبدل سطر الرسالة MsgBox بكود إضافة/مسح العنصر إلى/من الـComboBox
17-04-14, 03:56 AM
قمت بتجربة هذا الكود وقد نجح باضافة الفلاشة عند وصلها بالحاسب في حالة واحدة وهي ان نضع الفلاشة ونصغر الفورم ونعيد تكبيرها فيضاف اسمها الى القائمة
اذا ممكن تعديل عليه حتى يضيف الفلاشة بدون تصغير الفورم.
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
اذا ممكن تعديل عليه حتى يضيف الفلاشة بدون تصغير الفورم.
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
24-04-14, 06:37 PM
قمت بتغيير الحدث في الكود السابق من gotfocus إلى الحدثclick وقد نجح الامر
شكرا للجميع
شكرا للجميع