Discussion :

[obydissonn]

Salut
j'ai la signature de la méthode suivante

Code :

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

1
2
3
4
5
6
 
 
Public Function VerifierActionSuivant(ByVal sTypeDemande As String, 
 ByVal sNatureTypeDemande As String, ByVal sTraitementAVerifier As String,
ByVal sStatutDemande As String, ByVal sTraitementSuivant As String,
ByVal sCodeActionSuivante As String, ByVal sCodeServiceSuivant As String, ByRef LBMsg As String, ByVal sCodeCentre As String, ByVal sCodeClient As String, ByVal sOrdre As String, ByVal sLibelleCentre As String, ByVal sNomEtPrenomClient As String, ByVal sNumeroDemande As String, ByVal sLibTypDem As String, ByVal sLibService As String, ByVal sLibAction As String, ByVal sTypeClient As String, ByVal sTelephone As String, ByRef sEcranAffiche As String) As Boolean

et voici l'appel

Code :

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

1
2
3
4
5

If FctGles.VerifierActionSuivant(_CodeTypDem, _NatDem, "", stDem.STATUT, sTS, sCAS, sCSS, LBMsgCloture.Text, TBCodeCentre.Text, TBCodeClient.Text, TBOrdre.Text, TBLibelleCentre.Text, TBNomEtPrenomClient.Text, TBNumeroDemande.Text, _LibTypDem, TBServiceSuivant.Text, TBActionSuivante.Text, TBTypeClient.Text, TBTelephone.Text, sEcranAffiche) = True Then

end if

à l'appel le message {Échec de l'évaluation de la propriété.} s'affiche.
le message apparait au niveau du paramètre

Code :

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

 LBMsgCloture.Text

en rouge.

je ne sais pas quoi faire pour résoudre le problème. Merci pour votre aide.

[Bluedeep]

On ne peut pas passer une propriété en Byref.

Accessoirement, cela n'a aucun sens et aucune justification d'écrire une méthode avec autant de paramètres.

EDIT : si, on peut.

[tomlev]

On ne peut pas passer une propriété en Byref.

Ouais, et d'ailleurs le compilateur VB est bien nase de ne pas le signaler à la compilation

Accessoirement, cela n'a aucun sens et aucune justification d'écrire une méthode avec autant de paramètres.

Je dirais plutôt que ça a un sens, mais aucune justification... au dela de 4 paramètres il est grand temps de créer un nouveau type

[Bluedeep]

Je dirais plutôt que ça a un sens, mais aucune justification...

Bon, si tu veux

au dela de 4 paramètres il est grand temps de créer un nouveau type

C'était en effet le sens de ma remarque.

[tomlev]

Re, en fait je viens de tester, on peut passer des propriétés par référence en VB.NET... (*)

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
Sub Main
    Dim t As New Foo() With { .Bar = "hello" }
    Console.WriteLine(t.Bar) ' hello
    Test(t.Bar)
    Console.WriteLine(t.Bar) ' blabla
End Sub
 
 
Class Foo
 
    Public Property Bar As String
 
End Class
 
Sub Test(ByRef x As String)
    x = "blabla"
End Sub

Donc le problème ne vient pas de là...

@obydissonn, est-ce que ce code s'exécute sur un thread autre que celui de l'UI ?


(*) EDIT: en fait voilà le code IL qui correspond au Main :
(tel qu'affiché par LinqPad)

Code IL :

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
IL_0000:  newobj      UserQuery+Foo..ctor
IL_0005:  stloc.1     
IL_0006:  ldloc.1     
IL_0007:  ldstr       "hello"
IL_000C:  callvirt    UserQuery+Foo.set_Bar
IL_0011:  ldloc.1     
IL_0012:  stloc.0     
IL_0013:  ldloc.0     
IL_0014:  callvirt    UserQuery+Foo.get_Bar
IL_0019:  call        System.Console.WriteLine
IL_001E:  ldarg.0     
IL_001F:  ldloc.0     
IL_0020:  stloc.1     
IL_0021:  ldloc.1     
IL_0022:  callvirt    UserQuery+Foo.get_Bar
IL_0027:  stloc.2     
IL_0028:  ldloca.s    02 
IL_002A:  callvirt    UserQuery.Test
IL_002F:  ldloc.1     
IL_0030:  ldloc.2     
IL_0031:  callvirt    UserQuery+Foo.set_Bar
IL_0036:  ldloc.0     
IL_0037:  callvirt    UserQuery+Foo.get_Bar
IL_003C:  call        System.Console.WriteLine

Donc en fait c'est juste une astuce du compilateur VB : il copie la propriété dans une variable, passe la variable par référence, appelle la méthode, et réaffecte la variable à la propriété.

[Bluedeep]

Re, en fait je viens de tester, on peut passer des propriétés par référence en VB.NET.

Ah ? j'ai donc fourni une réponse fumeuse basée sur le cas C# (où on ne peut pas le faire)

Le code suivant par exemple ne compile pas :

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
      public class Foo
        {
            public string Text
            {
                get;
                set;
            }
        }
        private static void eval(ref string text)
        {
            text = text + "X";
        }
        public static void Test()
        {
            Foo foo1 = new Foo();
            foo1.Text = "gabuzomeu";
            eval(ref foo1.Text); // => erreur de compil
        }

[tomlev]

Ah ? j'ai donc fourni une réponse fumeuse basée sur le cas C# (où on ne peut pas le faire)

Oui, et c'est pour ça que j'étais de ton avis au début... J'ai donc testé pour en avoir le coeur net