Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionSub GetSerialPortNames() ' Show all available COM ports. For Each sp As String In My.Computer.Ports.SerialPortNames ListBox1.Items.Add(sp) Next End Sub
ComboBox1.Items.AddRange(IO.Ports.SerialPort.GetPortNames)
1 Imports System 2 Imports System.IO.Ports 3 Imports System.Threading 4 5 6 Function AddCom2Combo(ByVal cbPort As ComboBox) 7 8 ' Get a list of serial port names. 9 Dim ports As String() = SerialPort.GetPortNames() 10 ' Show a label with Action information on it 11 cbPort.Text = "The following serial ports were found:" 12 13 ' Put each port name Into a comboBox control. 14 Dim port As String 15 For Each port In ports 16 cbPort.Items.Add(port) 17 18 Next port 19 ' Select the first item in the combo control 20 cbPort.SelectedIndex = 0 21 End Function Code from www.visiblevisual.com
With LV1 'Définir les propriétés de ListView .Width = VB6.TwipsToPixelsX(6000) .Height = VB6.TwipsToPixelsY(8000) .BackColor = System.Drawing.ColorTranslator.FromOle(&HC0FFFF) .Columns.Add("", "Fonction", CInt(VB6.TwipsToPixelsX(1000))) .Columns.Add("", "Valeur", CInt(VB6.TwipsToPixelsX(3900))) .Columns.Add("", "Unité", CInt(VB6.TwipsToPixelsX(1000))) 'UPGRADE_WARNING: La limite inférieure de la collection LV1.ColumnHeaders est passée de 1 à 0. Cliquez ici : 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="A3B628A0-A810-4AE2-BFA2-9E7A29EB9AD0"' .Columns.Item(2).TextAlign = System.Windows.Forms.HorizontalAlignment.Right 'UPGRADE_WARNING: La limite inférieure de la collection LV1.ColumnHeaders est passée de 1 à 0. Cliquez ici : 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="A3B628A0-A810-4AE2-BFA2-9E7A29EB9AD0"' .Columns.Item(3).TextAlign = System.Windows.Forms.HorizontalAlignment.Center .View = System.Windows.Forms.View.Details End With
Private Sub MSComm1_OnComm(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MSComm1.OnComm Dim SplitStr() As String Dim x As Short Dim index As Short If MSCommLib.OnCommConstants.comEvReceive Then RString = RString & MSComm1.Input If VB.Right(RString, 2) = Chr(&H3B) & Chr(&H1A) Then 'Identifiant la fin de la chaîne reçue If VB.Left(RString, 2) = Chr(&H24) & Chr(&H20) Then 'Début du code de la chaîne reçue LV1.Items.Clear() 'ListView delete RString = Mid(RString, 3) 'Retirer commencer identifiant SplitStr = Split(RString, ";") 'Dissoudre et de stocker de chaîne dans le tableau RString = "" For x = 0 To UBound(SplitStr) - 5 Step 5 'ListView avec les données de la matrice pour remplir index = index + 1 With LV1 'UPGRADE_WARNING: La limite inférieure de la collection LV1.ListItems est passée de 1 à 0. Cliquez ici : 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="A3B628A0-A810-4AE2-BFA2-9E7A29EB9AD0"' .Items.Insert(index, SplitStr(x)) 'Bezeichnung If SplitStr(x + 4) <> " " Then 'UPGRADE_WARNING: La limite inférieure de la collection LV1.ListItems est passée de 1 à 0. Cliquez ici : 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="A3B628A0-A810-4AE2-BFA2-9E7A29EB9AD0"' 'UPGRADE_WARNING: La limite inférieure de la collection LV1.ListItems.Item(index) est passée de 1 à 0. Cliquez ici : 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="A3B628A0-A810-4AE2-BFA2-9E7A29EB9AD0"' If .Items.Item(index).SubItems.Count > 1 Then .Items.Item(index).SubItems(1).Text = CStr(Val(SplitStr(x + 1)) / Val(SplitStr(x + 3))) Else .Items.Item(index).SubItems.Insert(1, New System.Windows.Forms.ListViewItem.ListViewSubItem(Nothing, CStr(Val(SplitStr(x + 1)) / Val(SplitStr(x + 3))))) End If Else 'UPGRADE_WARNING: La limite inférieure de la collection LV1.ListItems est passée de 1 à 0. Cliquez ici : 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="A3B628A0-A810-4AE2-BFA2-9E7A29EB9AD0"' 'UPGRADE_WARNING: La limite inférieure de la collection LV1.ListItems.Item() est passée de 1 à 0. Cliquez ici : 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="A3B628A0-A810-4AE2-BFA2-9E7A29EB9AD0"' If .Items.Item(index).SubItems.Count > 1 Then .Items.Item(index).SubItems(1).Text = SplitStr(x + 1) Else .Items.Item(index).SubItems.Insert(1, New System.Windows.Forms.ListViewItem.ListViewSubItem(Nothing, SplitStr(x + 1))) End If 'Wert End If 'UPGRADE_WARNING: La limite inférieure de la collection LV1.ListItems est passée de 1 à 0. Cliquez ici : 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="A3B628A0-A810-4AE2-BFA2-9E7A29EB9AD0"' 'UPGRADE_WARNING: La limite inférieure de la collection LV1.ListItems.Item() est passée de 1 à 0. Cliquez ici : 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="A3B628A0-A810-4AE2-BFA2-9E7A29EB9AD0"' If .Items.Item(index).SubItems.Count > 2 Then .Items.Item(index).SubItems(2).Text = SplitStr(x + 4) Else .Items.Item(index).SubItems.Insert(2, New System.Windows.Forms.ListViewItem.ListViewSubItem(Nothing, SplitStr(x + 4))) End If 'Unité End With Next x Else RString = "" End If End If End If End Sub