Bonjour
J'ai un programme qui appelle une fonction et j'aimerai récupérer la valeur que ma fonction renvoie
Dans le programme principal j'appelle ma fonction
La fonction
Code : Sélectionner tout - Visualiser dans une fenêtre à part RetourDial1 = BoiteDialog1
J'aimerai que ma fonction retourne le contenu de NomCherche dans le programme principal
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 Function BoiteDialog1 as string Dim BoiteDialog1 as object Dim fldText As Object Dim NomCherche as string DialogLibraries.LoadLibrary("Standard") BoiteDialog1 = CreateUnoDialog(DialogLibraries.Standard.BoiteDialog1) select case BoiteDialog1.Execute() case 1 fldText = BoiteDialog1.GetControl("Nom") NomCherche = ucase(fldText.text) RetourDial1 = NomCherche case 0 msgbox ("Recherche Annulée") end select 'BoiteDialog1.dispose() end function
J'ai déclaré la variables de plusieurs façon : Global, Static, Public
mais rien n'y fait je ne récupère pas le contenu de ma variable dans le programme principal
Quelqu'un aurait une petite idée de l'erreur que je commets
Cordialement
Partager