Display
This property returns the name of the active display and is also used to change the active display immediately to a different display at runtime. The App.SetDisplay is similar but it does NOT return the name of the active display.
Group: Application-Based Extension
Syntax: App.Display=French
Example:
Private Sub Form_Load()
On Error Resume Next
App.SetDisplay("Standard1") 'This is the default display.
sName=App.Display 'Returns the name of the active display
TextBox1.Text=sName 'Displays the name of the active display which is Standard1
End Sub
Dim sName As String
Dim sOtherDisplayName As String
Private Sub BtnDisplayName_Click() 'First click changes the display; Second shows the name of changed display
On Error Resume Next
App.Display="NonStandard" ' Sets display to the NonStandard Display (which has a yellow background)
If App.Display = "NonStandard" Then
App.MsgBox(sOtherDisplayName)
TextBox1.Text=sOtherDisplayName
sOtherDisplayName=App.Display
Else
App.MsgBox("Failure")
End If
End Sub
Version Supported: RFgen 5.2.3.0 and newer.