Encore pour mes boutons radio perso !!

Salut Frank,

Voici le code:
======================================================== Private Sub UserControl_Click()
Dim rd As Object

RaiseEvent Click

For Each rd In UserControl.Parent
If TypeOf rd Is Rs_RadioButton Then
'Vérification des Container
If rd.Container is Usercontrol.Extender.Container Then
rd.Checked = False
Endif
End If
Next rd

Checked = True
End Sub
=========================================================
Amicalement
Pascal



"HECHT Franck" <eclypse.hf@wanadoo.fr> a écrit dans le message de news:b98801c3ecbb$3f0ecd40$a001280a@phx.gbl...
Bon, personne n'as encore pû me répondre correctement
alors je vien ici pour poser mas question !!

Vous voyez le fonctionnement des Boutons Radio de
Windows, si vous avez par exemple 2 boutons radio dans un
control Frame et 2 en-dehors, ils sont indépendants les
uns des autres. Si vous cliquez sur un bouton radio par
exemple qui se trouve dans le Frame, son confrere qui se
trouve aussi dans le Frame voit sa valeur "Value" changer
mais ca n'affecte pas ceux qui sont en-dehors du Frame !!

Bah c'est exactement le comportement que je veut
programmer dans mes BoutonsRadio perso, j'ai deja un
debut de code que voici:

======================================================== Private Sub UserControl_Click()
Dim rd As Object

RaiseEvent Click

For Each rd In UserControl.Parent
If TypeOf rd Is Rs_RadioButton Then
rd.Checked = False
End If
Next rd

Checked = True
End Sub
=========================================================
Sauf qu'avec cette boucle, cela change l'etat de TOUS mes
boutons radio mis sur une Form, meme si certains sont
dans une Frame !!

Qq'1 peut-t-il m'aider SVP ??

Ho yeeeessss !!
C'est tellement simple ... lol !!

Merci tout plein ;)

-----Message d'origine-----

Salut Frank,

Voici le code:
======================== ========================= ========
Private Sub UserControl_Click()
Dim rd As Object

RaiseEvent Click

For Each rd In UserControl.Parent
If TypeOf rd Is Rs_RadioButton Then
'Vérification des Container
If rd.Container is

Usercontrol.Extender.Container Then

rd.Checked = False
Endif
End If
Next rd

Checked = True
End Sub
======================== ========================= ========

=

Amicalement
Pascal



"HECHT Franck" <eclypse.hf@wanadoo.fr> a écrit dans le

message de news:b98801c3ecbb$3f0ecd40$a001280a@phx.gbl...

Bon, personne n'as encore pû me répondre correctement
alors je vien ici pour poser mas question !!

Vous voyez le fonctionnement des Boutons Radio de
Windows, si vous avez par exemple 2 boutons radio dans un
control Frame et 2 en-dehors, ils sont indépendants les
uns des autres. Si vous cliquez sur un bouton radio par
exemple qui se trouve dans le Frame, son confrere qui se
trouve aussi dans le Frame voit sa valeur "Value" changer
mais ca n'affecte pas ceux qui sont en-dehors du Frame !!

Bah c'est exactement le comportement que je veut
programmer dans mes BoutonsRadio perso, j'ai deja un
debut de code que voici:

======================== ========================= ========
Private Sub UserControl_Click()
Dim rd As Object

RaiseEvent Click

For Each rd In UserControl.Parent
If TypeOf rd Is Rs_RadioButton Then
rd.Checked = False
End If
Next rd

Checked = True
End Sub
======================== ========================= ========

=

Sauf qu'avec cette boucle, cela change l'etat de TOUS mes
boutons radio mis sur une Form, meme si certains sont
dans une Frame !!

Qq'1 peut-t-il m'aider SVP ??


.

Bonjour/soir,

Plus simplement, on peut écrire:

Option Explicit

Private mValue As OLE_OPTEXCLUSIVE

Public Property Get Value() As OLE_OPTEXCLUSIVE
Value = mValue
End Property

'Dans les attributs de procédure, définir cette propriété comme celle par
défaut
'Outils > attributs de procédure > Nom : Value > Avancé > Procedure ID:
(default)
Public Property Let Value(NewValue As OLE_OPTEXCLUSIVE)
mValue = NewValue
Refresh

'La ligne suivante est importante!
PropertyChanged "Value"
End Property

