Ответить на сообщение
Вернуться к теме
Вы отвечаете на сообщение:
ник: час Ничё не понимаю
k = FRM_Okno.lsvODE.SelectedItem
If k <> "" Then For kk = 1 To FRM_Okno.lsvODE.ListItems.Count If FRM_Okno.lsvODE.ListItems(kk) = k Then FRM_Okno.lsvODE.SelectedItem.EnsureVisible FRM_Okno.lsvODE.ListItems(kk).Selected = True Exit For End If Next kk End If
Ваше имя:
Пароль:
Сообщение:
Прикрепить:
Для вставки смайлов в текст щелкните по значку.