Discussion :

[Tropic]

Bonjour

J'ai une fenêtre MDI contenant 2 fenêtres enfant

Une fenêtre maitre et la secondaire contenant des boutons
Je veux que lorsqu'on click sur un bouton de la deuxième feuille,
la première fenêtre ne perd pas le focus

j'ai essayé ce code
if fonctionne très bien sur une fenêtre normal
mais pas dans ce contexte

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Private Const WS_EX_NOACTIVATE  As Integer = &H8000000
Protected Overrides ReadOnly Property CreateParams() As System.Windows.Forms.CreateParams
    Get
        Dim cp As CreateParams = MyBase.CreateParams
        cp.ExStyle = cp.ExStyle Or WS_EX_NOACTIVATE
        cp.Parent = IntPtr.Zero
        Return cp
    End Get
End Property

OU

éventuellement transformé cette deuxième feuille en user control non activable
que je poserai sur la fenêtre MDI

l'a transformer en user control
je sais le faire mais pas en NON ACTIVABLE

Merci

[Tropic]

Bon, voila l'astuce
j'ai mélangé tous ce que je connais en API
et sa fonctionne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Private Declare Function ShowWindowAsync Lib "user32.dll" (ByVal hWnd As IntPtr, ByVal nCmdShow As Integer) As Integer
Private Const SW_SHOWNOACTIVATE As Integer = 4i
 
Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As IntPtr, ByVal nCmdShow As Int32) As Int32
Private Declare Function SetParent Lib "user32" (ByVal hWndChild As IntPtr, ByVal hWndNewParent As IntPtr) As Integer
 
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As IntPtr, ByVal nIndex As Integer) As Integer
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As IntPtr, ByVal nIndex As Integer, ByVal dwNewLong As Integer) As Integer
Private Const GWL_EXSTYLE As Integer = (-20)
Private Const GWL_STYLE As Integer = (-16)
Private Const WS_CHILD  As Integer= &H40000000
Private Const WS_EX_NOACTIVATE  As Integer = &H8000000
 
 
Public Sub MyShow(ByVal hWndParent As IntPtr)
 
    Dim GwlLExStyles As Integer = GetWindowLong(Me.Handle, GWL_EXSTYLE)
    Dim GwlStyles As Integer = GetWindowLong(Me.Handle, GWL_STYLE)
 
    SetWindowLong (Me.Handle, GWL_EXSTYLE, (GwlExStyles Or WS_EX_NOACTIVATE))
    SetWindowLong (Me.Handle, GWL_STYLE, (GwlStyles Or WS_CHILD))
    SetWindowLong (Me.Handle, GWL_HWNDPARENT, hWndParent.ToInt32)
 
    SetParent(Me.Handle, hWndParent)
 
    ShowWindowAsync(Me.Handle, SW_SHOWNOACTIVATE)
End Sub

l'ordre d'appel des APIs est important
si vous mettez SetParent en premier, la fenêtre prend le focus