Interface graphique

Question

voila je cherche a faire un menu fenètre dans mon programe
ki rajouteré automatiquement dans le menu fenètre les fenètre actives du programe é si possible faire un truc genre mosaique

ceyquem · Answer

Vlà tous les codes :

1 - pour le réarrangement des fenêtres :

Private Sub mnuWindowCascade_Click()
Me.Arrange vbCascade
End Sub

Private Sub mnuWindowHM_Click()
Me.Arrange vbTileHorizontal
End Sub

Private Sub mnuWindowIcons_Click()
Me.Arrange vbArrangeIcons
End Sub

Private Sub mnuWindowVM_Click()
Me.Arrange vbTileVertical
End Sub

Pour la liste des fenêtres :

1 - faire un menu mnuWindowList
2 - lui mettre un index : 0
3 - le rendre invisible
4 - mettre ce code dans la procédure activate de la ou des feuille(s) fille(s) :

    For i = 1 To frmMain.mnuWindowNewWindow.Count - 1
        Unload frmMain.mnuWindowNewWindow(i)
    Next i
    For Each Control In Me
    If TypeOf Control Is Form Then
    t = frmMain.mnuWindowNewWindow.Count
    Load frmMain.mnuWindowNewWindow(t)
        frmMain.mnuWindowNewWindow(t).Caption = Form.Caption
        frmMain.mnuWindowNewWindow(t).Tag = Form.hwnd
        frmMain.mnuWindowNewWindow(t).Visible = True
    End If
    Next Control

Vlà a+

ceyquem · Answer

Hum, bcp plus simple pour la liste des fenêtres :

ajoute un menu mnuWindowList et coche dans le créateur de menu l'option "WindowList"... :-|

a+

Interface graphique

2 réponses

Discussions similaires