Как организовать выпадающий список с коррекцией? - 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

8   голосов , оценка 4.125 из 5
Похожие ответы