Afficher un cercle dasn uen form quand on ciche une case

jona3587 Messages postés 3 Date d'inscription vendredi 2 avril 2004 Statut Membre Dernière intervention 25 avril 2004 - 2 avril 2004 à 06:39
jona3587 Messages postés 3 Date d'inscription vendredi 2 avril 2004 Statut Membre Dernière intervention 25 avril 2004 - 2 avril 2004 à 18:12
bonjour a tous
jaimerais kon maide pour mon programme
en fait jaimerais pouvoir afficher un cercle autour d'un texte quand on coche une case mais je ny arrive po alors si vous pouvez maider , nhesitez a me repondre
merci davance
jon.

2 réponses

econs Messages postés 4030 Date d'inscription mardi 13 mai 2003 Statut Membre Dernière intervention 23 décembre 2008 24
2 avril 2004 à 08:18
A placer sur le formulaire :

Une checkbox nommée Check1
Un label nommé Label1, dont la taille est exactement égae à la taille du texte (j'entoure le contrôle Label, pas le texte)
Une Shape, nommée Shape1

Et une ch'tite procédure qui se déclenche quand on clique sur la checkbox.

Private Sub Check1_Click()
Shape1.Width = Label1.Width * 2
Shape1.Height = Label1.Height * 2
Shape1.Top = Label1.Top - Label1.Height / 2
Shape1.Left = Label1.Left - Label1.Width / 2
Shape1.Shape = 2 'ellipse
Shape1.Visible = True
End Sub

Manu
0
jona3587 Messages postés 3 Date d'inscription vendredi 2 avril 2004 Statut Membre Dernière intervention 25 avril 2004
2 avril 2004 à 18:12
merci bcp pour ta reponse
allez ciao a++
jon.
0
Rejoignez-nous