Insérer dynamiquement un control ds une frame?[RESOLU]

Insérer dynamiquement un control ds une frame?[RESOLU] - VB/VBA/VBS - Programmation

Marsh Posté le 25-04-2003 à 15:48:05    

Bueno dia todos.
 
J'arrive à insérer des control ds la form, ms pas dans une frame precise. J'ai comparé les propriétés d'un control sur la form, et d'1 autre ds une frame et je vois pas la différence...
Voilà mon code, ca sera ptet plus clair:
'Declarations
Dim WithEvents cmdDynamique As VB.CommandButton
Dim i As Integer
 
Private Sub Form_Load()
'initialisation de i, variable des cmdDynamique
i = 1
End Sub
 
Private Sub cmdDynamique_Click()
'ajout d'un cmdDynamique
i = i + 1
'c'est ici que je suppose qu'il faut modifier un truc mais je ne vois pas
Set cmdDynamique = Me.Controls.Add("VB.CommandButton", "cmd" & i) 'cmd&i est le nom du commandButton
cmdDynamique.Width = 1500
cmdDynamique.Height = 70
cmdDynamique.Left = 0
cmdDynamique.Top = (i - 1) * cmdDynamique.Height cmdDynamique.Caption = i
cmdDynamique.Visible = True
End Sub


Message édité par superchinois le 25-04-2003 à 15:57:37
Reply

Marsh Posté le 25-04-2003 à 15:48:05   

Reply

Marsh Posté le 25-04-2003 à 16:57:29    

Et t'en que tu y es... tu sais si on peut cree dynamiquement une form dans VB6?

Reply

Marsh Posté le 25-04-2003 à 19:01:52    

Ouh la c'est pas a moi qu'il faut le demander...
 
mais essaye de remplacer:
dim withevents cmdDynamique as VB.commandButton
et
set cmdDynamique = me.controls.add("VB.commandButton....)
 
par, cela:
dim withevents formDynamique as VB.form
et
set formDynamique = me.controls.add(VB.form....)
 
PS: j'ai pas essayé du tt


Message édité par superchinois le 25-04-2003 à 19:05:07
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed