Nommer une form en variable

**allergique** · 26/12/2009, 11h28

Bonjour,

Dans une macro je souhaite nommer une form par une variable. Le problème est que le code n'est pas reconnu (message "qualificatif incorrect").

Comment peut-on créer le code selon le principe ci-dessous?

Code :

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

1
2
3
nomdelaform = "Form2"
tailleimage_x = nomdelaform.Picture.Width

merci d'avance

**DarkVader** · 26/12/2009, 12h19

Bonjour,

Dans une macro ...

VB est un langage de programmation, tu peux parler de code, à moins qu'il ne s'agisse de VBA ?

Pour le principe, il faut récupérer l'object Form sousjacent dans la collection Forms

ex

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
   Function GetForm(sFrmName As String)
        Dim x As Long
 
        For x = 0 To Forms.Count - 1
           If Forms(x).Name = sFrmName Then
                Set GetForm = Forms(x)
                Exit Function
           End If
        Next
 
        On Error Resume Next
        Set GetForm = Forms.Add(sFrmName)
    End Function
 
=>
set myFrm = GetForm("Form2")
if typename(myFrm)<>"Nothing" then tailleimage_x = myFrm.Picture.Width