Définir des groupes de contrôles

Soyez le premier à donner votre avis sur cette source.

Vue 2 651 fois - Téléchargée 234 fois

Description

Définir des groupes de contrôles

Source / Exemple :


Option Explicit
Dim vindex
Dim vnom
Dim WithEvents lblctl As Label

Private Sub cmdbutton_Click(Index As Integer)
 'Ajouter
 
If Index = 0 Then

'incrémenter vindexTexte  , créer une nouvelle zone
vindex = vindex + 1
vnom = "lblaffichage" & vindex
Set lblctl = Me.Controls.Add("vb.label", vnom)
With lblctl
.Alignment = vbCenter
.BorderStyle = vbFixedSingle
.Font.Name = "System"
.Height = 360
.Left = 300
.Width = 2100
End With

 'placer la nouvelle zone, la rendre visible
 
 If vindex < 1 Then
 With lblctl
 .Top = 450
 .Visible = True
 End With
 Else
 With lblctl
 .Top = 450 + vindex * (.Height + 150)
 .Visible = True
 End With
 End If
 cmdbutton(1).Enabled = True
 
' maximum 7 étiquettes
If vindex >= 6 Then
cmdbutton(0).Enabled = False
End If

'supprimer
ElseIf Index = 1 Then

'supprimer la dernière zone
vnom = "lblaffichage" & vindex
Me.Controls.Remove vnom
vindex = vindex - 1
cmdbutton(0).Enabled = True
If vindex < 0 Then
cmdbutton(1).Enabled = False

End If
'quitter
Else
End
End If
End Sub

Private Sub Form_Load()
vindex = -1
MsgBox "http://www.steven007.fr.st", vbCritical, "yo"
End Sub

Conclusion :


v'la autre chose... ça peux tjs servir... http://www.steven007.fr.st

Codes Sources

A voir également

Ajouter un commentaire Commentaire
Messages postés
363
Date d'inscription
jeudi 20 décembre 2001
Statut
Membre
Dernière intervention
25 août 2003

super code pour les debutants !!

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.