Our What's New in v24.2 webpage includes product-specific surveys. Your response to our survey questions will help us measure product satisfaction for features released in this major update and help us refine our plans for our next major release.
The DXExpander provides a number of predefined animation styles. The HorizontalExpand property allows you to select the style of horizontal animation. To specify the vertical animation style, use the DXExpander.VerticalExpand property.
You can also implement a custom animation for the DXExpander. To learn more, see DXExpander.
The following example demonstrates how to make visual elements expandable via the DXExpander.In this example, the DXExpander with a GroupBox inside it is placed into a standard Grid. The DXExpander can be expanded (or collapsed) by clicking the ellipsis button. This shows or hides the GroupBox.
ImportsSystem.WindowsImportsDevExpress.Xpf.CoreImportsSystem.Collections.ObjectModelNamespace DXExpander_CreatingAndUsing
PartialPublicClass MainWindow
Inherits Window
PublicSubNew()
InitializeComponent()
Me.DataContext = New MyViewModel()
ApplicationThemeHelper.ApplicationThemeName = "Office2016White"EndSubPrivateSub Button_Click(ByVal sender AsObject, ByVal e As RoutedEventArgs)
expander.IsExpanded = Not expander.IsExpanded
EndSubPrivateSub rbAzure_Checked(ByVal sender AsObject, ByVal e As RoutedEventArgs)
If gridControl1 IsNothingThenReturnEndIfIf rbAzure.IsChecked = TrueThen
ApplicationThemeHelper.ApplicationThemeName = "Office2016White"EndIfEndSubPrivateSub rbGray_Checked(ByVal sender AsObject, ByVal e As RoutedEventArgs)
If gridControl1 IsNothingThenReturnEndIfIf rbGray.IsChecked = TrueThen
ApplicationThemeHelper.ApplicationThemeName = "LightGray"EndIfEndSubPrivateSub rbOfficeBlack_Checked(ByVal sender AsObject, ByVal e As RoutedEventArgs)
If gridControl1 IsNothingThenReturnEndIfIf rbOfficeBlack.IsChecked = TrueThen
ApplicationThemeHelper.ApplicationThemeName = "Office2007Black"EndIfEndSubPrivateSub rbOfficeBlue_Checked(ByVal sender AsObject, ByVal e As RoutedEventArgs)
If gridControl1 IsNothingThenReturnEndIfIf rbOfficeBlue.IsChecked = TrueThen
ApplicationThemeHelper.ApplicationThemeName = "Office2007Blue"EndIfEndSubPrivateSub rbOfficeSilver_Checked(ByVal sender AsObject, ByVal e As RoutedEventArgs)
If gridControl1 IsNothingThenReturnEndIfIf rbOfficeSilver.IsChecked = TrueThen
ApplicationThemeHelper.ApplicationThemeName = "Office2007Silver"EndIfEndSubEndClassPartialPublicClass Person
PublicSubNew()
EndSubPublicSubNew(ByVal i AsInteger)
FirstName = "FirstName" & i
LastName = "LastName" & i
Age = i * 10EndSubPrivate _firstName AsStringPublicProperty LastName() AsStringPrivate _age AsIntegerPublicProperty FirstName() AsStringGetReturn _firstName
EndGetSet(ByVal value AsString)
_firstName = value
EndSetEndPropertyPublicProperty Age() AsIntegerGetReturn _age
EndGetSet(ByVal value AsInteger)
_age = value
EndSetEndPropertyEndClassPartialPublicClass MyViewModel
PublicSubNew()
CreateList()
EndSubPublicProperty ListPerson() As ObservableCollection(Of Person)
PrivateSub CreateList()
ListPerson = New ObservableCollection(Of Person)()
For i AsInteger = 0To9Dim p AsNew Person(i)
ListPerson.Add(p)
Next i
EndSubEndClassEndNamespace
ImportsSystemImportsSystem.Collections.GenericImportsSystem.ConfigurationImportsSystem.DataImportsSystem.LinqImportsSystem.WindowsNamespace DXExpander_CreatingAndUsing
'''<summary>''' Interaction logic for App.xaml'''</summary>PartialPublicClass App
Inherits Application
PrivateSub OnAppStartup_UpdateThemeName(ByVal sender AsObject, ByVal e As StartupEventArgs)
EndSubEndClassEndNamespace