Dim sBytes As String = TextBox1.Text.Replace(" ", String.Empty)
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim strReceive As String = "11 01 " '..... 256 caractères 'la chaine sans les espaces Dim sBytes As String = strReceive.Replace(" ", String.Empty) 'vérification de la taille If sBytes.Length = 4 Then '256 ! 'les chechboxes correspondant à la position du caractère en cours de lecture seront CHECKED For i As Integer = 1 To sBytes.Length 'elles sont nommées de CheckBox1 à CheckBox256 DirectCast(Me.Controls("CheckBox" & i.ToString), System.Windows.Forms.CheckBox).Checked = sBytes(i - 1).Equals("1"c) Next Else MessageBox.Show("la chaine ne contient pas le nombre de caractères attendus") End If End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question