Удаляет элементы из списка For
|
Private Sub CommandButton3_Click() ClearAll End Sub Public Sub ClearAll() 'Удаляет элементы из буфера (коллекции) Dim i As Integer For i = 1 To MultBuffer.Count MultBuffer.Remove (1) Next i ' Удаляет элементы из списка For i = 1 To BufferForm.ListBox1.ListCount BufferForm.ListBox1.RemoveItem (0) Next i BufferForm.Hide End Sub |
| Листинг 2.11. |
| Закрыть окно |
