Помогите найти ошибку

[AntonGV]

Надо удалить один элемент из середины массива. Делаю так, но почему-то не получается

Код: Выделить всё

Private Sub Del()
Dim i As Integer
  For i = 5 To UBound(myArray) - 1
     myArray(i) = myArray(i + 1)
  Next i
  ReDim Preserve myArray(UBound(myArray) - 1)
End Sub

[Хакер]

Вроде всё правильно. Моя телепатия подсказывет мне, что массив неправильно определяется.

Покажи как ты его объявляешь, и в каком месте кода.

[AntonGV]

Обьявляю в модуле
Public file() as String
в Sub Main() делаю ReDim File(0)

Потом так заполняю массив:

Код: Выделить всё

Private Sub List1_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
On Error Resume Next
Dim Path As String
Dim tmp As String
Path = Data.Files(1)
If Path <> "" Then
tmp = UCase(Right(Path, 4))
If tmp = ".WMA" Or tmp = ".WAV" Or tmp = ".MP3"  _
   Then
      List1.AddItem fName(Path), List1.ListCount
      ReDim Preserve File(UBound(File) + 1)
      File(List1.ListCount - 1) = Path
   Else
      If tmp = ".LAP" Then
        'LoadList (Path)
      Else
        MsgBox "Неподдерживаемый формат файла", vbInformation
      End If
    End If
End If
End Sub

И так удаляю элементы массива

Код: Выделить всё

Private Sub delCount()
Dim i As Integer
List1.RemoveItem (List1.ListIndex)
For i = List1.ListIndex To UBound(File) - 1
   File(i) = File(i + 1)
Next i
ReDim Preserve File(UBound(File) - 1)
End Sub

[Matew]

AntonGV, вот тебе красивый способ:
http://www.vbstreets.ru/VB/Articles/66160.aspx

[AntonGV]

у меня всеравно не работает. Получается несоотвествие List`а и массива

[Viper]

возможно проблема заключается в том, что в ListBox нумерация элементов начинается с 0, а в массиве по умолчанию скорее всего с 1.

[AntonGV]

Нет, в массиве нумерация начинается тоже с 0.

Вот исходник, там очень кривой код так что сильно не ругайтесь

[Хакер]

Открыл, добавил элементы в список. Поудалял Delet-ом. Всё работает.

[AntonGV]

А у меня начинает воспроизводиться уже удаленный файл

[RayShade]

И так удаляю элементы массива

Код: Выделить всё

Private Sub delCount()
Dim i As Integer
List1.RemoveItem (List1.ListIndex)
For i = List1.ListIndex To UBound(File) - 1
   File(i) = File(i + 1)
Next i
ReDim Preserve File(UBound(File) - 1)
End Sub

Мне видится что надоб, List1.RemoveItem (List1.ListIndex) поставить в конец.



Ибо, по моему после удаления выбранного итема из листа, Listindex будет невалиден.

[AntonGV]

Точно у меня в другой проге порядок действий другой и все работает
И здесь заработало, только появилась куча других ошибок