Case à cocher et bouton d'option

Soyez le premier à donner votre avis sur cette source.

Vue 8 686 fois - Téléchargée 446 fois

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

Codes Sources

A voir également

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.