Désolé les gars mais ça ne marche pas
For i As Integer = 1 To 21 lig = lig + 24 : col = 5 : colbox = 65 For j As Integer = 1 To 5 lab(i, j) = New Label : box(i, j) = New TextBox If i = 1 Then lab(i, j).Location = New Point(col, lig) lab(i, j).Size = New Size(55, 20) lab(i, j).BackColor = Color.DarkGreen lab(i, j).ForeColor = Color.White lab(i, j).BorderStyle = BorderStyle.FixedSingle lab(i, j).Text = "N°timbre" lab(i, j).Visible = True lab(i, j).Font.Bold = True lab(i, j).Font.Name = "Times New Roman" box(i, j).Size = New Size(55, 20) box(i, j).Location = New Point(colbox, lig)
col = col + 120 : colbox = colbox + 120 End If Me.Controls.Add(box(i, j)) Me.Controls.Add(lab(i, j)) Next Next
il me dit que Bold est "readonly" idem pour Name (c'est du VB 2005)
Merci
|