CasewareDocs

SmartTextBox

Properties:

Example

Sub Main() 
Dim oParameters As Object
Dim oTextBox As Object
Dim sText As String

'Get Parameters from SmartContext.
Set oParameters = SmartContext.Parameters

If oParameters.Contains("smartTextBox1") Then
Set oTextBox = oParameters.Item("smartTextBox1")

sText = oTextBox.Value

'Do something with "sText"
End If

If oParameters.Contains("smartTextBox1") Then
sText = oParameters.Item("smartTextBox1").Value

'Do something with "sText"
End If

Set oTextBox = Nothing
Set oParameters = Nothing
End Sub