utiliser un string comme nom de controle

Question

voila une fonction de recuperation de fichiers (2 :dossier.ini et extensions.ini)

Function ouvrir(fichier As String)
'declaration de lgdata
Dim lgdata As String

Open fichier For Input As #1
While Not EOF(1)
Input #1, lgdata

If fichier = "extensions.ini" Then
frmSearch.extensionslist.AddItem lgdata
End If

If fichier = "dossier.ini" Then
frmSearch.dossierlist.AddItem lgdata
End If

Wend
Close #1

End Function

seulement je suis oblige d'avoir une condition  if par fichier. je voudrais faire quelquechose comme ca:

Function ouvrir(fichier As String)
'declaration de lgdata
Dim lgdata As String
Dim test As String

Open fichier For Input As #1
While Not EOF(1)
Input #1, lgdata

test = "frmSearch." & fichier & "list"

test.AddItem lgdata

Wend
Close #1

End Function

pour pouvoir l'utiliser directement sans etre oblige de venir y rajouter des lignes.

Si vous pouvez m'aider merci d'avance...
PS: je debute un peu donc allez y doucement siouplait.

ShareVB · Answer

salut

tu peux faire :

Dim Controle as object

set controle = callbyname(frmsearch,fichier & "list",vbget)
call callbyname(controle,"AddItem",vbmethod,lgdata)

je pense que ca devrait marcher

voila

ShareVB

breizhou13 · Answer

merci mais en fait j'ai trouve une autremaniere:

Function ouvrir(fichier As String, liste As ListBox)
    Dim lgdata As String
    Open fichier For Input As #1
        While Not EOF(1)
            Input #1, lgdata
            liste.AddItem lgdata
        Wend
    Close #1
End Function

et j'appelle ma fonction en passnt ce qui m'interresse en parametre....

Utiliser un string comme nom de controle

2 réponses

Discussions similaires