Discussion :

[Invité]

Bonjour à tous

Je vous pose le contexte.

Une application VB6 avec une MdiForm et des MdiChild.
La MdiForm comporte une Toolbar.

Je souhaite qu'à certains moments une MdiChild reste au premier plan par rapport aux autres MdiChild, comme une fenêtre modale.

Pour cela j'utilise cette API :

Code :

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

1
2
3
4
5
6
7
8
Private Const GWL_HWNDPARENT = (-8)
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal wNewLong As Long) As Long
 
Public Sub KeepScreenVisible(frm As Form)
    'if the form is to stay on top, frm.hwnd will get the name of the form
    Dim KeepScreenOnTop As Long
    KeepScreenOnTop = SetWindowLong(frm.hwnd, GWL_HWNDPARENT, frm_Main.hwnd)
End Sub

frm_Main étant bien sûr le conteneur principal.

Cela fonctionne parfaitement, cependant sur une de mes MdiChild, j'ai un treeview et lorsque je sélectionne celui-ci (pour le déployer), la Toolbar de la fenêtre parent disparait et impossible de la voir s'afficher à nouveau.

Je précise que pour les autres contrôles de cette forme, listbox, je n'ai pas de disparition de la ToolBar.

Merci à tous ceux qui pourront m'aiguiller.

Philippe

[Invité]

Re

Petit complément d'information.

Lorsque je redimensionne le formulaire Parent manuellement (en cliquant sur les boutons), la toolbar apparaît, mais c'est moche de faire cela, et par code (WindowsState) cela ne fonctionne pas

Philippe

[ProgElecT]

Salut

cependant sur une de mes MdiChild, j'ai un treeview et lorsque je sélectionne celui-ci (pour le déployer), la Toolbar de la fenêtre parent

La fenêtre parent, la MDIForm ?

Curieusement je n'ai pas ce problème chez moi, a moins que je n'ai pas réussi à reproduire exactement les mêmes conditions que toi.

Je souhaite qu'à certains moments une MdiChild reste au premier plan par rapport aux autres MdiChild, comme une fenêtre modale.

Une solution peut être utilisable pour le cas que tu décris, sans utilisation d'APIs (qui semble t il créerait le disfonctionnement).
Form2 qui contient le TreeView se comporte comme si elle était modale dés qu'un node est sélectionné.

Un module.bas pour avoir une variable globale

Code :

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

1
2
Option Explicit
Public Drapeau As Boolean

Un MDIForm avec son Toolbar et ces 3 boutons, chacun déclenchant l'affichage de 3 Forms MDIChild.

Code :

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

1
2
3
4
5
6
7
8
'MDIForm
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Index
    Case 1: Form1.Show
    Case 2: Form2.Show
    Case 3: Form3.Show
End Select
End Sub

Code :

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

1
2
3
4
'Form1 MDIChild
Private Sub Form_Activate()
If Drapeau = True Then Form2.Show: Me.ZOrder 1
End Sub

Code :

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

1
2
3
4
'Form3 MDIChild
Private Sub Form_Activate()
If Drapeau = True Then Form2.Show: Me.ZOrder 1
End Sub

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
'Form2 MDIChild
Private Sub Form_Load()
Dim T As Integer
For T = 0 To 15
    TreeView1.Nodes.Add , , "MainMenu" & T, Chr$(T + 65)
Next T
End Sub
Private Sub Form_Unload(Cancel As Integer)
Drapeau = False
End Sub
Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node)
If Node.Selected = True Then Drapeau = True
End Sub

Lorsque je redimensionne le formulaire Parent manuellement (en cliquant sur les boutons), la toolbar apparaît, mais c'est moche de faire cela, et par code (WindowsState) cela ne fonctionne pas

Cela reste du code, mais une variable et une ligne dans chaque MDIChild reste une bidouille acceptable (pour moi )

[Invité]

Ce type de solution marche parfaitement et me convient