منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
تحميل جميع الماسحات الضوئية المتصلة بالجهاز في كومبوبوكس - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : تحميل جميع الماسحات الضوئية المتصلة بالجهاز في كومبوبوكس (/showthread.php?tid=47957)

تحميل جميع الماسحات الضوئية المتصلة بالجهاز في كومبوبوكس - جيولوجي مبتدئ - 22-02-24

السلام عليكم ورحمة الله وبركاته
جربت أكثر من كود لتحميل الماسحات الضوئية المتصلة بالكمبيوتر في كومبوبوكس ولكن جميع الطرق لم تنجح معي علماً بأني استخدم مكتبة WIA  

لكم جزيل الشكر 
دمتم بود

RE: تحميل جميع الماسحات الضوئية المتصلة بالجهاز في كومبوبوكس - aljzazy - 22-02-24

كود :
Imports WIA

Public Class Form1
   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       LoadScanners()
   End Sub

   Private Sub LoadScanners()
       ' Create a new DeviceManager
       Dim manager As New DeviceManager()

       ' Get the list of available devices
       Dim devices As Devices = manager.DeviceInfos

       ' Clear existing items in ComboBox
       ComboBox1.Items.Clear()

       ' Iterate through each device and add its name to the ComboBox
       For Each deviceInfo As DeviceInfo In devices
           ComboBox1.Items.Add(deviceInfo.Properties("Name").Value)
       Next

       ' Select the first item by default
       If ComboBox1.Items.Count > 0 Then
           ComboBox1.SelectedIndex = 0
       End If
   End Sub
End Class


لتحميل الماسحات الضوئية المتصلة بجهاز الكمبيوتر الخاص بك في ComboBox في VB.NET، يمكنك استخدام مكتبة WIA (Windows Image Acquisition).

RE: تحميل جميع الماسحات الضوئية المتصلة بالجهاز في كومبوبوكس - جيولوجي مبتدئ - 22-02-24

السلام عليكم ورحمة الله وبركاته 
الشكر الجزيل لك ومنحك جزءاً من وقتك 
جربت الكود ولكن تظهر عندي المشكلة في الجزء المحاط بالقلم الأحمر 

لك جزيل الشكر 
دمت بود