Dim RowIndex As Integer Dim
|
Private Sub CommandButton2_Click() DelElem End Sub Public Sub DelElem() 'Удаляет выбранный элемент буфера Dim RowIndex As Integer Dim Sel As Boolean Sel = False With BufferForm.ListBox1 For RowIndex = 0 To .ListCount - 1 If .Selected(RowIndex) Then Sel = True MultBuffer.Remove (RowIndex + 1) .RemoveItem RowIndex Exit For End If RowIndex = RowIndex + 1 Next RowIndex If Not Sel Then MsgBox ("Для удаления выберете элемент из списка!") End If End With End Sub |
| Листинг 2.10. |
| Закрыть окно |
