vb.net - Interop フォームを VB6 アプリケーションの先頭に保持する

Question

InteropFormsToolkit バージョン 2.1 を使用しています。私は、.NET フォームが VB6 フォームでスローされたイベントから読み込まれるときに、.NET フォームが一番上にとどまることができるようにしようとしています。私は多くのことを試しましたが、何も機能しません。z-index から、管理された呼び出しを User32.dll に追加して最前面にプッシュするなど、すべてを試しました。

どんなアイデアでも大歓迎です。

Answer 1

vb6 では、次のように使用できます。

Private Sub Form_Load()
OnTopMe Me, True
End Sub

モジュール内の次のコード

Declare Function SetWindowPos Lib "User32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cX As Long, ByVal cY As Long, ByVal wFlags As Long) As Long


Public Sub OnTopMe(FormID As Object, onTop As Boolean)
     If onTop = True Then SetWindowPos FormID.hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE
     If onTop = False Then SetWindowPos FormID.hwnd, HWND_NOTOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE
End Sub

.Netでそれを行う方法がわかりません