VB6 Rendre inaccessible un optButton [Résolu]

Signaler
Messages postés
926
Date d'inscription
vendredi 10 novembre 2000
Statut
Membre
Dernière intervention
10 septembre 2010
-
 Utilisateur anonyme -
Salut...

J'aimerais savoir s'il existe une façon pour rendre inaccessible un optbutton sans changer son apparence (optButton.Enable=False) ???

merci

7 réponses

Messages postés
4172
Date d'inscription
mercredi 30 juillet 2003
Statut
Membre
Dernière intervention
9 juin 2006
25
Tu peux essayer avec "optMonOption.Value = Not optMonOption.Value" dans l'evt Click du bouton d'option en question
3
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 195 internautes nous ont dit merci ce mois-ci

Messages postés
4172
Date d'inscription
mercredi 30 juillet 2003
Statut
Membre
Dernière intervention
9 juin 2006
25
A noter que pour que l'interface soit cohérente, il faudra faire cela pour tous les option buttons du conteneur
Messages postés
926
Date d'inscription
vendredi 10 novembre 2000
Statut
Membre
Dernière intervention
10 septembre 2010
3
Salut....

Ca ne fonctionne pas...

Ca fait mettre le Value à true... et dans ma Form Activate j'impose que tous les optButton soit à Value= False

J'attends de tes nouvelles....

If frmIndex.MousePointer = vbHourglass Then
    optAssomption.Value = Not optAssomption.Value
    optBerthier.Value = Not optBerthier.Value
    optJoliette.Value = Not optJoliette.Value
    optMontcalm.Value = Not optMontcalm.Value
    optQuebec.Value = Not optQuebec.Value


End If
Messages postés
4172
Date d'inscription
mercredi 30 juillet 2003
Statut
Membre
Dernière intervention
9 juin 2006
25
En fait, je n'ai pas d'autre solution, car ta demande ne correspond pas à un comportement normal de l'interface Windows ! Il y a bien la solution de se servir des API SetWindowLong() et consor ... mais je ne suis pas uin spécialiste de celles-ci alors je passe la main ...
CR
Messages postés
926
Date d'inscription
vendredi 10 novembre 2000
Statut
Membre
Dernière intervention
10 septembre 2010
3
Ok alors merci quand même d'avoir essayé  
Messages postés
13280
Date d'inscription
lundi 13 décembre 2004
Statut
Modérateur
Dernière intervention
3 février 2018
39
salut,
Christophe te disait de mettre ce code dans l'évènement click de chaque option button (pour le rendre du même état qu'avant le click, une sorte de double-click plus ou moins...).

sinon :

Private Sub Command1_Click() 
    Dim Ctrl As Object 
    For Each Ctrl In Me 
        If TypeOf Ctrl Is OptionButton Then 
            Ctrl.Value = False 
        End If 
    Next Ctrl 
End Sub

<small> Coloration
syntaxique automatique [AFCK]</small>
       

PCPT    [AFCK]

.enabled = false