ReSQL.ru
     
powered by simpleCommunicator - 2.0.36     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Функции Application.Index(...)
12 сообщений из 12, страница 1 из 1
Функции Application.Index(...)
    #38237606
Дима Г
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Дима Г
Участник
Уважаемые программисты, подскажите, пожалуйста, где можно посмотреть описание функции Application.Index(...). C помощью этой функции можно получить массив значений столбца элемента управления.
Например, Application.Index(Список.Column, 1), возвращает массив первого столбца списка. Одна проблема, индексация массива начинается с 1. Хотелось бы с 0 или с любого. Возможно ли это сделать?
Используя функцию Application.Index, циклы не нужны.
Спасибо.
...
Рейтинг: 0 / 0
24.04.2013, 09:33
| Ответить | Цитировать | Написать  
Функции Application.Index(...)
    #38237807
Фотография HandKot
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
HandKot
Участник
Дима Г,
Код: vbnet
1.
Option Base {0 | 1} ?

НО либо, либо
...
Рейтинг: 0 / 0
24.04.2013, 11:30
| Ответить | Цитировать | Написать  
Функции Application.Index(...)
    #38237931
Дима Г
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Дима Г
Участник
HandKotДима Г,
Код: vbnet
1.
Option Base {0 | 1} ?

НО либо, либо

Не помогло. Эффект тот же.
...
Рейтинг: 0 / 0
24.04.2013, 12:13
| Ответить | Цитировать | Написать  
Функции Application.Index(...)
    #38237950
Фотография AndreTM
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AndreTM
Участник
А чем именно не устраивает нумерация с 1?
...
Рейтинг: 0 / 0
24.04.2013, 12:22
| Ответить | Цитировать | Написать  
Функции Application.Index(...)
    #38237968
Дима Г
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Дима Г
Участник
AndreTMА чем именно не устраивает нумерация с 1?

Необходима "согласованность" с другими ранее написанными функциями, индексы в массивах которых начин. с 0.
...
Рейтинг: 0 / 0
24.04.2013, 12:28
| Ответить | Цитировать | Написать  
Функции Application.Index(...)
    #38237997
Фотография AndreTM
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AndreTM
Участник
Можно модифицировать старые функции на предмет учёта опционального параметра LowerBound или глобальной переменной LowerIndex.
Можно написать свой класс для работы с Application.Index , где вы будете подменять индекс.
...
Рейтинг: 0 / 0
24.04.2013, 12:42
| Ответить | Цитировать | Написать  
Функции Application.Index(...)
    #38238030
Казанский
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Казанский
Гость
Дима ГОдна проблема, индексация массива начинается с 1. Хотелось бы с 0 или с любого. Возможно ли это сделать?
Возможно :)
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
Private Declare Sub CopyMem Lib "kernel32" Alias "RtlMoveMemory" (Dst As Any, Src As Any, ByVal Length As Long)
Private Declare Function VarPtrArr Lib "msvbvm60" Alias "VarPtr" (arr() As Any) As Long

Private Sub UserForm_Initialize()
Dim v(), ptrVSA&
v = Application.Index(ListBox1.Column, 1)

CopyMem ptrVSA, ByVal VarPtrArr(v), 4   'ptrVSA - указатель на структуру SafeArray массива v
CopyMem ByVal ptrSA + 20, -2&, 4        'LBound имеет смещение +20 от начала структуры
                                        'теперь индексация начинается с -2
End Sub
...
Рейтинг: 0 / 0
24.04.2013, 12:54
| Ответить | Цитировать | Написать  
Функции Application.Index(...)
    #38238036
Казанский
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Казанский
Гость
Поправка: ... ptrVSA+20 ...
...
Рейтинг: 0 / 0
24.04.2013, 12:57
| Ответить | Цитировать | Написать  
Функции Application.Index(...)
    #38238071
Дима Г
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Дима Г
Участник
Казанский,

Спасибо!
Пока не попробовал. Код простой и наверное через API быстрый.
...
Рейтинг: 0 / 0
24.04.2013, 13:11
| Ответить | Цитировать | Написать  
Функции Application.Index(...)
    #38239160
Дима Г
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Дима Г
Участник
Казанский,

Все работает. ОК.
...
Рейтинг: 0 / 0
24.04.2013, 22:37
| Ответить | Цитировать | Написать  
Период между сообщениями больше года.
Функции Application.Index(...)
    #40057620
rick1177
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
rick1177
Гость
Казанский, добрый день.
А научите, пожалуйста, пользоваться Вашим решением.
Что-то не могу сообразить что и куда засовывать и что вообще здесь написано ))

Прошу подсказки для неумех.
...
Рейтинг: 0 / 0
28.03.2021, 22:25
| Ответить | Цитировать | Написать  
Функции Application.Index(...)
    #40058558
Eolt
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Eolt
Участник
rick1177,

В отвечаете на пост который был написан 8 лет назад. Автора может уже и в живых нет.
...
Рейтинг: 0 / 0
31.03.2021, 15:33
| Ответить | Цитировать | Написать  
12 сообщений из 12, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Функции Application.Index(...)
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru             Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&msg=40058558&tid=2154739]:
 0ms
get settings:
 11ms
get forum list:
 13ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 26ms
get topic data:
 11ms
get forum data:
 2ms
get page messages:
 45ms
get tp. blocked users:
 1ms
others: 15ms
total:  130ms
созд. / загр.: 130ms
x
x
Закрыть


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