Public Sub Refresh()
If Value Then
UserControl.BackColor = vbRed
Else
UserControl.BackColor = vbYellow
End If
End Sub

Private Sub UserControl_Click()
Me.Value = True
End Sub

Private Sub UserControl_Paint()
Refresh
End Sub

'+ implémenter le property bag


Et VB se charge du reste :-)

--
François Picalausa (MVP VB)
FAQ VB : http://faq.vb.free.fr
MSDN : http://msdn.microsoft.com


"HECHT Franck" <eclypse.hf@wanadoo.fr> a écrit dans le message de
news:b98801c3ecbb$3f0ecd40$a001280a@phx.gbl

Bon, personne n'as encore pû me répondre correctement
alors je vien ici pour poser mas question !!

Vous voyez le fonctionnement des Boutons Radio de
Windows, si vous avez par exemple 2 boutons radio dans un
control Frame et 2 en-dehors, ils sont indépendants les
uns des autres. Si vous cliquez sur un bouton radio par
exemple qui se trouve dans le Frame, son confrere qui se
trouve aussi dans le Frame voit sa valeur "Value" changer
mais ca n'affecte pas ceux qui sont en-dehors du Frame !!

Bah c'est exactement le comportement que je veut
programmer dans mes BoutonsRadio perso, j'ai deja un
debut de code que voici:

======================================================== > Private Sub UserControl_Click()
Dim rd As Object

RaiseEvent Click

For Each rd In UserControl.Parent
If TypeOf rd Is Rs_RadioButton Then
rd.Checked = False
End If
Next rd

Checked = True
End Sub
========================================================= >
Sauf qu'avec cette boucle, cela change l'etat de TOUS mes
boutons radio mis sur une Form, meme si certains sont
dans une Frame !!

Qq'1 peut-t-il m'aider SVP ??

C'est une superbe solution aussi ca :D

-----Message d'origine-----
Bonjour/soir,

Plus simplement, on peut écrire:

Option Explicit

Private mValue As OLE_OPTEXCLUSIVE

Public Property Get Value() As OLE_OPTEXCLUSIVE
Value = mValue
End Property

'Dans les attributs de procédure, définir cette

propriété comme celle par

défaut
'Outils > attributs de procédure > Nom : Value > Avancé
Procedure ID:
(default)
Public Property Let Value(NewValue As OLE_OPTEXCLUSIVE)
mValue = NewValue
Refresh

'La ligne suivante est importante!
PropertyChanged "Value"
End Property

Public Sub Refresh()
If Value Then
UserControl.BackColor = vbRed
Else
UserControl.BackColor = vbYellow
End If
End Sub

Private Sub UserControl_Click()
Me.Value = True
End Sub

Private Sub UserControl_Paint()
Refresh
End Sub

'+ implémenter le property bag


Et VB se charge du reste :-)

--
François Picalausa (MVP VB)
FAQ VB : http://faq.vb.free.fr
MSDN : http://msdn.microsoft.com


"HECHT Franck" <eclypse.hf@wanadoo.fr> a écrit dans le

message de

news:b98801c3ecbb$3f0ecd40$a001280a@phx.gbl

Bon, personne n'as encore pû me répondre correctement
alors je vien ici pour poser mas question !!

Vous voyez le fonctionnement des Boutons Radio de
Windows, si vous avez par exemple 2 boutons radio dans

un

control Frame et 2 en-dehors, ils sont indépendants les
uns des autres. Si vous cliquez sur un bouton radio par
exemple qui se trouve dans le Frame, son confrere qui

se

trouve aussi dans le Frame voit sa valeur "Value"

changer

mais ca n'affecte pas ceux qui sont en-dehors du

Frame !!

Bah c'est exactement le comportement que je veut
programmer dans mes BoutonsRadio perso, j'ai deja un
debut de code que voici:

========================= ========================= =======

Private Sub UserControl_Click()
Dim rd As Object

RaiseEvent Click

For Each rd In UserControl.Parent
If TypeOf rd Is Rs_RadioButton Then
rd.Checked = False
End If
Next rd

Checked = True
End Sub

========================= ========================= ========

Sauf qu'avec cette boucle, cela change l'etat de TOUS

mes

boutons radio mis sur une Form, meme si certains sont
dans une Frame !!

Qq'1 peut-t-il m'aider SVP ??

.