Принципиальный молчун
Зарегистрирован:
14 October 2007
Сообщения: 5
Примеры кода: 0
|
Дочернее окно внутри стороннего приложения |
15 October 2007 02:45 |
|
|
|
|
Может я вас неправильно понял, сделал как вы посоветовали, но эффекта не получил - форма не стала дочерней.
Вот код:
'объект реализующий IWin32Window
Public Class MyWin32
Implements IWin32Window
Private winPtr As IntPtr
Public Sub SetPtr(ByVal hWnd As IntPtr)
winPtr = New IntPtr
winPtr = hWnd
End Sub
Public ReadOnly Property Handle() As System.IntPtr Implements System.Windows.Forms.IWin32Window.Handle
Get
Return winPtr
End Get
End Property
Public Class MyForm
'...
Private win32 As MyWin32
Public Function SetWndPtrAndGetIWnd(ByVal hWnd As IntPtr) As IWin32Window
win32 = New MyWin32
win32.SetPtr(hWnd)
SetWndPtrAndGetIWnd = CType(win32, IWin32Window)
End Function
'...
End Class
Public Sub Run()
'...
FormM = New MyForm
Dim hwnd As IntPtr = New IntPtr(m_app.hWnd)
FormM.ShowDialog(FormM.SetWndPtrAndGetIWnd(hwnd))
End Sub
Данное сообщение получено с сайта GotDotNet.RU
Последний раз редактировалось 15 October 2007 02:45
|
|