1 2 3 4 5 6 7 8 9 10 11 12 13
| <div style="margin-left:40px">Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
LVAmis.View = View.Details
LVAmis.Columns.Add("Noms", 140, HorizontalAlignment.Left)
LVAmis.Columns.Add("Numéros", 140, HorizontalAlignment.Left)
End Sub
Private Sub BAjout_MouseClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles BAjout.MouseClick
LVAmis.Items().Add(TB_Nom.Text)
LVAmis.Items().Add("").SubItems().Add(TB_Numero.Text)
End Sub
End Class</div> |
Partager