Sample Code 8

Class CInput.

'Class CInput

Option Explicit

'local reference to the input form

Private mvarfrmInput As FormInputData

'keep track of the last valid value entered

Private mvarLastValue As Integer

Private Sub Class_Initialize()

    'Create the form and initialize its properties to default values

    Set mvarfrmInput = New FormInputData

    mvarfrmInput.MinValue = 1

    mvarfrmInput.MaxValue = 10

    mvarfrmInput.txtInputValue.Text = 10

    mvarLastValue = mvarfrmInput.txtInputValue.Text

    mvarfrmInput.OpCanceled = False

End Sub

Private Sub Class_Terminate()

    Unload mvarfrmInput

    Set mvarfrmInput = Nothing

End Sub

Public Sub Show()

    mvarLastValue = mvarfrmInput.txtInputValue.Text

    mvarfrmInput.Show vbModal

    If mvarfrmInput.OpCanceled Then

        mvarfrmInput.txtInputValue.Text = mvarLastValue

    End If

End Sub

Public Property Get OpCanceled() As Boolean

    OpCanceled = mvarfrmInput.OpCanceled

End Property

Public Property Let DescrText(ByVal vData As String)

    mvarfrmInput.lblInputDescription = vData

End Property

Public Property Get DescrText() As String

    DescrText = mvarfrmInput.lblInputDescription

End Property

Public Property Let InputValue(ByVal vData As Integer)

    mvarfrmInput.txtInputValue = vData

End Property

Public Property Get InputValue() As Integer

    InputValue = mvarfrmInput.txtInputValue.Text

End Property

Public Property Let MaxValue(ByVal vData As Integer)

    mvarfrmInput.MaxValue = vData

End Property

Public Property Get MaxValue() As Integer

    MaxValue = mvarfrmInput.MaxValue

End Property

Public Property Let MinValue(ByVal vData As Integer)

    mvarfrmInput.MinValue = vData

End Property

Public Property Get MinValue() As Integer

    MinValue = mvarfrmInput.MinValue

End Property

Sample Code 9