Controls dans une frame [Résolu] - VB/VBA/VBS - Programmation
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
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
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 ??
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 !!!
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