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
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
- Groupe de controle - Codes sources - Visual Basic / VB.NET (Graphique)
- Tester si un contrôle appartient à un groupe de contrôles - Codes sources - Visual Basic / VB.NET (Control)
- Visual Basic / VB.NET : Créer un group de control, comme en vb6 - CodeS SourceS - Guide
- Groupe de contrôles vb6 en visual basic 2005 express edition - Codes sources - Visual Basic / VB.NET (Control)
- Groupe de contrôle et indexation - Codes sources - Visual Basic / VB.NET (Control)
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.