FZ_FormBase.SetUnitTitle

Sets the title of a processing unit

Public Function SetUnitTitle( _
   ByVal unitNo As Integer, _
   ByVal unitTitle As String _
) As Integer

Parameters

unitNo	Unit number of title name to be set	Input
unitTitle	Title name to be set	Input

Return Value

Returns 0 when setting the title name succeeded.

Otherwise returns a non-zero value.

Description

Sets the title name of the specified unit number.

Example

    Friend Sub UnitRename(ByVal unitName As String, ByVal unitNo As Integer)
        Try
            'Get the default name from the item ident when the setting name is null.
            If unitName = "" Then
                unitName = UnitFlowItem.GetDefaultTitle(Me.UnitFlow1.SelectItem.ItemIdent)
            End If

            'Set the title of the specified unit.
            If SetUnitTitle(unitNo, unitName) <> 0 Then
                OpenTextData(FZ_SharedClass.IDENT_FZFLOW)
                Dim title As String = Me.GetText("FlowErrorTitle")
                Dim msg As String = Me.GetText("FlowError4")
                FZ_SharedClass.ShowMsg(title, msg)
            End If

        Catch ex As Exception
            Me.ShowMsgExceptionErr()
        End Try
    End Sub