begin process at 2010 03 21 02:27:37
  Trouver un code source :
 
dans
 
Accueil > 

Code

 > 

Trucs & Astuces

 > GESTION DE RADIO(OPTION) COMME EN PHP/HTML

GESTION DE RADIO(OPTION) COMME EN PHP/HTML


 Information sur la source

Note :
Aucune note
Catégorie :Trucs & Astuces Niveau :Débutant Date de création :03/02/2003 Date de mise à jour :03/02/2003 17:30:33 Vu / téléchargé :5 355 / 381

Auteur : Dozer

Ecrire un message privé
Site perso
Commentaire sur cette source (0)
Ajouter un commentaire et/ou une note

 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

  • ' 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
' 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


 Fichier Zip

Les Membres Club peuvent télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Télécharger le zip


 Sources du même auteur

COMBOBOX LIKE TEXTBOX

 Sources de la même categorie

Source avec Zip Source avec une capture INTERAGIR AVEC LES USAGERS ...SANS UTILISER DES 'ALERTS' par marcelsnews
Source avec Zip MODIFICATION DYANAMIQUE DES PARAMÈTRES D'UNE FONCTION D'UN [... par marcelsnews
Source avec Zip Source avec une capture JSON PARSER - ANALYSE DE CHAINES JSON par Renfield
Source avec Zip CREATION DE GADGET EN VB6 par djebbipgm
Source avec Zip Source avec une capture CAPTEUR DE HANDLE, DE TITRE, DE CLASS, DE POSITION DE TAILLE... par Sechaud

Commentaires et avis

Aucun commentaire pour le moment.

 Ajouter un commentaire




Nos sponsors


Sondage...

Comparez les prix

CalendriCode

Mars 2010
LMMJVSD
1234567
891011121314
15161718192021
22232425262728
293031    

Consulter la suite du CalendriCode

 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 0,530 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales