Bonjour,
Je souhaiterais avoir un petit renseignement, comment puis-je récupérer le paramètre form dans une fonction ?
Exemple :

Dans ma FrmMenu je souhaiterais appeler une function qui m'affiche ou pas les menus en fonction de la form.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
  Private Sub FrmMenu_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        'appel de la function menuDetail qui me permet d'afficher ou non le button
Call MenuDetail(ListeMenu,FrmMenu)
    End Sub
Module.VB

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
Sub MenuDetail(ByVal menus As String, mavariable as  .... )
'j'ai essayer windows.form mais cela ne fonctionne pas, pareil avec du string
 
If ListeMenu = "commande" Then
 
'lorsque je rentre FrmMenu cela fonctionne mais je ne trouve pas le type de variable à renvoyer
 
            FrmMenu.GunaAdvenceButton1.Text = "Sources des" & vbCrLf & "commandes"
            FrmMenu.GunaAdvenceButton2.Text = "Commandes" & vbCrLf & "par statut"
            FrmMenu.GunaAdvenceButton3.Text = "Détail des" & vbCrLf & "commandes"
            FrmMenu.GunaAdvenceButton4.Text = "Intégration" & vbCrLf & "fichier imprimeur"
            FrmMenu.GunaAdvenceButton5.Text = "Contrôle des" & vbCrLf & "commandes"
            FrmMenu.GunaAdvenceButton6.Text = "Créer commande" & vbCrLf & "en masse"
 
           ElseIf ListeMenu = "commerce" Then
 
           mavriable.GunaAdvenceButton1.Text = "Référencement"
           mavriable.GunaAdvenceButton2.Text = "Validation"
           mavriable.GunaAdvenceButton3.Text = "Commandes référencées"
           mavriable.GunaAdvenceButton4.Text = "Suivi prospection"
end if
end sub
je vous remercie par avance.