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 |