Définir des groupes de contrôles
0/5 (1 avis)
Vue 2 825 fois - Téléchargée 247 fois
Description
Définir des groupes de contrôles
v'la autre chose... ça peux tjs servir... http://www.steven007.fr.st
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
- Définir des groupes de contrôles
- Impossible de définir la propriété visible de la classe worksheet ✓ - Forum Visual Basic 6
- Erreur 1004 impossible de définir la propriété weight de la classe border - Forum Visual Basic
- Impossible de définir la propriété XValues de la classe Series (70000 valeurs) - Forum Visual Basic
- Contrôles croisés - Forum Javascript / DHTML
- La fonction de groupe ne porte pas sur un groupe simple ✓ - Forum SQL
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.