Új hozzászólás Aktív témák

• Zsolt_974 tag

  #2669

  #2668 Bobrooney

  2016-01-21 17:58:06

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  Zsolt_974

  tag

  #2668 Bobrooney

  #2668 Bobrooney

  Gondolom erre gondolsz: MsgBox(queryObj("Description"))
  Akkor ha a MsgBox helyett egy String-be rakod bele?

  Így indul a program:

  

  A belépés gombra klikkelve:

  

  Ok gombra klikkelve és utána a "Com port lenyílóban ezek láthatók: Com1, Com9, Kommunikációs port(Com1)":

  

  A program kódban az ehhez tartozó sorok:

  Dim searcher As New ManagementObjectSearcher("SELECT * FROM Win32_SerialPort")
  _______________________________________________________________________________________

  Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles _Button1.Click

  For Each queryObj As ManagementObject In searcher.Get()
  MsgBox(queryObj("Name"))
  Dim textt As String = queryObj("Name").ToString
  RichTextBox1.Text = textt
  ComboBox1.Items.Add(textt)

  Next

  ComboBox1.Items.AddRange(IO.Ports.SerialPort.GetPortNames())
  End Sub

  Végül is tegnap már ott jártam, hogy a ComboBox-ba is beírja, de sajnos csak a
  Kommunikációs port(COM1). Az USB-SERIAL CH340(COM9) nem sikerül kiíratni.
  A két port közül miért csak a Kommunikációs port(COM1)-et találja meg?

Új hozzászólás Aktív témák