Gestion de radio(option) comme en php/html

Soyez le premier à donner votre avis sur cette source.

Vue 8 388 fois - Téléchargée 643 fois

Description

Ceux qui se sont mis au VB après avoir appris le PHP/HTML, se sont peut etre un jour demandé, mais comment gerer les bouton radio ( OptionButton ) aussi simplement en VB qu'en PHP/HTML .

Et bien voici la solution .

Source / Exemple :


' Il faut déclarer ceci

Private Function Radio(Rd As Object) As String
Dim Nb, i As Integer
Dim Back As String

Nb = (Rd.Count) - 1

For i = 0 To Nb
If Rd(i).Value = True Then
Back = Rd(i).Tag
Exit For
End If
Next i

If Back = "" Then
Back = "Not Any Checked"
End If

Radio = Back
End Function

'Puis l'utiliser comme ceci
'Par exemple, faire 3 radio avec le meme nom ( donc créer un groupe de 'controles ), et leur donner un index croissant partant de 0 .
'A chacun leur attribuer dans le Tag la valeur que l'on souhaite récupérer si le 
'radio est coché .
'Ensuite par exemple on peut l'utiliser comme ceci, sur un clic de bouton cmd

Private Sub cmd1_Click()
MsgBox(Radio(Option1)) ' Ici Option1 est le nom du groupe de controles
End Sub

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.