ProgressDisplayStub
Stands in for the progress label of the Imports form. SetupImport asks a display object for a Caption or a Value before it writes to it, and this stub answers both, so a test can read back whatever the service wrote. The two fields carry a name of their own. A field spelled like the property that reads it makes the VBA editor renormalise one to the other, and that is a known way to freeze it.
Internal members (not exported)
Caption #
caption
Text the service last wrote to the caption.
Signature:
Public Property Get Caption() As String
Returns: String. The stored caption.
Caption #
caption-set
Store the caption text.
Signature:
Public Property Let Caption(ByVal newCaption As String)
Parameters:
newCaption: String. The text to store.
Value #
value
Text the service last wrote to the value.
Signature:
Public Property Get Value() As String
Returns: String. The stored value.
Value #
value-set
Store the value text.
Signature:
Public Property Let Value(ByVal newValue As String)
Parameters:
newValue: String. The text to store.
Used in (1 file(s))
- TestSetupImport.bas