Discussion :

[saadoun]

Bonjour,
y a'il quelqu'un pour m'aidé pour créer un menu verticale:
j'ai un menu situé dans une panel qui s'appel "pnlMenu"
et 5 sous Menu chaque sous Menu situé dans une panel Sous Menu "pnlsousMenu" (pnlsousMenu1,pnlsousMenu2,....)

chaque "pnlsousmenu" contient des boutons où il y a des entêtes de chaque sous menu : (voir pièce jointe)

j'ai reussi de faire correctement les deux panel sous menu, et je suis bloquer aux 3 autres au niveu de deplacement de panel sous menu 3 et 4 et 5
voir le code :

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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
Public Class frm_Menu
    Dim taille1, taille2, taille3, taille4, taille5 As Integer
    Private Sub Menu_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        taille1 = pnlSousMenu1.Height
        taille2 = pnlsousMenu2.Height
        taille3 = pnlSousMenu3.Height
        taille4 = pnlSousMenu4.Height
        taille5 = pnlsousMenu5.Height
        pnlMenu.Height = Me.Height
        pnlForm.Height = Me.Height
        pnlForm.Width = Me.Width - pnlMenu.Width - 30
    End Sub
 
    Private Sub btnsousMenu1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsousMenu1.Click
        If btnsousMenu1.Text = "<<" Then
            pnlSousMenu1.Height = btnsousMenu1.Height
            btnsousMenu1.Text = ">>"
            pnlsousMenu2.Top = pnlSousMenu1.Height
 
        Else
            pnlSousMenu1.Height = taille1
            btnsousMenu1.Text = "<<"
            pnlsousMenu2.Top = pnlSousMenu1.Height
 
       End If
 
 
    End Sub
 
    Private Sub btnsousMenu2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsousMenu2.Click
        If btnsousMenu2.Text = "<<" Then
            pnlsousMenu2.Height = btnsousMenu2.Height
            btnsousMenu2.Text = ">>"
 
        Else
            pnlsousMenu2.Height = taille2
            btnsousMenu2.Text = "<<"
 
        End If
    End Sub
 
    Private Sub btnsousMenu3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsousMenu3.Click
        If btnsousMenu3.Text = "<<" Then
            pnlSousMenu3.Height = btnsousMenu3.Height
            btnsousMenu3.Text = ">>"
 
        Else
            pnlSousMenu3.Height = taille3
            btnsousMenu3.Text = "<<"
        End If
    End Sub
 
 
    Private Sub btnsousMenu4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsousMenu4.Click
        If btnsousMenu4.Text = "<<" Then
            pnlSousMenu4.Height = btnsousMenu4.Height
            btnsousMenu4.Text = ">>"
        Else
            pnlSousMenu4.Height = taille4
            btnsousMenu4.Text = "<<"
        End If
    End Sub
Private Sub btnsousMenu5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsousMenu5.Click
        If btnsousMenu5.Text = "<<" Then
            pnlsousMenu5.Height = btnsousMenu5.Height
            btnsousMenu5.Text = ">>"
 
        Else
            pnlsousMenu5.Height = taille4
            btnsousMenu5.Text = "<<"
 
        End If
    End Sub
end Sub

[saadoun]

aucune solution?