Discussion :

[soso78]

Bonjour,

Dans ma form, j'ai crée dynamiquement des contrôles textbox.

Je voudrais maintenant savoir s'il est possible de récupérer les propriétés d'un contrôle créer dynamiquement (grâce à la faq) afin de pouvoir éventuellement les modifier lorsque la souris passe dessus ?

Dans le même genre, je souhaiterais savoir s'il est possible de définir dynamiquement des procédures à ces contrôles pour faire du drag & drop (_dragover, mouseup, ...) ?

Merci par avance.

[zazaraignée]

Tes contrôles créés dynamiquement doivent avoir un nom, une valeur d'index ?
Tu les a créés avec quelle 'recette' au juste? On peut voir le code qui les crée.

[soso78]

Alors, voici le code que j'ai ajouté :

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
    'Ajoute une zone de texte
    Set ctlText = Controls.Add("VB.TextBox", ListMasterFields, frmMain)
 
    'Définie les propriétés de la zone de texte
    With ctlText
      .Top = lngTop
      .Left = lngLeft
      .Width = lngWidth
      .Height = lngHeight
 
      .Text = ListMasterFields
 
      'Active le contrôle
      .Visible = True
    End With

Je viens de voir effectivement que ne sont pas indiqué ni le nom, ni l'index (quelle propriétée pour le nom ?) !

En fait, j'utilise ce code par du Drag & drop lorsque l'utilisateur déplace le champ sur le formulaire qui lui est concernée.

[Le Pharaon]

(quelle propriétée pour le nom ?) !

Le nom est une propriété en lecture seule modifiable qu'en mode création.

[zazaraignée]

Il y a une autre méthode pour créer des contrôles dynamiquement et qui permettent de gérer automatiquement leurs événements sans avoir à recourir aux API de Windows ou autres truc avancés.

Tu crées d'abord un contrôle sur ta Form en mode création. Tu lui donne un nom comme txtChampSaisie par exemple. Tu mets la propriété Index à 0 (zéro). Quand tu veux en créer un autre dynamiquement :

Code :

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

1
2
3
4
Load txtChampSaisie(txtChampSaisie.Count)
' code pour positionner correctement le champ sur la form
'...
txtChampSaisie.Visible = True

La propriété Index devient un paramètre de chaque procédure événementielle pour ce tableau de contrôles.

Code :

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

1
2
3
Private Sub txtChampSaisie_Change(Index As Integer)
...
End Sub

En vérifiant la valeur de Index, tu peux savoir quel champ a été modifié.

[soso78]

Merci pour ta réponse.

En utilisant ta méhtode, pour définir les propriétés, j'ai le message d'erreur suivant :

L'élément du groupe de contrôle '2' n'existe pas

Y'a pas une instruction après le load pour créer ce contrôle ?

Voici le code :

Code :

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

1
2
3
4
5
6
7
8
9
 
    Load fldText(fldText.Count)
    intIndex = fldText.Count
 
    'Définie les propriétés de la zone de texte
    With fldText.Item(intIndex)
      .Top = lngTop
      .Visible = True
    End With

[Le Pharaon]

Y'a pas une instruction après le load pour créer ce contrôle ?

Code :

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

1
2
3
4
Load txtChampSaisie(txtChampSaisie.Count)
' code pour positionner correctement le champ sur la form
'...
txtChampSaisie.Visible = True

[soso78]

Ben ouais mais... ça marche pas !

[Le Pharaon]

C'est juste une piste que zaza t'a donnée, si tu veux avoir plusieurs contrôles il faut faire des boucles.

[zazaraignée]

La propriété Count d'un tableau de contrôle ne contenant que l'indice zéro retourne 1 pour un seul élément. En en chargant (Load) un nouveau avec pour indice (Index) la valeur de propriété Count qui est toujours un de plus que l'indice le plus grand, tu en crées un nouveau. Mais ça, c'est dans l'aide de VB. Faut savoir l'utiliser!

[soso78]

sur ;-)... Encore faut-il avoir l'aide installée

Sinon, j'ai effectivement réussi à placer mes nouveaux contrôles... mais j'ai encore un problème.

Le contrôle initial se trouve dans une frame ou est située la barre d'outil. Mais ce nouveau contrôle doit se trouver dans une autre frame...

Comment indiquer la possibilité de créer ce contrôle sur une autre frame ?

Merci par avance.

[ProgElecT]

esoso, Inscrit le vendredi 30 avril 2004, Total message: 180, discussions ouvertes: 103, Nbr.de TAGs utilisés: 24, moyenne: 23/100, ma partitipation jusqua ce post: 9

Code :

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

1
2
'passage d'une conteneur à l'autre
Set LobjetAdeplacer(Index).Container = NomDelaFrameDestination

[soso78]

Super

Merci !