PageRecognitionTime Property Example

After determining the current PageRecognitionTime value, this example prompts the user to set a new PageRecognitionTime.

Sub Main()

 Dim Sys As Object

 Dim Sess As Object

 Set Sys = CreateObject("EXTRA.System")

 Set Sess = Sys.ActiveSession

 ' These lines set up the strings to be used in the

 ' InputBox dialog

 InputPrompt$ = "The current page recognition time value is " _

   + Sess.PageRecognitionTime

 InputPrompt$ = InputPrompt$ + " Enter a value to change it."

 Title$ = "Set page recognition time value"

 Default$ = Str$(Sess.PageRecognitionTime)

 NewTime$ = InputBox$( InputPrompt$, Title$, Default$)

 ' The PageRecognitionTime property is used to set the host page

 ' recognition time value.

 Sess.PageRecognitionTime = Val(NewTime$)

 MsgBox "The new value is " + Sess.PageRecognitionTime + "."

End Sub