Noxid
Messages postés78Date d'inscriptionlundi 13 mai 2002StatutMembreDernière intervention 4 mai 2008
-
26 mai 2007 à 12:53
mimiZanzan
Messages postés301Date d'inscriptionlundi 27 février 2006StatutMembreDernière intervention17 décembre 2017
-
29 mai 2007 à 02:45
Bonjour à tous !
Mon application VB6 crée des controles dynamiques sur ma feuille par la méthode suivante :
Dim newControl As VB.Control
Set newControl = Me.Controls.Add("VB.CommandButton", "btnOK")
Ce code crée donc un CommandButton nommé "btnOK".
Comment gérer les événements de btnOK qui est donc créé dynamiquement? J'entends par là détecter le click par exemple.
mimiZanzan
Messages postés301Date d'inscriptionlundi 27 février 2006StatutMembreDernière intervention17 décembre 2017 27 mai 2007 à 16:12
D'abord, tu ne crées pas ici de module de classe: tu utilises simplement le module de ton userform (qui est en réalité aussi un module de classe...)
Ensuite, il suffit seulement de déclarer chaque type de contrôle au niveau du module form, par ex:
Dim WithEvents newTxtBox As VB.TextBox
Dim With Events lb as VB.Label
etc
Par contre, tu n'auras qu'un seul exemplaire de chaque contrôle disponible.
Sinon, il faut en effet passer par un module de classe, car on ne peut pas déclarer de tableau avec l'instruction "WithEvents".
Le type VB.Control est trop vague pour créer un contrôle.Il faut seulement l'utiliser pour balayer l'ensemble des contrôles de la form, par ex
Dim ctl as VB.Control
For Each ctl in Me.Controls
Msgbox ctl.Name
Next
mimiZanzan
Messages postés301Date d'inscriptionlundi 27 février 2006StatutMembreDernière intervention17 décembre 2017 29 mai 2007 à 02:45
On ne peut pas déclarer de tableau avec l'instruction "WithEvents"!
Voir ma source GESTION USERFORM AVEC GROUPE DE BOUTONS DYNAMIQUES SOUS VBA pour gérer un tableau de boutons dynamiques.
On peut aussi utiliser une collection à la place du tableau, comme dans ma source CRÉATION DE CONTRÔLES DYNAMIQUE.
mimiZanzan
Messages postés301Date d'inscriptionlundi 27 février 2006StatutMembreDernière intervention17 décembre 2017 26 mai 2007 à 23:07
Très facile: il faut déclarer le contrôle au niveau module avec évènements:
Dim WithEvents newControl As VB.CommandButton
Private Sub Form_Load()
Set newControl = Me.Controls.Add("VB.CommandButton", "btnOK")
With newControl
.Left = (Me.ScaleWidth - newControl.Width) / 2
.Top = Me.ScaleHeight - newControl.Height - 200
.Caption = "OK"
.Visible = True
End With
End Sub
Private Sub newControl_Click()
MsgBox "C'est le contrôle " & newControl.Name
Noxid
Messages postés78Date d'inscriptionlundi 13 mai 2002StatutMembreDernière intervention 4 mai 2008 27 mai 2007 à 12:53
Merci pour ta réponse !
En fait, j'ai déjà essayé comme ça... Mais là mon problème est que je veux pouvoir créer n'importe quel contrôle dynamiquement. Le type VB.Control est donc bien adapté puisqu'il me permet de créer dynamiquement TextBox, CommandButton,...enfin tous les contrôles de VB6 !
En prenant ta méthode, je dois créer une module de classe pour chaque type de contrôle, c'est ça?
Si vraiment il n'y a pas d'autre solution, je ferai ça. Mais j'aimerai bien pouvoir m'en sortir autrement. Je sais qu'avec VB.NET c'est faisable, mais je dois me le procurer et c'est pas pour tout de suite... :(
Y'a vraiment aucun autre moyen?
Vous n’avez pas trouvé la réponse que vous recherchez ?