السلام عليكم ورحمة الله وبركاته
جربت أكثر من كود لتحميل الماسحات الضوئية المتصلة بالكمبيوتر في كومبوبوكس ولكن جميع الطرق لم تنجح معي علماً بأني استخدم مكتبة WIA
لكم جزيل الشكر
دمتم بود
كود :
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).
السلام عليكم ورحمة الله وبركاته
الشكر الجزيل لك ومنحك جزءاً من وقتك
جربت الكود ولكن تظهر عندي المشكلة في الجزء المحاط بالقلم الأحمر
لك جزيل الشكر
دمت بود