Сначала удаляю первый елемент коллекции:

Код

Colekcia.Remove 1

потом пытаюсь добавить на его место новый:

Код

Colekcia.Add Int1, , 2

Но получается результат такой же как от:

Код

Colekcia.Add Int1, , 3

Тобишь добавляется элемет добавляется на второе место, хотя он должен был быть первым.

Код

Option Explicit Private Sub Command1_Click() Dim x As New Collection Dim y As Integer y = 1 x.Add y ' добавили элемент 1 y = 2 x.Add y ' добавили элемент 2 y = 3 x.Add y ' добавили элемент 3 y = 4 x.Add y ' добавили элемент 4 x.Remove 1 ' удалили элемент 1 y = 1 x.Add y, , 2 ' добавили элемент 1 перед элементом под номером 2 (элемент под номером 2 это тот который с номером 3) End Sub

Если ты добавляешь элемент перед (before) вторым, то новый становится вторым, а бывший второй третим. Вот так все просто.

При удалении непоследнего элемента коллекция сжимается - все последующие элементы сдвигаются, их номера уменьшаются. И вообще ориентироваться на номер элемента коллекции - не лучшая привычка.

У меня тоже глюк: (если этот вопрос задавали раньше - сорри я тут впервые)
У меня коллекциия "var" содержащая переменные которые поступают туда в процессе выполнения программы.
Добавляю item: "var.Add значение_переменной, название_переменной" (название идет за ключ)
обращаюсь к этой базе есстественно так:
var.Item(название_переменной) и она возвращает значение. И все отлично работает! Но возникла проблема при сохрании:
я могу вытащить из этой базы значение но не могу название (key)! Подскажите пожалуйста как это сделать!
Заранее очень благодарен.

Модератор: Пожалуйста, один топик - один вопрос.
Правила форума: http://forum.vingrad.ru/index.php?s=&act=SR&f=27