| Вопрос: Использование WINAPI в VB.NET | Добавлено: 21.06.03 15:34 |
Автор вопроса:  BugCreator | ICQ: 167117191 |
|
Помогите плиз уже второй день бьюсь голову сломал: пытаюсь вызвать функцию АПИ EnumChildWindows, в качестве второго параметра нужно переадть указатель на процедуру куда функция АПИ передаст хэндлеры дочерних окон, указатель на процедуру получаю таким образом: Delegate Sub DEnumChildWin(ByVal hwnd As Integer, ByVal lparam As Integer) Private Sub EnumResult(ByVal hwnd As Integer, ByVal lparam As Integer) MsgBox(hwnd, MsgBoxStyle.Information, ) End Sub ... Dim EnumSub As DEnumChildWin Dim methhwnd As Integer ... EnumSub = New DEnumChildWin(AddressOf EnumResult) methhwnd = EnumSub.Method.MethodHandle.Value.ToInt32 далее в функцию переадю указатель на родительское окно и указатель на метод, куда нуна вернуть хэндлеры дочерних окон: EnumChildWindows(ptr, methhwnd, lParam) и тут идет ругань типа : Object reference not set to an instance of an object подскажите плиз где вилы? или как лучше по хэндлеру родительского окна получить хэндлеры всех его дочерних окон? за ранее всем огромный THX !!! |
| Ответы | Всего ответов: 1 |
|
Номер ответа: 1 Автор ответа:  shuffle Администратор ICQ: 201502381 Вопросов: 15 Ответов: 737 |
Профиль | Цитата | #1 | Добавлено: 24.06.03 00:31 |
|
А разве надо объявлять процедуру? В VB .NET окна я не перечислял, но вроде надо так: Delegate Function DEnumChildWin(ByVal hwnd As Integer, ByVal lparam As Integer) As Int32 Private Function EnumResult(ByVal hwnd As Integer, ByVal lparam As Integer) As Int32 MsgBox(hwnd, MsgBoxStyle.Information, ) Return 1 End Function |
||
Страница: 1 |