نام کامل Comport

[Rain_Saeid]

درود
دوستان عزیز و اساتید :

تیکه برنامه ای هست که کامپورت هارو داخل کمبو باکس میاره



[Forwarded from baby land]
Private Sub Button41_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button41.Click

cmbo_port.Items.Clear()

comPorts = IO.Ports.SerialPort.GetPortNames()

For i = 0 To UBound(comPorts)
cmbo_port.Items.Add(comPorts(i))
Next

'Set cmbo_port text to first available port
cmbo_port.Text = cmbo_port.Items.Item(0)
'Set SerialPort1 portname to first available port
SerialPort1.PortName = cmbo_port.Text

'Set remaining port attributes
SerialPort1.BaudRate = 19200
SerialPort1.Parity = IO.Ports.Parity.None
SerialPort1.StopBits = IO.Ports.StopBits.One
SerialPort1.DataBits = 8
End Sub


این تیکه برنامه مشکلی نداره، ولی میخوام اسم comport هارو هم بنویسه برام
مثلا com1 رو بطور اتومات بنویسه : Communication Port (com1)

حالا خودم ی برنامه پیدا کردم که اسم هارو هم مینویسه، ولی نتونستم با تیکه برنامه بالا دوتا یکیش کنم :



[Forwarded from baby land]
Private Sub Button53_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button53.Click

Try
Dim searcher As New ManagementObjectSearcher("root\cimv2", "SELECT * FROM Win32_SerialPort")
For Each queryObj As ManagementObject In searcher.Get()
'MsgBox(queryObj("Name"))

MsgBox(queryObj("Name"))

Next

Catch err As ManagementException
MessageBox.Show("An error occurred while querying for WMI data: " & err.Message)
End Try

End Sub


دوستان عزیز و اساتید ممنون میشم کمک کنید که بتونم تیکه برنامه ای بنویسم که با گذاشتن کلید Refrsh کامپورت هارو بطور کامل با اسم کامل داخل کمبو باکس بنویسه

تشکر