Как организовать выпадающий список с коррекцией? - VB
Формулировка задачи:
Привет всем и кто увидит!
У меня такая проблема: Нужно составить список чисел (расстояний между опорами, м., в часности). После нескольких записей возможно придется добавить, убавить или скорректировать любые числа. Временно записывать в текстовый файл, при выходе из программы. При этом стого соблюдать их порядок (последовательность) записи.
Т.е., если, наример, 23-я запись = '40' и ее я должен исправить на любое значение, то она не должна:
1 - изменить свое место положения... вседа быть на 23-м месте !!!
2 - не должно быть пропуска, т.е. <> '' или <> '0'
3 - нехочется связываться с базами данных (вы тут же предложите!)
4 - использовать только элементы управления из стандартного списка.
В VB5 или VB4- был выпадающий список (похож на СomboBox, но его можно исправлять, став на запись) - что есть такое в VB6????
или я уже того...
Предложения любые, если даже отличаются от моего условия, а вдруг у кого лучше есть решение..
Спасибо
Решение задачи: «Как организовать выпадающий список с коррекцией?»
textual
Листинг программы
' На фарме: Option Explicit Private Declare Function SendMessageByNum Lib 'user32' Alias 'SendMessageA' (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long Const LB_SETHORIZONTALEXTENT = &H194 ' и в событии коде Private Sub List1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) X = TextWidth(List1.List(List1.ListCount - 1)) If ScaleMode = vbTwips Then X = X / Screen.TwipsPerPixelX SendMessageByNum List1.hwnd, LB_SETHORIZONTALEXTENT, X, 0 End If End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д