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
|
Private m_arrEcrans As New ArrayList
Private frmEcranEnCours As Windows.Forms.Form = Nothing
Private Sub FormPrincipal_Load( _
ByVal sender As Object, _
ByVal e As System.EventArgs _
) Handles MyBase.Load
m_arrEcrans.Add(New SocieteEcran)
m_arrEcrans.Add(New SalarieEcran)
m_arrEcrans.Add(New xxxxxEcran)
'...
AfficheEcran(0)
End Sub
Private Sub AfficheEcran(ByVal Int_Index As Integer)
Dim ObjControl As Control
' Vérifie la présence d'ecrans
If IsNothing(m_ArrEcrans) Then Exit Sub
If m_arrEcrans.Count = 0 Then Exit Sub
' Vérifie l'index
If Int_Index < 0 Or Int_Index > m_arrEcrans.Count - 1 Then Exit Sub
If Not IsNothing(frmEcranEnCours) Then
' Récupération du panel
ObjControl = Me.Controls(0)
frmEcranEnCours.Controls.Add(ObjControl)
End if
' Récupère l'ecran
m_frmEcranEncours = m_arrEcrans(Int_Index)
' Ajout du panel
ObjControl = frmEcranEnCours.Controls(0)
Me.Controls.Add(ObjControl )
ObjControl .Dock = Windows.Forms.DockStyle.Fill
End Sub |
Partager