In-visible at run time, it can store up to 20 values per control for use in a program.
There are nothing on the form. It's not a container for other controls either.
How does it look inside the properties?
![Name: Image 050.png
Views: 31
Size: 4.1 KB]()
The Code:
No extra coding to dimension fields or declaring of values etc.
Plain and simple.
There are nothing on the form. It's not a container for other controls either.
How does it look inside the properties?
The Code:
Code:
'Default Property Values:
Const m_def_F1a = 0
Const m_def_F1b = 0
Const m_def_F2a = 0
Const m_def_F2b = 0
Const m_def_F3a = 0
Const m_def_F3b = 0
Const m_def_F4a = 0
Const m_def_F4b = 0
Const m_def_F5a = 0
Const m_def_F5b = 0
Const m_def_F6a = 0
Const m_def_F6b = 0
Const m_def_F7a = 0
Const m_def_F7b = 0
Const m_def_F8a = 0
Const m_def_F8b = 0
Const m_def_F9a = 0
Const m_def_F9b = 0
Const m_def_F0a = 0
Const m_def_F0b = 0
'Property Variables:
Dim m_F1a As Variant
Dim m_F1b As Variant
Dim m_F2a As Variant
Dim m_F2b As Variant
Dim m_F3a As Variant
Dim m_F3b As Variant
Dim m_F4a As Variant
Dim m_F4b As Variant
Dim m_F5a As Variant
Dim m_F5b As Variant
Dim m_F6a As Variant
Dim m_F6b As Variant
Dim m_F7a As Variant
Dim m_F7b As Variant
Dim m_F8a As Variant
Dim m_F8b As Variant
Dim m_F9a As Variant
Dim m_F9b As Variant
Dim m_F0a As Variant
Dim m_F0b As Variant
Public Property Get F1a() As Variant
F1a = m_F1a
End Property
Public Property Let F1a(ByVal New_F1a As Variant)
m_F1a = New_F1a
PropertyChanged "F1a"
End Property
Public Property Get F1b() As Variant
F1b = m_F1b
End Property
Public Property Let F1b(ByVal New_F1b As Variant)
m_F1b = New_F1b
PropertyChanged "F1b"
End Property
Public Property Get F2a() As Variant
F2a = m_F2a
End Property
Public Property Let F2a(ByVal New_F2a As Variant)
m_F2a = New_F2a
PropertyChanged "F2a"
End Property
Public Property Get F2b() As Variant
F2b = m_F2b
End Property
Public Property Let F2b(ByVal New_F2b As Variant)
m_F2b = New_F2b
PropertyChanged "F2b"
End Property
Public Property Get F3a() As Variant
F3a = m_F3a
End Property
Public Property Let F3a(ByVal New_F3a As Variant)
m_F3a = New_F3a
PropertyChanged "F3a"
End Property
Public Property Get F3b() As Variant
F3b = m_F3b
End Property
Public Property Let F3b(ByVal New_F3b As Variant)
m_F3b = New_F3b
PropertyChanged "F3b"
End Property
Public Property Get F4a() As Variant
F4a = m_F4a
End Property
Public Property Let F4a(ByVal New_F4a As Variant)
m_F4a = New_F4a
PropertyChanged "F4a"
End Property
Public Property Get F4b() As Variant
F4b = m_F4b
End Property
Public Property Let F4b(ByVal New_F4b As Variant)
m_F4b = New_F4b
PropertyChanged "F4b"
End Property
Public Property Get F5a() As Variant
F5a = m_F5a
End Property
Public Property Let F5a(ByVal New_F5a As Variant)
m_F5a = New_F5a
PropertyChanged "F5a"
End Property
Public Property Get F5b() As Variant
F5b = m_F5b
End Property
Public Property Let F5b(ByVal New_F5b As Variant)
m_F5b = New_F5b
PropertyChanged "F5b"
End Property
Public Property Get F6a() As Variant
F6a = m_F6a
End Property
Public Property Let F6a(ByVal New_F6a As Variant)
m_F6a = New_F6a
PropertyChanged "F6a"
End Property
Public Property Get F6b() As Variant
F6b = m_F6b
End Property
Public Property Let F6b(ByVal New_F6b As Variant)
m_F6b = New_F6b
PropertyChanged "F6b"
End Property
Public Property Get F7a() As Variant
F7a = m_F7a
End Property
Public Property Let F7a(ByVal New_F7a As Variant)
m_F7a = New_F7a
PropertyChanged "F7a"
End Property
Public Property Get F7b() As Variant
F7b = m_F7b
End Property
Public Property Let F7b(ByVal New_F7b As Variant)
m_F7b = New_F7b
PropertyChanged "F7b"
End Property
Public Property Get F8a() As Variant
F8a = m_F8a
End Property
Public Property Let F8a(ByVal New_F8a As Variant)
m_F8a = New_F8a
PropertyChanged "F8a"
End Property
Public Property Get F8b() As Variant
F8b = m_F8b
End Property
Public Property Let F8b(ByVal New_F8b As Variant)
m_F8b = New_F8b
PropertyChanged "F8b"
End Property
Public Property Get F9a() As Variant
F9a = m_F9a
End Property
Public Property Let F9a(ByVal New_F9a As Variant)
m_F9a = New_F9a
PropertyChanged "F9a"
End Property
Public Property Get F9b() As Variant
F9b = m_F9b
End Property
Public Property Let F9b(ByVal New_F9b As Variant)
m_F9b = New_F9b
PropertyChanged "F9b"
End Property
Public Property Get F0a() As Variant
F0a = m_F0a
End Property
Public Property Let F0a(ByVal New_F0a As Variant)
m_F0a = New_F0a
PropertyChanged "F0a"
End Property
Public Property Get F0b() As Variant
F0b = m_F0b
End Property
Public Property Let F0b(ByVal New_F0b As Variant)
m_F0b = New_F0b
PropertyChanged "F0b"
End Property
Private Sub UserControl_InitProperties()
m_F1a = m_def_F1a
m_F1b = m_def_F1b
m_F2a = m_def_F2a
m_F2b = m_def_F2b
m_F3a = m_def_F3a
m_F3b = m_def_F3b
m_F4a = m_def_F4a
m_F4b = m_def_F4b
m_F5a = m_def_F5a
m_F5b = m_def_F5b
m_F6a = m_def_F6a
m_F6b = m_def_F6b
m_F7a = m_def_F7a
m_F7b = m_def_F7b
m_F8a = m_def_F8a
m_F8b = m_def_F8b
m_F9a = m_def_F9a
m_F9b = m_def_F9b
m_F0a = m_def_F0a
m_F0b = m_def_F0b
End Sub
Private Sub UserControl_ReadProperties(PropBag As PropertyBag)
m_F1a = PropBag.ReadProperty("F1a", m_def_F1a)
m_F1b = PropBag.ReadProperty("F1b", m_def_F1b)
m_F2a = PropBag.ReadProperty("F2a", m_def_F2a)
m_F2b = PropBag.ReadProperty("F2b", m_def_F2b)
m_F3a = PropBag.ReadProperty("F3a", m_def_F3a)
m_F3b = PropBag.ReadProperty("F3b", m_def_F3b)
m_F4a = PropBag.ReadProperty("F4a", m_def_F4a)
m_F4b = PropBag.ReadProperty("F4b", m_def_F4b)
m_F5a = PropBag.ReadProperty("F5a", m_def_F5a)
m_F5b = PropBag.ReadProperty("F5b", m_def_F5b)
m_F6a = PropBag.ReadProperty("F6a", m_def_F6a)
m_F6b = PropBag.ReadProperty("F6b", m_def_F6b)
m_F7a = PropBag.ReadProperty("F7a", m_def_F7a)
m_F7b = PropBag.ReadProperty("F7b", m_def_F7b)
m_F8a = PropBag.ReadProperty("F8a", m_def_F8a)
m_F8b = PropBag.ReadProperty("F8b", m_def_F8b)
m_F9a = PropBag.ReadProperty("F9a", m_def_F9a)
m_F9b = PropBag.ReadProperty("F9b", m_def_F9b)
m_F0a = PropBag.ReadProperty("F0a", m_def_F0a)
m_F0b = PropBag.ReadProperty("F0b", m_def_F0b)
End Sub
Private Sub UserControl_WriteProperties(PropBag As PropertyBag)
Call PropBag.WriteProperty("F1a", m_F1a, m_def_F1a)
Call PropBag.WriteProperty("F1b", m_F1b, m_def_F1b)
Call PropBag.WriteProperty("F2a", m_F2a, m_def_F2a)
Call PropBag.WriteProperty("F2b", m_F2b, m_def_F2b)
Call PropBag.WriteProperty("F3a", m_F3a, m_def_F3a)
Call PropBag.WriteProperty("F3b", m_F3b, m_def_F3b)
Call PropBag.WriteProperty("F4a", m_F4a, m_def_F4a)
Call PropBag.WriteProperty("F4b", m_F4b, m_def_F4b)
Call PropBag.WriteProperty("F5a", m_F5a, m_def_F5a)
Call PropBag.WriteProperty("F5b", m_F5b, m_def_F5b)
Call PropBag.WriteProperty("F6a", m_F6a, m_def_F6a)
Call PropBag.WriteProperty("F6b", m_F6b, m_def_F6b)
Call PropBag.WriteProperty("F7a", m_F7a, m_def_F7a)
Call PropBag.WriteProperty("F7b", m_F7b, m_def_F7b)
Call PropBag.WriteProperty("F8a", m_F8a, m_def_F8a)
Call PropBag.WriteProperty("F8b", m_F8b, m_def_F8b)
Call PropBag.WriteProperty("F9a", m_F9a, m_def_F9a)
Call PropBag.WriteProperty("F9b", m_F9b, m_def_F9b)
Call PropBag.WriteProperty("F0a", m_F0a, m_def_F0a)
Call PropBag.WriteProperty("F0b", m_F0b, m_def_F0b)
End SubPlain and simple.