Коллизия с Expected Array в SHBrowseForFolder

@giaber · Регистрация: 16.09.2014

Студворк — интернет-сервис помощи студентам

В проге используется модуль для работы с SHBrowseForFolder с кнопкой «Создать новую папку» и заданием стартовой папки. Там есть такие строки:

Visual Basic
1
2
3
4
5
6
7
8
9
  lpIDList = SHBrowseForFolder(tBrowseInfo)
    If (lpIDList) Then
        sBuffer = Space(MAX_PATH)
        SHGetPathFromIDList lpIDList, sBuffer
        sBuffer = Left(sBuffer, InStr(sBuffer, vbNullChar) - 1)
        BrowseForFolder = sBuffer
    Else
        BrowseForFolder = ""
    End If

Прога прекращает работу с сообщением “Expected Array” и отмечает этот Left.
При работе в виде отдельной проги с кнопкой на пустой форме и с только этим модулем всё прекрасно работает.
В другом модуле есть такое:

Visual Basic
1
2
3
4
5
6
7
8
Public Declare Function SystemParametersInfo& Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, lpvParam As Any, ByVal fuWinIni As Long)
Public Const SPI_GETWORKAREA = 48
Public Type RECT
    Left As Long
    Top As Long
    Right As Long
    Bottom As Long
End Type

Похоже что конфликт из-за этого ? На одном англоязычном форуме утверждали на аналогичный вопрос (в Right была проблема) что проблема в этом.

Как решаются такие коллизии? Пытаться другим способом получать инфу о свободной зоне дестопа? Чтоб не было

Visual Basic
1
2
3
4
5
6
Public Type RECT
    Left As Long
    Top As Long
    Right As Long
    Bottom As Long
End Type

?

Остап Бонд · 04.06.2019, 16:35

giaber, попробуйте так записать -

Visual Basic
1
sBuffer = VBA.left$(sBuffer, InStr(sBuffer, vbNullChar) - 1)

@giaber · 04.06.2019, 17:16 **[ТС]**

Остап Бонд - сработало-о-о-о! Дай Бог Вам - счастья, а мне - чуть-чуть ума!

Остап Бонд · 06.06.2019, 09:25

giaber, проблема не в этом Left

Сообщение от giaber

Visual Basic
1
2
3
4
Public Type RECT
* * Left As Long
    ...
End Type

а в этом Me.Left, к которому форма иногда пытается обратиться в первую очередь.

Новые блоги и статьи Все статьи Все блоги /
Символьное дифференцирование igorrr37 13.02.2026 / * Программа принимает математическое выражение в виде строки и выдаёт его производную в виде строки и вычисляет значение производной при заданном х Логарифм записывается как: (x-2)log(x^2+2) -. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .	И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»
SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image 8Observer8 10.02.2026 Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .	Установка Qt-версии Lazarus IDE в Debian Trixie Xfce volvo 10.02.2026 В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .

@giaber 101 / 38 / 0 Регистрация: 16.09.2014 Сообщений: 426
	04.06.2019, 17:16 [ТС]
	Остап Бонд - сработало-о-о-о! Дай Бог Вам - счастья, а мне - чуть-чуть ума! 1

Коллизия с Expected Array в SHBrowseForFolder

Решение