Comment modifier une variable passée en paramètre d'une fonction ?Résolu

Question

Bonsoir !!!

Dans mon exemple, j'essaie de modifier la variable rtClipBoard
déclaré dans mon Sub par l'intermédiaire de la fonction Analyser.
Ça ne fonctionne pas, comment faire ?
Je pensais que ByRef s'occupait de tout !


Sub Main()
    Dim rtClipBoard As String = "ABCD"
    'DEVRAIT AFFICHER DCBA
    Msgbox(Analyser(rtClipBoard:=rtClipBoard))
End Sub

Function Analyser(ByRef rtClipBoard As String) As Boolean
    rtClipBoard = "DCBA"
End Function

PCPT · Accepted Answer

salut,

et bin çà marche non?
j'ai bien le retour DCBA en tout cas...

ps : la syntaxe rtClipBoard:=rtClipBoard est à utiliser pour les arguments optional, ce qui n'est pas le cas !

ps : en vb.net on ne fait pas msgbox mais messagebox.show

[hr]

Duke49 · Answer

Correction:

Sub Main()
    Dim rtClipBoard As String = "ABCD"    
    If Analyser(rtClipBoard:=rtClipBoard) = True Then
        'DEVRAIT AFFICHER DCBA
        Msgbox(rtClipBoard)
    Else
        'DEVRAIT AFFICHER ABCD
        Msgbox(rtClipBoard)
    End If
End Sub

Function Analyser(ByRef rtClipBoard As String) As Boolean
    If rtClipBoard = "" Then Return False
    rtClipBoard = "DCBA"
    Return True
End Function

Duke49 · Answer

c pas vrai; fatigué !


Sub Main()
    Dim rtClipBoard As String = "ABCD"
   
    If Analyser(rtClipBoard:=rtClipBoard) = True Then
        'DEVRAIT AFFICHER DCBA
        'Si rtClipBoard = "ABCD"
        Msgbox(rtClipBoard)
    Else
        'DEVRAIT AFFICHER ABCD
        'Si rtClipBoard = ""
        Msgbox(rtClipBoard)
    End If
End Sub

Function Analyser(ByRef rtClipBoard As String) As Boolean
    If rtClipBoard = "" Then
        rtClipBoard = "ABCD"
        Return False
    Else
        rtClipBoard = "DCBA"
        Return True
    End If
End Function

Duke49 · Answer

Le ByRef suffit t'a raison; pfffff
Mille excuse !

Comment modifier une variable passée en paramètre d'une fonction ?

4 réponses

Votre réponse

Discussions similaires