x38class Ответов: 1

Правильный синтаксис requirerd для неправильной переменной


Я взял какой - то код из:
Окна Сзади-VBForums[^]

предполагается, что это код для сохранения моей формы внизу, когда я оболочку других приложений, поскольку мое текущее приложение иногда имеет основную форму поверх оболочки приложения, например, если я оболочку thunderbird моя основная форма сидит сверху, я хочу, чтобы она всегда оставалась внизу.

код таков:
Частная функция объявления FindWindow Lib "user32" псевдоним "FindWindowA" ( _
ByVal lpClassName в виде строки, _
ByVal lpWindowName As String) As Long

Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" ( _
Бывал hWnd1 так долго, _
Бывал hWnd2 так долго, _
Бывал лпсз1 как струна, _
Бывал лпсз2 как струна) как долго

Частные заявляют функция setparent осуществляет либерал "библиотека user32" ( _
Бывал hWndChild как долго, _
ByVal hWndNewParent As Long) как долго

Частная Суб Form_Load()
Дим помощью progman&амп;, shellDllDefView&амп;, sysListView усилителя;

ProgMan = FindWindow("progman", vbNullString)
shellDllDefView = FindWindowEx(создать и усилитель;, 0&амп;, "shelldll_defview", vbNullString)
sysListView = FindWindowEx(shellDllDefView&, 0&, "syslistview32", vbNullString)

Setparent Осуществляет Мной.его hwnd, sysListView
Конец Подводной Лодки

ошибка находится в последней строке для "Me.hwnd", очевидно, что она неполная или совершенно неправильная, любое предложение об исправлении будет оценено по достоинству

Что я уже пробовал:

как и выше, я искал много сайтов и не нашел решения, я думал, что это было то самое.

1 Ответов

Рейтинг:
0

OriginalGriff

Попробуй:

SetParent (Me.hwnd, sysListView)