Discussion :

[thovan]

Bonjour,

Dans mon application l'interface est un menu sur la gauche qui ouvre les différents formulaires dans un tab control central en créant chaque fois un nouveau tab.

Pour faire ça, j'utilise ceci lorsqu'on clic par exemple sur le bouton settings du menu :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 TabControl1.Visible = True
        Dim t As New TabPage
        Dim newtab As New Settings(Me)
        newtab.Show()
        newtab.TopLevel = False
        newtab.Dock = DockStyle.Fill
        t.Text = "Paramétrage général"
        t.Controls.Add(newtab)
        TabControl1.TabPages.Add(t)
        TabControl1.SelectedIndex = TabControl1.TabCount - 1
        fonctions.writetolog("L'utilisateur " & connecteduser & " à ouvert " & t.Text)

Ce bout de code s'exécute donc à chaque fois sur chaque bouton....
J'essaie de le passer en fonction pour limiter chaque appel à une seule ligne en faisant comme ceci :

La fonction à 2 variables, le formulaire à appeler et le texte à faire apparaître dans le tab :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 Function opentab(ByVal fen As Form, ByVal text As String)
        TabControl1.Visible = True
        Dim t As New TabPage
        Dim newtab As New fen(Me)
        newtab.Show()
        newtab.TopLevel = False
        newtab.Dock = DockStyle.Fill
        t.Text = text
        t.Controls.Add(newtab)
        TabControl1.TabPages.Add(t)
        TabControl1.SelectedIndex = TabControl1.TabCount - 1
    End Function

Je ne sais pas pourquoi.... il ne veut pas reconnaître le paramètre fen.
Il me dit " le type fen n'est pas défini".

J'aimerais vraiment pouvoir compacter mon code car le menu ne cesse de grandir et je vais le doubler dans un ruban supérieur....
Quelqu'un à une idée?

[clementmarcotte]

Bonjour,

Oui, mais ton code ne montre pas, comment tu as défini Form, ni comment tu l'envoies à ta fonction comme Fen.

Également, il te manque ton Return à la fin de ta fonction.

Et, je ne suis pas convaincu que d'ouvrir ta Form pour récupérer ta donnée soit la meilleure façon de le faire.

Si l'ai bien compris, personnellement, je regarderais du côté d'un fichier de ressources (Tu peux en avoir en supplément des fichiers de ressources des forms.) Mais bon, je peux me tromper.

[thovan]

Hello,

Merci pour la réponse.
Effectivement, dans chaque form appelable j'ai ajouté ceci en début de code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
Public accueilform As Accueil
    Public Sub New(acform As Accueil)
        InitializeComponent()
        accueilform = acform
End Sub

Pour le return oui, je peux ajouter un return mais en elle-même la fonction ne return rien si ce n'est TRUE en cas de réussite et FALSE en cas d'échec.

Pour la suite, je ne comprends pas trop... :
Et, je ne suis pas convaincu que d'ouvrir ta Form pour récupérer ta donnée soit la meilleure façon de le faire.
Si l'ai bien compris, personnellement, je regarderais du côté d'un fichier de ressources (Tu peux en avoir en supplément des fichiers de ressources des forms.) Mais bon, je peux me tromper.

[clementmarcotte]

Bonjour,

Mais dans cette ligne:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Function opentab(ByVal fen As Form, ByVal text As String)

Fen, c'est quelle Form ? Et c'est quoi la ligne qui l'appelle ? Si ta Fen c'est une form unique et que ta fonction est dans le module de cette Form, je ne suis pas sûr que ce soit nécessaire de la transmettre.

Pour la suite, je ne comprends pas trop... :
Et, je ne suis pas convaincu que d'ouvrir ta Form pour récupérer ta donnée soit la meilleure façon de le faire.
Si l'ai bien compris, personnellement, je regarderais du côté d'un fichier de ressources (Tu peux en avoir en supplément des fichiers de ressources des forms.) Mais bon, je peux me tromper.

Ce que je comprends, c'est que tu veux ouvrir une form pour trouver une donnée. Si ce n'est pas cela, désolé.

Si l'idée c'est d'avoir une seule Form qui affiche un seul volet à chaque utilisateur et que chaque volet doit surveiller ce que son utilisateur fait, là j'avoue que tu m'as perdu en chemin. Plus de code et quelques captures d'écran (m')aideraient. Si ton application se retrouve sur toutes tes machines et sert "d'explorateur Windows"; cela me semble être plus approprié d'envisager une d'application MDI qui affiche des Form au besoin q'une seule form "extensible". Mais honnêtement, j'ai trop de "si" en tête et pas de solution.

[thovan]

Effectivement je pense que tu ne m'as pas compris :p
Je vais essayer avec des captures d'écran.

Donc, l'interface de l'application quand tu l'ouvres est un menu situé à gauche et un grand trou vide au centre :


Quand l'utilisateur choisi une des options du menu, le form concerné s'affiche dans le trou du centre, qui est en fait un tab control, dans un nouveau tab :
Si je clic sur "paramétrage général", le tab s'ouvre et le form "Settings" est affiché :


Ect, ect pour les autres options.

Donc dans la ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Function opentab(ByVal fen As Form, ByVal text As String)

Fen représente le form du projet qui doit être affiché dans le tab control.
C'est donc une variable de type Form que je souhaite passer en argument dans la fonction.

J'espère que c'est plus clair comme ça

[wallace1]

Bonsoir,

Avec les screenshots c'est vraiment plus clair ...
Je n'aurai qu'une chose à dire ....il y a carrément plus simple car à mon avis ce type de gestion de menu risque de complexifier grandement ton projet et à ce stade il faudrait se concentrer sur l'essentiel qui est le traitement des données ....

----> Un exemple :
TabcontrolVerticalProject.zip

Pour la gestion du menu :

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
 
Public Class Form1
 
    Public Sub New()
        InitializeComponent()
        TableLayoutPanel1.Dock = DockStyle.Fill
        HideMainMenuTabs() 'Commenter cette ligne permet d'afficher les entetes des TabPages du TabControl1.
        AssociateButtonsToTabPages()
    End Sub
 
    'On cache les entetes des TabPages pour gagner en ergonomie d'affichage sur le côté droit
    Private Sub HideMainMenuTabs()
        With TabControl1
            .SuspendLayout()
            .SizeMode = TabSizeMode.Fixed
            .ItemSize = New Size(0, 1)
            .Appearance = TabAppearance.FlatButtons
            .ResumeLayout()
        End With
    End Sub
 
    ' On associe les boutons aux Tabpages en se basant sur la propriété .Tag pour les boutons et l'index de positionnement du bouton dans la grille du TableLayoutPanel1
    Private Sub AssociateButtonsToTabPages()
        For Each ctrl As Control In TableLayoutPanel1.Controls
            If TypeOf ctrl Is Button Then
                ctrl.Tag = TableLayoutPanel1.GetRow(ctrl)
            End If
        Next
    End Sub
 
    Private Sub Menu_Click(sender As Object, e As EventArgs) Handles Button1.Click, Button2.Click, Button3.Click, Button4.Click, Button5.Click, Button6.Click, Button7.Click
        SelectTab(sender.tag)
    End Sub
 
    Private Sub SelectTab(BtnIndex As Integer)
        'On appelle le tabpage correspondant à l'index stocké dans la propriété .Tag du bouton
        TabControl1.SelectedIndex = BtnIndex
    End Sub
 
 
End Class

En mode Designer dans VS :




En mode Execution :




Si tu as des questions n'hésites pas

Bon codage