Extra Info Storer User Control

[Inside]

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?


The 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 Sub

No extra coding to dimension fields or declaring of values etc.
Plain and simple.

Project: Info Extra.zip