Nommer une form en variable

Version imprimable

26/12/2009, 11h28
allergique

Nommer une form en variable
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:

1 2 3 nomdelaform = "Form2" tailleimage_x = nomdelaform.Picture.Width
merci d'avance

Bonjour,

Citation:

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:

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

26/12/2009, 16h48
allergique

Il s'agit bien de VB6, j'ai utilisé "macro" parce que ça fait encore partie de mes vieilles habitudes d'excel :?

Ton code fonctionne bien :ccool:

Merci pour ton aide