[Résolu] Controls dans une frame

Controls dans une frame [Résolu] - VB/VBA/VBS - Programmation

Marsh Posté le 17-10-2005 à 15:35:10    

Bonjour à tous,
 
Je souhaite activer et désactiver le contenu d'une frame (en fait je switch entre deux frames par un bouton pour qu'une seule reste active). J'ai trouvé comment activer la frame (on ne peut plus rien faire avec ce qui est dedans), mais les controles à l'interieur on toujours un aspect actif. j'aimerais bien désactiver tous ces controles.
 
Sous VBA, le frame.controls marchait, je crois, mais je n'ai pas trouvé l'équivalent sous VB. Je n'ai pas envie de me la faire bourrin (rentrer tous les control.enable à la main), donc si quelqu'un connait une commande du type frame.**** qui ne concerne que les controles de la frame merci bien (je ne sais pas si je me suis bien fait comprendre...).
 
 
 Je reprends donc:
sous VBA j'avais la commande
 
Private Sub OBInfo_Click()
FInfo.Enabled = True
FFind.Enabled = False
 
For Each Control In FFind.Controls  < je voudrais refaire ça sous VB. Quelqu'un connait l'équivqlent?G pas trouvé
    Control.Enabled = False            <
Next                                         <
For Each Control In FInfo.Controls  
    Control.Enabled = True
Next
 
End Sub


Message édité par ziold le 19-10-2005 à 10:04:55
Reply

Marsh Posté le 17-10-2005 à 15:35:10   

Reply

Marsh Posté le 17-10-2005 à 17:03:11    

Je ne connais pas d'équivalent VB (eh oui les propriétés des contrôles de base sont différentes :) mais peut-être que la propriété .Parent des controls de la Frame sont tous identiques à .Hwnd de la frame, or la collection Me.Controls existant tu devrais pouvoir t'en sortir.
A vérifier cependant, je ne suis pas sûr du tout

Reply

Marsh Posté le 18-10-2005 à 08:48:59    

Je vais tester ça (si G bien compris ton conseil...).
En tout cas merci de ta réponse

Reply

Marsh Posté le 18-10-2005 à 14:05:01    

ça ne marche pas (ou bien je ne sais pas comment mettre en oeuvre le conseil...).
...
Une idée ? Un conseil ??

Reply

Marsh Posté le 19-10-2005 à 10:03:46    

J'ai trouvé ça, ça marche d'enfer...
 
Public Function ControlAcces(cFrame As Control, bState As Boolean)
 
Dim ctl As Control
 
For Each ctl In UFBackup.Controls
    If ctl.Container Is cFrame Then
        ctl.Enabled = bState
    End If
Next
 
End Function
 
Amusez vous bien !!!


Message édité par ziold le 19-10-2005 à 10:05:19
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed