Mega Code Archive

 

Categories / VB.Net Tutorial / WPF

 

Set up ObjectDataProvider in code

<Window x: Class="WpfApplication1.Monitor"         xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"         xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"         xmlns:diag="clr-namespace:System.Diagnostics;assembly=System"         xmlns:system="clr-namespace:System;assembly=mscorlib"         Title="Monitor" Height="400" Width="389">     <Grid>         <Grid.Resources>             <ObjectDataProvider x:Key="processes" MethodName="GetProcesses" ObjectType="{x:Type diag:Process}"/>             <ObjectDataProvider x:Key="dateinfo" ObjectType="{x:Type system:DateTime}"/>         </Grid.Resources>         <ListView Name="listView1" ItemsSource="{Binding Source={StaticResource processes}}">         </ListView>     </Grid> </Window> //File:Window.xaml.vb Imports System Imports System.Collections.Generic Imports System.Linq Imports System.Text Imports System.Windows Imports System.Windows.Controls Imports System.Windows.Data Imports System.Windows.Documents Imports System.Windows.Input Imports System.Windows.Media Imports System.Windows.Media.Imaging Imports System.Windows.Shapes Imports System.Diagnostics Imports System.Windows.Markup Imports System.Xml Imports System.IO Imports System.Timers Namespace WpfApplication1   Public Partial Class Monitor     Inherits Window     Public Sub New()       InitializeComponent()       Dim provider As New ObjectDataProvider()       provider.ObjectType = GetType(Process)       provider.MethodName = "GetProcesses"       Dim binding As New Binding()       PresentationTraceSources.SetTraceLevel(binding, PresentationTraceLevel.High)       binding.Source = provider       binding.Mode = BindingMode.OneWay       binding.UpdateSourceTrigger = UpdateSourceTrigger.Explicit       listView1.ItemTemplate = CreateItemTemplateFromXaml()       listView1.SetBinding(ListView.ItemsSourceProperty, binding)     End Sub     Private Function CreateItemTemplateFromXaml() As DataTemplate       Dim templateXml As String = "<DataTemplate xmlns='http://schemas.microsoft.com/winfx/2006/xaml/presentation' xmlns:x='http://schemas.microsoft.com/winfx/2006/xaml'><TextBlock Text='{Binding Path=ProcessName}'/></DataTemplate>"       Dim templateBytes As Byte() = Encoding.UTF8.GetBytes(templateXml)       Using templateStream As New MemoryStream(templateBytes)         Dim template As DataTemplate = DirectCast(XamlReader.Load(templateStream), DataTemplate)         Return template       End Using     End Function     Private Function CreateItemTemplate() As DataTemplate       Dim template As New DataTemplate()       Dim panelFactory As New FrameworkElementFactory(GetType(WrapPanel))       Dim idTextFactory As New FrameworkElementFactory(GetType(TextBlock))       idTextFactory.SetBinding(TextBlock.TextProperty, New Binding("Id"))       idTextFactory.SetValue(TextBlock.MinWidthProperty, 80.0)       Dim workingSetTextFactory As New FrameworkElementFactory(GetType(TextBlock))       workingSetTextFactory.SetBinding(TextBlock.TextProperty, New Binding("WorkingSet"))       panelFactory.AppendChild(idTextFactory)       panelFactory.AppendChild(workingSetTextFactory)       template.VisualTree = panelFactory       Return template     End Function   End Class End Namespace