View.CurrentObject Property

Specifies a View‘s current object.

Namespace: DevExpress.ExpressApp

Assembly: DevExpress.ExpressApp.v24.1.dll

NuGet Package: DevExpress.ExpressApp

Declaration

C#

public virtual object CurrentObject { get; set; }

VB.NET

Public Overridable Property CurrentObject As Object

Property Value

Type	Description
Object	An object representing the current View’s current object.

Remarks

The example below demonstrates how to set a Contact‘s FirstName value to the NickName property via a SimpleAction.

C#

using DevExpress.ExpressApp;
using DevExpress.ExpressApp.Actions;
using DevExpress.Persistent.Base;
using MainDemo.Module.BusinessObjects;
// ...
public class SetNickNameController : ViewController {
    public SetNickNameController() {
        SimpleAction setNickNameAction = new SimpleAction(this, "SetNickName", PredefinedCategory.Edit);
        setNickNameAction.Execute += SetNickNameAction_Execute;
    }
    private void SetNickNameAction_Execute(object sender, SimpleActionExecuteEventArgs e) {
        Contact currentObject = View.CurrentObject as Contact;
        if(currentObject != null) {
            currentObject.NickName = currentObject.FirstName;
        }
    }
}

VB.NET

Imports DevExpress.ExpressApp
Imports DevExpress.ExpressApp.Actions
Imports DevExpress.Persistent.Base
Imports MainDemo.Module.BusinessObjects

Public Class SetNickNameController
    Inherits ViewController
    Public Sub New()
        Dim setNickNameAction As New SimpleAction(Me, "SetNickName", PredefinedCategory.Edit)
        AddHandler setNickNameAction.Execute, AddressOf SetNickNameAction_Execute
    End Sub
    Private Sub SetNickNameAction_Execute(ByVal sender As Object, ByVal e As SimpleActionExecuteEventArgs)
        Dim currentObject As Contact = TryCast(View.CurrentObject, Contact)
        If currentObject IsNot Nothing Then
            currentObject.NickName = currentObject.FirstName
        End If
    End Sub
End Class

This property returns null and is intended to be overridden in View descendants. See ListView.CurrentObject and DetailView.CurrentObject.

For additional information, refer to the How to: Access Objects Selected in the Current View help topic.

Related GitHub Examples

The following code snippets (auto-collected from DevExpress Examples) contain references to the CurrentObject property.

Note

The algorithm used to collect these code examples remains a work in progress. Accordingly, the links and snippets below may produce inaccurate results. If you encounter an issue with code examples below, please use the feedback form on this page to report the issue.

C#

xaf-how-to-create-information-panels/CS/InfoPanels.Module.Win/Controllers/InfoPanelViewControllerWin.cs#L40

label.Text = "The current View is " + View.Caption;
if (View.CurrentObject != null) {
    label.Text += System.Environment.NewLine +

xaf-how-to-highlight-invalid-properties-when-a-view-is-activated/CS/DXSample.Module/ImmediateValidationController.cs#L48

    ImmediateValidationTargetObjectsSelector objectsSelector = new ImmediateValidationTargetObjectsSelector();
    ValidateObjects(objectsSelector.GetObjectsToValidate(View.ObjectSpace, View.CurrentObject));
}

xaf-how-to-show-persistent-objects-in-a-non-persistent-objects-view/CS/ComplexDialogSample.Module/Controllers/MyController.cs#L41

void action_Execute(object sender, PopupWindowShowActionExecuteEventArgs e) {
    OrderTemplate parameters = e.PopupWindow.View.CurrentObject as OrderTemplate;
    ListPropertyEditor listPropertyEditor = ((DetailView)e.PopupWindow.View).FindItem("Services") as ListPropertyEditor;

VB.NET

xaf-how-to-create-information-panels/VB/InfoPanels.Module.Win/Controllers/InfoPanelViewControllerWin.vb#L39

label.Text = "The current View is " & View.Caption
If View.CurrentObject IsNot Nothing Then
    label.Text &= System.Environment.NewLine & "The current object is " & View.CurrentObject.ToString()

xaf-how-to-highlight-invalid-properties-when-a-view-is-activated/VB/DXSample.Module/ImmediateValidationController.vb#L53

    Dim objectsSelector As ImmediateValidationTargetObjectsSelector = New ImmediateValidationTargetObjectsSelector()
    ValidateObjects(objectsSelector.GetObjectsToValidate(View.ObjectSpace, View.CurrentObject))
End If

xaf-how-to-show-persistent-objects-in-a-non-persistent-objects-view/VB/ComplexDialogSample.Module/Controllers/MyController.vb#L47

Private Sub action_Execute(ByVal sender As Object, ByVal e As PopupWindowShowActionExecuteEventArgs)
    Dim parameters As OrderTemplate = TryCast(e.PopupWindow.View.CurrentObject, OrderTemplate)
    Dim listPropertyEditor As ListPropertyEditor = TryCast(CType(e.PopupWindow.View, DetailView).FindItem("Services"), ListPropertyEditor)