Case à cocher et bouton d'option

Télécharger le projet
Commenter

Description

bouton d'option

Source / Exemple : 


Option Explicit
 ' sur cette version y a un petit bug lors de l'affichage, rien de très grave, je vous laisse chercher...
 
Private Sub chksouris_Click()
AfficherSélection
End Sub

Private Sub chkcouleur_Click()
AfficherSélection
End Sub

Private Sub chkson_Click()
AfficherSélection
End Sub

Private Sub Command1_Click()
End
End Sub

Private Sub Option1_Click()
AfficherSélection
End Sub

Private Sub Option3_Click()
AfficherSélection
End Sub

Public Sub AfficherSélection()
Dim info

If chkcouleur.Value = vbChecked Then
info = "Couleur : OUI"
Else
info = "Couleur : NON"
End If

If chksouris.Value = vbChecked Then
info = info & vbCrLf & "Souris : OUI"
Else
info = info & vbCrLf & "Souris : NON"
End If

If chkson.Value = vbChecked Then
info = info & vbCrLf & "Son : OUI"
Else
info = info & vbCrLf & "Son : NON"
End If

If opfr.Value = True Then
info = info & vbCrLf & "Français"
End If

If opang.Value = True Then
info = info & vbCrLf & "Anglais"
End If

If opall.Value = True Then
info = info & vbCrLf & "Allemand"
End If

lblSélection.Caption = info

End Sub

Conclusion :


tous mes prog sur http://www.steven007.fr.st
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

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.

Du même auteur (cs_steven007)