InteropフォームをVB6アプリケーションの先頭に保つ

Question

私はInteropFormsToolkitバージョン2.1を使用しています。私は、.NETフォームがVB6フォームでスローされるイベントから.NETフォームがロードされたときに、.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