Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionPrivate Sub Command2_Click() Unload Me End Sub Private Sub Command3_Click() List1.AddItem Text2.Text Text2.Text = "" End Sub Private Sub Command4_Click() List1.RemoveItem Index End Sub Private Sub Command5_Click() Open App.Path & "\list.txt" For Input As #1 Do While Not EOF(1) Line Input #1, txt List.AddItem txt Loop Close #1 End Sub Private Sub Command6_Click() Open App.Path & "\list.txt" For Output As #1 For I = 0 To List.ListCount - 1 Print #1, List.List(I) Next Close #1 End Sub