powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Про листбокс
4 сообщений из 4, страница 1 из 1
Про листбокс
    #33329067
Недоходящий
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
на форме два листбокса, один вилимый, другой скрытый. в них заносятся одинаковые значения. В св-ах выставлено moverbars=.t.. Как мне зделать зависимость между ними, что если я перемещаю в видимом то и перемещалось автоматически в невидимом листбоксе?
...
Рейтинг: 0 / 0
Про листбокс
    #33329163
Недоходящий
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Вопрос снимаю, придумал оригинальный способ с добавлением пробелов, но если кто-то такое делал, пожалуйста напишите как. очень может пригодиться.
...
Рейтинг: 0 / 0
Про листбокс
    #33336609
w3d
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Может, пригодится:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
*** записываем названия муфт ***
n1=thisform.List1.ListCount 
ss=""
FOR ii= 1  TO n1
IF ALLTRIM(thisform.List1.List(ii))==""
ELSE 
ss=ALLTRIM(thisform.List1.List(ii))+","+ss
ENDIF 
ENDFOR 
ss=LEFT(ss,LEN(ss)- 1 )
replace msovm WITH ss
*****
*** записываем номера муфт ***
n2=thisform.List1.ListCount 
ss1=""
FOR ii= 1  TO n1
IF ALLTRIM(thisform.List2.List(ii))==""
ELSE 
ss1=ALLTRIM(thisform.List2.List(ii))+","+ss1
ENDIF 
ENDFOR 
ss1=LEFT(ss1,LEN(ss1)- 1 )
replace msovm1 WITH ss1

на форме 2 ListBox, один невидимый.
в таблице 2 поля для значенией этих ListBox-ов
...
Рейтинг: 0 / 0
Про листбокс
    #33336740
alex11100
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
посмотри пример из фокса
форма мультиселект
...
Рейтинг: 0 / 0
4 сообщений из 4, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Про листбокс
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]