vbModeless vs API

[bevaine2000]

имеется хендл одного окна, имеется хедл второго окна, необходимо реализовать метод vbModeless, с помощью API-фунукции.

[Konst_One]

* Note: In VB6 this same result can be achieved using the new second parameter of the Show command:

frmChild.Show vbModeless, frmMain


BAS Module Code

Add the following code to a BAS module:

--------------------------------------------------------------------------------

Код: Выделить всё

Option Explicit
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Copyright ©1996-2005 VBnet, Randy Birch, All Rights Reserved.
' Some pages may also contain other copyrights by the author.
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Distribution: You can freely use this code in your own
'               applications, but you may not reproduce
'               or publish this code on any web site,
'               online service, or distribute as source
'               on any media without express permission.
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Public Const GWL_HWNDPARENT = (-8)

Public Declare Function SetWindowLong Lib "user32" _
    Alias "SetWindowLongA"_
   (ByVal hwnd As Long, ByVal nIndex As Long, _
    ByVal wNewLong As Long) As Long


In the general declarations area of the floating form (not the parent form!) place all of the following code:


--------------------------------------------------------------------------------

Код: Выделить всё

Option Explicit

Private OriginalParenthWnd As Long


Private Sub Form_Load()

   OriginalParenthWnd = SetWindowLong(Me.hwnd, _
                                      GWL_HWNDPARENT, _
                                      parent.hwnd)

End Sub


Private Sub Form_Unload()

  'Restore the original parent before unloading
   Call SetWindowLong(Me.hwnd, GWL_HWNDPARENT, OriginalParenthWnd)

End Sub

[bevaine2000]

Спасибо Konst_One, выручил это то что надо