Voici comment faire pour ajouter une propriété ReadOnly sur un CheckBox, pour le rendre insensible aux clicks de souris.
Sur le contrôle CheckBox 'standard', seule la propriété Enabled peut être mise à False, mais cela change aussi l'aspect du contrôle : il est 'flouté'.
Le fonctionnement est le même que le propriété ReadOnly du contrôle TextBox.
+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Ce code peut s'adapter facilement pour n'importe quel autre contrôle
en changeant simplement la ligne 'inherits'
+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Source / Exemple :
Public Class MonCheckBox
Inherits System.Windows.Forms.CheckBox
#Region " Code généré par le Concepteur Windows Form "
Public Sub New()
MyBase.New()
'Cet appel est requis par le Concepteur Windows Form.
InitializeComponent()
'Ajoutez une initialisation quelconque après l'appel InitializeComponent()
End Sub
'La méthode substituée Dispose du UserControl pour nettoyer la liste des composants.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
'Requis par le Concepteur Windows Form
Private components As System.ComponentModel.IContainer
'REMARQUE : la procédure suivante est requise par le Concepteur Windows Form
'Elle peut être modifiée en utilisant le Concepteur Windows Form.
'Ne la modifiez pas en utilisant l'éditeur de code.
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
components = New System.ComponentModel.Container()
End Sub
#End Region
Private Const WM_LBUTTONDOWN As Int32 = &H201
Private Const WM_LBUTTONUP As Int32 = &H202
Private Const WM_LBUTTONDBLCLK As Int32 = &H203
Private _dtp_ro As Boolean = False
'Protected Overrides Sub OnPaint(ByVal e As PaintEventArgs)
' MyBase.OnPaint(e)
' Console.WriteLine("paint")
' If Me._dtp_ro Then ' readonly=true
' e.Graphics.FillRectangle(New SolidBrush(Color.FromKnownColor(KnownColor.Control)), e.ClipRectangle)
' 'Me.Invalidate()
' End If
'End Sub
Protected Overrides Sub WndProc(ByRef m As Message)
Select Case m.Msg
Case WM_LBUTTONDOWN, WM_LBUTTONUP, WM_LBUTTONDBLCLK
If Not Me._dtp_ro Then ' readonly=false
MyBase.WndProc(m)
End If
Case Else
MyBase.WndProc(m)
End Select
End Sub
Public Property Read_Only() As Boolean
Get
Return Me._dtp_ro
End Get
Set(ByVal Value As Boolean)
Me._dtp_ro = Value
'Me.Invalidate()
End Set
End Property
End Class
Conclusion :
L'éventail des possibilités est illimité : j'ai juste désactivé les évènements WM_LBUTTONDOWN, WM_LBUTTONUP, WM_LBUTTONDBLCLK, qui arrive lorsqu'on enfonce ou on relâche le bouton gauche de la souris, ou lorsqu'on double-clique.
Cette gestion des évènements peut être complexifiée à volonté dans la procédure WndProc, notamment pour interdire les évènements clavier qui peuvent aussi changer l'état d'un CheckBox (touche ESPACE)
Voilà.
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.