Visual Basic, .NET, ASP, VBScript
 

   
   
     

Форум - .NET

Страница: 1 |

 

  Вопрос: Использование 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 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам