CasewareDocs

SmartInputBox

Properties:

Properties which can be used in the macro/routine:

Example

Sub Main() 
Dim oParameters As Object
Dim oInputBox As Object
Dim ReturnValueAsString As String
Dim ReturnValueAsDouble As Double

'Get Parameters from SmartContext
Set oParameters = SmartContext.Parameters
If oParameters.Contains("smartInputBox1") Then
Set oInputBox = oParameters.Item("smartInputBox1")
ReturnValueAsString = oInputBox.Text
ReturnValueAsDouble = oInputBox.Value

'Do something with the return values
End If
'Alternative way of getting the return value
ReturnValueAsString = oParameters.Item("smartInputBox1").Text
ReturnValueAsDouble = oParameters.Item("smartInputBox1").Value

'Do something with the return values
Set oInputBox = Nothing
Set oParameters = Nothing
End Sub