0/5 (1 avis)
Vue 2 825 fois - Téléchargée 247 fois
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
7 mars 2002 à 14:24
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.