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.
ImportsSystemImportsSystem.Collections.ObjectModelImportsSystem.WindowsImportsSystem.Windows.ResourcesImportsSystem.Xml.LinqNamespace Bubbles
PublicClass IrisesViewModel
PublicProperty Irises() As ObservableCollection(Of IrisData)
PublicSubNew()
Me.Irises = DataLoader.GetIrises("/Data/IrisDataSet.xml")
EndSubEndClassFriendNotInheritableClass DataLoader
PrivateSubNew()
EndSubPublicSharedFunction GetIrises(ByVal filepath AsString) As ObservableCollection(Of IrisData)
Dim irisDataSet AsNew ObservableCollection(Of IrisData)()
Dim uri AsNew Uri(filepath, UriKind.RelativeOrAbsolute)
Dim info As StreamResourceInfo = Application.GetResourceStream(uri)
Dim document As XDocument = XDocument.Load(info.Stream)
If document IsNothingThenReturn irisDataSet
EndIfForEach element As XElement In document.Element("IrisDataSet").Elements()
Dim sepalLength AsDouble = Convert.ToDouble(element.Element("SepalLength").Value)
Dim sepalWidth AsDouble = Convert.ToDouble(element.Element("SepalWidth").Value)
Dim petalLength AsDouble = Convert.ToDouble(element.Element("PetalLength").Value)
Dim petalWidth AsDouble = Convert.ToDouble(element.Element("PetalWidth").Value)
Dim species AsString = element.Element("Species").Value.ToString()
irisDataSet.Add(New IrisData(species, sepalWidth, sepalLength, petalWidth, petalLength))
Next element
Return irisDataSet
EndFunctionEndClassEndNamespace
The following code snippet (auto-collected from DevExpress Examples) contains a reference to the Bubble3DSeriesView class.
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.