Слово
«list2»впервые сказано пользователем
4udo 09.12.2007 в 16:44,
и с тех пор употреблялось
47 раз.
Сообщения со словом
«list2»
Запрос выполнился за
0.0036 сек.
- 09.12.2007, 19:21. la_fou в теме
«VB 6.0»
... private sub command3 click программа для кнопки 3 if list2 listindex 0 then если количество выделенных знаков в list2 больше или равно нуля то list2 removeitem list2 listindex else иначе msg msgbox не выделен объект удаления в списке vbokonly ошибка если элемент не выделен то выдается сообщение ошибка end ifконец цикла if end sub private sub command3 mousemove button as integer shift as integer x as single y as single для кнопки 3 button целочисленное shift целочисленное y- текстовое х текстовое statusbar1 simpletext нажать на кнопку чтобы удалить выделенную запись в списке end sub private sub command4 click программа для кнопки 4 j j 1 msg inputbox введите марку машины ввод марок машин новая машина str j вывод окна где можно ввести текст или число длина строки i знаков list2 additem msg добавление жэлемента в list2 end sub конец программы private sub command4 mousemove button as integer shift as integer x as single y as single для кнопки 4 button целочисленное shift целочисленное y- текстовое х текстовое statusbar1 simpletext нажать на кнопку чтобы добавить запись в список end sub конец программы private sub command5 click программа для кнопки 5 if list1 listindex 0 or list2 listindex 0 then если количество выделенных знаков в list1 больше или равно нуля или количество знаков в list2 то msg msgbox не выделены объекты добавления vbokonly ошибка если элемент не выделен то выдается сообщение ошибка else иначе list3 additem list1 list list1 listindex list2 list list2 listindex for i1 1 to n if perechen i1 1 list1 list list1 listindex and perechen i1 2 list2 list list2 listindex then exit sub next i1 n n 1 perechen n 1 list1 list list1 listindex perechen n 2 list2 list list2 listindex end if end sub а дальше все тоже лень...
- 09.12.2007, 16:54. asterix20 в теме
«VB 6.0»
... что в кавычках end sub private sub command3 click if list2 listindex 0 then list2 removeitem list2 listindex else msg msgbox не выделен объект удаления в списке vbokonly ошибка тож самое что и выше тока с лист2 end if end sub private sub command3 mousemove button as integer shift as integer x as single y as single statusbar1 simpletext нажать на кнопку чтобы удалить выделенную запись в списке на статус баре пишется что в кавычках end sub private sub command4 click j j 1 msg inputbox введите марку машины ввод марок машин новая машина str j list2 additem msg тож самое что и выше с вводом в лист1 end sub private sub command4 mousemove button as integer shift as integer x as single y as single statusbar1 simpletext нажать на кнопку чтобы добавить запись в список на статус баре пишется что в кавычках end sub private sub command5 click if list1 listindex 0 or list2 listindex 0 then проверка условия msg msgbox не выделены объекты добавления vbokonly ошибка вывод ошибки else list3 additem list1 list list1 listindex list2 list list2 listindex добавление в лист3 for i1 1 to n для и т п if perechen i1 1 list1 list list1 listindex and perechen i1 2 list2 list list2 listindex then exit sub проверка условия и выполнение его next i1 n n 1 perechen n 1 list1 list list1 listindex perechen n 2 list2 list list2 listindex end if end sub private sub command5 mousemove button as integer shift as integer x as single y as single statusbar1 simpletext выделить фермерское хозяйство и марку машины нажать кнопку чтобы сформировать список заказов на статус баре пишется что в кавычках end sub private sub command6 click list3 clear тут все понятно for i1 1 to n list3 additem perechen i1 1 perechen i1 2 добавление в лист 3 next i1 end sub private sub command6 mousemove button as integer shift as integer x as single y as single statusbar1 simpletext выводит сформированный список всех заказов на статус баре пишется что в кавычках end sub private sub command7 click list3 clear end sub private sub command7 mousemove button as integer shift as integer x as single y as single statusbar1 simpletext нажать на кнопку чтобы удалить выделенную запись в списке на статус баре пишется что в кавычках end sub дальше все объяснения однотипны private sub command8 click for i1 1 to list2 listcount auto i1 1 list2 list i1 1 auto i1 2 0 next i1 for i1 1 to n for j1 1 to list2 listcount if auto j1 1 perechen i1 2 then auto j1 2 str val auto j1 2 1 next j1 next i1 for i1 1 to list2 listcount 1 for j1 i1 1 to list2 listcount if val auto i1 2 val auto j1 2 then tmp auto i1 2 auto i1 2 auto j1 2 auto j1 2 tmp end if next j1 next i1 list3 clear for i1 1 to list2 listcount if auto i1 2 0 then list3 additem auto...
- 09.12.2007, 16:44. 4udo в теме
«VB 6.0»
... запись в списке end sub private sub command3 click if list2 listindex 0 then list2 removeitem list2 listindex else msg msgbox не выделен объект удаления в списке vbokonly ошибка end if end sub private sub command3 mousemove button as integer shift as integer x as single y as single statusbar1 simpletext нажать на кнопку чтобы удалить выделенную запись в списке end sub private sub command4 click j j 1 msg inputbox введите марку машины ввод марок машин новая машина str j list2 additem msg end sub private sub command4 mousemove button as integer shift as integer x as single y as single statusbar1 simpletext нажать на кнопку чтобы добавить запись в список end sub private sub command5 click if list1 listindex 0 or list2 listindex 0 then msg msgbox не выделены объекты добавления vbokonly ошибка else list3 additem list1 list list1 listindex list2 list list2 listindex for i1 1 to n if perechen i1 1 list1 list list1 listindex and perechen i1 2 list2 list list2 listindex then exit sub next i1 n n 1 perechen n 1 list1 list list1 listindex perechen n 2 list2 list list2 listindex end if end sub private sub command5 mousemove button as integer shift as integer x as single y as single statusbar1 simpletext выделить фермерское хозяйство и марку машины нажать кнопку чтобы сформировать список заказов end sub private sub command6 click list3 clear for i1 1 to n list3 additem perechen i1 1 perechen i1 2 next i1 end sub private sub command6 mousemove button as integer shift as integer x as single y as single statusbar1 simpletext выводит сформированный список всех заказов end sub private sub command7 click list3 clear end sub private sub command7 mousemove button as integer shift as integer x as single y as single statusbar1 simpletext нажать на кнопку чтобы удалить выделенную запись в списке end sub private sub command8 click for i1 1 to list2 listcount auto i1 1 list2 list i1 1 auto i1 2 0 next i1 for i1 1 to n for j1 1 to list2 listcount if auto j1 1 perechen i1 2 then auto j1 2 str val auto j1 2 1 next j1 next i1 for i1 1 to list2 listcount 1 for j1 i1 1 to list2 listcount if val auto i1 2 val auto j1 2 then tmp auto i1 2 auto i1 2 auto j1 2 auto j1 2 tmp end if next j1 next i1 list3 clear for i1 1 to list2 listcount if auto i1 2 0 then list3 additem auto...