IMHO.WS - Вопрос по копированию в буффер и VBA.

IMHO.WS (http://www.imho.ws/index.php)

- Программирование (http://www.imho.ws/forumdisplay.php?f=40)

- - Вопрос по копированию в буффер и VBA. (http://www.imho.ws/showthread.php?t=94686)

Вопрос по копированию в буффер и VBA.

Доброго времени суток.

Есть форма. В ней список с полями:
id|name

Ширина id - 0. Тоесть ег не видно.
Если кликнуть второй кнопкой мыши на элемент списка (пользователь видит name) и в контекстном меню выбрать "скопировать", то в буффер копируется id.

Можно ли как то изменить эту ситуацию :help: ?
Нужно что бы копировалось name.

Естественно наиболее простой вариант - поменять поля местами. Но при этом придется переписывать кучу кода.
Возможно ли этого избежать ?

С уважением. Ворон.

Самое первое, что приходит в голову -- создать такой же список (назовем его lst_Copy), только присоединенный столбец в нем указать 2-й, и выбирать в исходном списке выбранный элемент в копии; исходный же список сделать невидимым. Предположим, твой исходный список называется lst_My. Для lst_Copy пишем такой обработчик события "После обновления":

Код:

Private Sub lst_Copy_AfterUpdate()

    If Not IsNull(lst_Copy.Column(0)) Then

        lst_My.Value = lst_Copy.Column(0) ' Выбираем в исходном

         ' списке тот же элемент, который выбран в копии



        lst_My_AfterUpdate ' Если в исходном списке нет такого события,

         ' то эта строчка не нужна

    End If

End Sub