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
| Imports System
Imports System.Drawing
Imports System.Windows.Forms
Public Class Menu_Recette
Dim ModuleExpanded1 As Boolean = True
Dim ModuleExpanded2 As Boolean = False
Dim ModuleExpanded3 As Boolean = False
Dim ModuleExpanded4 As Boolean = False
Dim ModuleExpanded5 As Boolean = False
Dim Hauteur As Decimal
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
If ModuleExpanded1 = False Then
ModuleExpanded1 = True
''Expand the panel by changing its height to the original height.
Panel2.Height = Hauteur : Button2.Image = ImageList1.Images(0)
''ModuleExpanded1 = False : Button1.Image = ImageList1.Images(1) : Panel2.Height = Panel3.Height
ModuleExpanded2 = False : Button3.Image = ImageList1.Images(1) : Panel3.Height = Panel4.Height
'ModuleExpanded3 = False : Button3.Image = ImageList1.Images(1) : Panel4.Height = Panel5.Height
'ModuleExpanded4 = False : Button4.Image = ImageList1.Images(1) : Panel8.Height = Panel9.Height
End If
End Sub
Private Sub BF_AfterSelect(ByVal sender As System.Object, ByVal e As System.Windows.Forms.TreeViewEventArgs) Handles BF.AfterSelect
Dim NoeudChoisi As String
NoeudChoisi = ""
NoeudChoisi = BF.SelectedNode.ToString
Select Case NoeudChoisi
Case "TreeNode: " & Me.BF.Nodes(0).Text
impo.Show()
Case "TreeNode: " & Me.BF.Nodes(1).Text
saisir.Show()
Case "TreeNode: " & Me.BF.Nodes(2).Text
Importer_recouvrement.Show()
Case "TreeNode: " & Me.BF.Nodes(2).Text
saisir_recouvrement.Show()
End Select
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
If ModuleExpanded2 = False Then
ModuleExpanded2 = True
''Expand the panel by changing its height to the original height.
Panel3.Height = Hauteur : Button3.Image = ImageList1.Images(0)
ModuleExpanded1 = False : Button2.Image = ImageList1.Images(1) : Panel2.Height = Panel3.Height
''ModuleExpanded2 = False : Button2.Image = ImageList1.Images(1) : Panel3.Height = Panel4.Height
'ModuleExpanded3 = False : Button3.Image = ImageList1.Images(1) : Panel4.Height = Panel5.Height
'ModuleExpanded4 = False : Button4.Image = ImageList1.Images(1) : Panel8.Height = Panel9.Height
End If
End Sub |
