Discussion :

[Robertledoux62]

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.

[umfred]

le paramètre sender informe de qui est à l'origine de l'appel de la méthode; mais windows.forms.form (ou plus simplement Form) devrait passer, au pire object et caster ensuite (si tu es bien dans un projet d'application windows Forms).

Mais utiliser le nom d'un bouton (ou d'un contrôle) directement implique que le bouton (ou contrôle) en question existe

[Robertledoux62]

Bonjour,

Je te remercie pour l'info.
Je viens de tester et j'arrive bien à récupérer la form via :
Dim maForm as windows.form.form = FrmMenu (je passerais le nom en paramètre dans ma fonction)

par contre lorsque je veux tester le contrôle via mon for each je n'arrive pas à récupérer mes button au sein de mon panel.

Ne devrais-je pas avoir la possibilité d'interroger le panel au sein de maForm exemple :

Code :

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

For Each ctr As Control In maForm.panel.controls

avec ce type de boucle je n'arrive pas à interroger les buttons de mon panel.

Code :

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

1
2
3
4
5
6
7
For Each ctr As Control In varlv.controls
                If TypeOf ctr Is Guna.UI.WinForms.GunaAdvenceButton Then
                    If ctr.Name = "GunaAdvenceButton1" Then
                        ctr.Text = "Contrôles"
                    End If
                End If
            Next

Je te remercie par avance.

[umfred]

ça devrait fonctionner si varlv est le conteneur parent (il faut son nom et pas le type du contrôle) donc par exemple maForm.Controls("Panel1") ou FrmMenu.Panel1

[Robertledoux62]

Oui voila j'ai bien réussi à récupérer ma form est à lire les buttons de celle-ci par contre, je voudrais modifier text du button via moncontrol.text = "NewValue" mais cela ne fonctionne pas. Il n'y a pas d'erreur de retour d'erreur dans le code, la console d'objet affiche bien la nouvelle valeur text mais dans la form il n'y a pas de modification.

Code :

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

1
2
3
4
5
6
 For Each ctr As Control In maform.Controls("GunaPanel2").Controls
                If TypeOf ctr Is Guna.UI.WinForms.GunaAdvenceButton Then
                    If ctr.Name = "GunaAdvenceButton7" Then
                   ctr.text = "test"
end if
next

J'ai recherché et il semblerait que le faite de passer par un module, bloque ma modification. Peux-tu également me donner quelques conseils sur le sujet s'il te plaît

[umfred]

J'ai fait un test, ça fonctionne chez moi. Il faudrait voir ton code complet (appel de la méthode, méthode complete)
Dans ton code il doit manquer un "End If" on dirait (sauf si il y a un retour à ligne du au forum)
Et si il y a des erreurs, ça serait bien aussi d'avoir leur message