This repository has been archived by the owner on Sep 11, 2023. It is now read-only.
/
ToggleSwitch.vb
82 lines (78 loc) · 2.98 KB
/
ToggleSwitch.vb
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
Imports Microsoft.VisualBasic
Imports System
Imports System.ComponentModel
Imports System.Windows.Forms
Imports DevExpress.XtraEditors
Imports DevExpress.XtraEditors.Controls
Namespace WindowsApplication3
Public Class ToggleSwitch
Inherits CheckEdit
Shared Sub New()
RepositoryItemToggleSwitch.RegisterCustomEdit()
End Sub
#Region "HidePropertiesEvents"
<Browsable(False), EditorBrowsable(EditorBrowsableState.Never), DesignerSerializationVisibility(DesignerSerializationVisibility.Hidden)> _
Public Shadows Overridable Property Checked() As Boolean
Get
Return MyBase.Checked
End Get
Set(ByVal value As Boolean)
End Set
End Property
<Browsable(False), EditorBrowsable(EditorBrowsableState.Never), DesignerSerializationVisibility(DesignerSerializationVisibility.Hidden)> _
Public Shadows Overridable Property CheckState() As CheckState
Get
Return MyBase.CheckState
End Get
Set(ByVal value As CheckState)
End Set
End Property
<Browsable(False), EditorBrowsable(EditorBrowsableState.Never), DesignerSerializationVisibility(DesignerSerializationVisibility.Hidden)> _
Public Shadows Event CheckedChanged As EventHandler
<Browsable(False), EditorBrowsable(EditorBrowsableState.Never), DesignerSerializationVisibility(DesignerSerializationVisibility.Hidden)> _
Public Shadows Event CheckStateChanged As EventHandler
<Browsable(False), EditorBrowsable(EditorBrowsableState.Never), DesignerSerializationVisibility(DesignerSerializationVisibility.Hidden)> _
Public Shadows Event QueryCheckStateByValue As QueryCheckStateByValueEventHandler
<Browsable(False), EditorBrowsable(EditorBrowsableState.Never), DesignerSerializationVisibility(DesignerSerializationVisibility.Hidden)> _
Public Shadows Event QueryValueByCheckState As QueryValueByCheckStateEventHandler
#End Region
#Region "NewPropertiesEvents"
Public Custom Event Toggled As EventHandler
AddHandler(ByVal value As EventHandler)
AddHandler Properties.Toggled, value
End AddHandler
RemoveHandler(ByVal value As EventHandler)
RemoveHandler Properties.Toggled, value
End RemoveHandler
RaiseEvent(ByVal sender As System.Object, ByVal e As System.EventArgs)
End RaiseEvent
End Event
<Browsable(False)> _
Public Property IsOn() As Boolean
Get
Return MyBase.Checked
End Get
Set(ByVal value As Boolean)
If MyBase.Checked <> value Then
MyBase.Checked = value
End If
End Set
End Property
Protected Overrides Sub OnEditValueChanged()
MyBase.OnEditValueChanged()
Properties.RaiseToggled(EventArgs.Empty)
End Sub
#End Region
Public Overrides ReadOnly Property EditorTypeName() As String
Get
Return RepositoryItemToggleSwitch.ToggleSwitchName
End Get
End Property
<DesignerSerializationVisibility(DesignerSerializationVisibility.Content)> _
Public Shadows ReadOnly Property Properties() As RepositoryItemToggleSwitch
Get
Return TryCast(MyBase.Properties, RepositoryItemToggleSwitch)
End Get
End Property
End Class
End Namespace