WPF Bind to a Method

In this part we will bind to a method. As we type a number into a textbox the results will be displayed in label below it. For this example we use a class which figures out the area of a circle.

Let's start off with a class which calculates the area of a circle. This class has one function named CalculateArea.

Public Class Area

    Public Function CalculateArea(ByVal Radius As Double) As Double
        Return Math.PI * Radius ^ 2
    End Function
End Class

Now that we have a class set up to calculate the area we need 2 additonal classes. The first needs to inherit from ValidationRule to alert the user if they enter an incorrect value (textbox's border turns red for invalid values). The other need to inherit from IValueConveter to convert the user input from string to double and back again.

Imports System.Windows.Controls
Imports System.Windows.Data

Public Class ValidDouble
    Inherits ValidationRule

    Public Overrides Function Validate(ByVal value As Object, ByVal cultureInfo As System.Globalization.CultureInfo) As System.Windows.Controls.ValidationResult
        Dim num As Double

        If Double.TryParse(value.ToString, num) Then
            Return New ValidationResult(True, Nothing)
        Else
            Return New ValidationResult(False, "Invalid Number")
        End If
    End Function
End Class

Public Class DoubleToString
    Implements IValueConverter

    Public Function Convert(ByVal value As Object, ByVal targetType As System.Type, ByVal parameter As Object, ByVal culture As System.Globalization.CultureInfo) As Object Implements System.Windows.Data.IValueConverter.Convert
        If value IsNot Nothing Then
            Return value.ToString
        Else
            Return Nothing
        End If
    End Function

    Public Function ConvertBack(ByVal value As Object, ByVal targetType As System.Type, ByVal parameter As Object, ByVal culture As System.Globalization.CultureInfo) As Object Implements System.Windows.Data.IValueConverter.ConvertBack
        Dim num As Double
        If (value IsNot Nothing) AndAlso Double.TryParse(value.ToString, num) Then
            Return num
        Else
            Return Nothing
        End If
    End Function
End Class

Now that we have the classes we need its time to register the namespaces with the form.

Finally we will use an ObjectDataProvider to bind to the method and register the ValidationRule with the form.

  <Window.Resources>
    <ObjectDataProvider ObjectType="{x:Type local:Area}"
                        MethodName="CalculateArea" x:Key="CircleArea">
      <ObjectDataProvider.MethodParameters>
        <system:Double>0</system:Double>
      </ObjectDataProvider.MethodParameters>
    </ObjectDataProvider>

    <local:DoubleToString x:Key="doubleToString" />

  </Window.Resources>

The Form's complete XAML

<Window x:Class="Window1"
    xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
    xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
    xmlns:local="clr-namespace:WPFBindToMethod"
    xmlns:system="clr-namespace:System;assembly=mscorlib"
    Title="WPFBindToMethod" Height="300" Width="300"
    >
  <Window.Resources>
    <ObjectDataProvider ObjectType="{x:Type local:Area}"
                        MethodName="CalculateArea" x:Key="CircleArea">
      <ObjectDataProvider.MethodParameters>
        <system:Double>0</system:Double>
      </ObjectDataProvider.MethodParameters>
    </ObjectDataProvider>

    <local:DoubleToString x:Key="doubleToString" />

  </Window.Resources>
    <Grid>
      <Grid.ColumnDefinitions>
        <ColumnDefinition />
        <ColumnDefinition Width="140"/>
      </Grid.ColumnDefinitions>
      <Grid.RowDefinitions>
        <RowDefinition Height="30" />
        <RowDefinition Height="30" />
      </Grid.RowDefinitions>
      <Label Grid.Row="0"  Grid.Column="0"  HorizontalAlignment="Right">Radius of the Circle:</Label>
      <TextBox Grid.Row="0" Grid.Column="1" Name="tb">
        <TextBox.Text>
          <Binding Source="{StaticResource CircleArea}" Path="MethodParameters[0]"
                   BindsDirectlyToSource="true" UpdateSourceTrigger="PropertyChanged"
                   Converter="{StaticResource doubleToString}">
            <Binding.ValidationRules>
              <local:ValidDouble/>
            </Binding.ValidationRules>
          </Binding>
        </TextBox.Text>
      </TextBox>
      <Label Grid.Row="1"  Grid.Column="0" HorizontalAlignment="Right">Area of the Circle:</Label>
      <Label Grid.Column="1" Grid.Row="1" Content="{Binding Source={StaticResource CircleArea}}"></Label>
    </Grid>
</Window>

Be the first to rate this post

Currently 0/5 Stars.
1
2
3
4
5

Categories: WPF

Posted by Ken Tucker on Tuesday, April 10, 2007 10:12 PM

E-mail | Kick it! | DZone it! | del.icio.us

Permalink | Comments (0) | Post RSS RSS comment feed

Live From Redmond Webcast Series

The Visual Basic team has put together a "Live from Redmond" webcast series aimed at the next version of Visual Basic and Visual Studio code named "Orcas". The live series starts April 18th and will continue to the end of May. Come join the Visual Basic team for this exciting series.

Here's the schedule (check the VB Developer Center for updates):

Live From Redmond: VB9 - Orcas Overview April 18th, Presented by John Stallo
Live From Redmond: VB9 - LINQ Overview April 25th, Presented by Kit George
Live From Redmond: VB9 - LINQ to SQL & O/R Designer Deep Dive May 2nd, Presented by Young Joo
Live From Redmond: VB9 - Building N-Tier Applications May 9th, Presented by Young Joo
Live From Redmond: VB9 - Offline Data Caching May 16th, Presented by Milind Lele
Live From Redmond: VB9 - Deep Dive into LINQ May 23rd, Presented by Amanda Silver
Live From Redmond: VB9 - Building Service-Oriented Applications May 30th, Presented by John Stallo

Live From Redmond: Using the Interop Toolkit to Migrate your VB6 Applications to .NET June 6th, Presented by Jonathan Aneja
Live From Redmond: VB9 – LINQ Best Practices June 13th, Presented by Lisa Feigenbaum

For more webcasts past, present and future, please visit the VB Webcasts page.

Be the first to rate this post

Currently 0/5 Stars.
1
2
3
4
5

Categories: Events | VB

Posted by Ken Tucker on Tuesday, April 10, 2007 10:12 PM

E-mail | Kick it! | DZone it! | del.icio.us

Permalink | Comments (0) | Post RSS RSS comment feed

WPF OneWay Binding Part 3

In this part we will bind to a class. We will start off by creating a grid to display the properties of the class. Finally we will show how to get the form to update itself when a value changes in the class.

Lets start off creating a class that shows some info about the computer. Here is the class.

Public Class ComputerInfo

    Public ReadOnly Property UserName() As String
        Get
            Return Environment.UserName
        End Get
    End Property
    Public ReadOnly Property ComputerName() As String
        Get
            Return Environment.MachineName
        End Get
    End Property
    Public ReadOnly Property UpTime() As Integer
        Get
            Return Environment.TickCount
        End Get
    End Property

End Class

Ok lets register the class with the form.

Now lets create a grid with 2 columns and 3 rows to show the class in.

Lets put the data in the grid we just created.

To get the form to update itself automatically when a value changes in the class the class has to inherit from DependencyObject. The properties values that can change must be stored in a DependencyProperty. In this class I want the UpTime property to update itself every second with a timer.

Imports System.Windows.Threading

Public Class ComputerInfo
    Inherits DependencyObject

    Public Shared TickCountProperty As DependencyProperty = DependencyProperty.Register("UpTime", GetType(Integer), GetType(ComputerInfo))

    Public Sub New()
        Dim dt As New DispatcherTimer
        AddHandler dt.Tick, AddressOf TimerTick
        With dt
            .Interval = TimeSpan.FromSeconds(1)
            .Start()
        End With
    End Sub

    Public ReadOnly Property UserName() As String
        Get
            Return Environment.UserName
        End Get
    End Property
    Public ReadOnly Property ComputerName() As String
        Get
            Return Environment.MachineName
        End Get
    End Property
    Public ReadOnly Property UpTime() As Integer
        Get
            Return GetValue(TickCountProperty)
        End Get
    End Property

    Public Sub TimerTick(ByVal sender As Object, ByVal e As EventArgs)
        SetValue(TickCountProperty, Environment.TickCount)
    End Sub

End Class

Here is the windows complete XAML

Be the first to rate this post

Currently 0/5 Stars.
1
2
3
4
5

Categories: WPF

Posted by Ken Tucker on Sunday, April 08, 2007 10:12 PM

E-mail | Kick it! | DZone it! | del.icio.us

Permalink | Comments (0) | Post RSS RSS comment feed

WPF OneWay Binding Part 2

In the last part we bound a label to the value of the scrollbar. In this part we will format the scrollbar's value before we display it.

To be able to format the output of a bound value you need a class which inherits from IValueConverter. For this example I am using the NumbersToWords function found here to convert the number to a word for display.

Public Class NumberToWord
    Implements IValueConverter

    Private Function NumbersToWords(ByVal num As Decimal) As String
        Dim power_value(5) As Decimal
        Dim power_name(5) As String
        Dim digits As Integer
        Dim result As String
        Dim i As Integer

        ' Initialize the power names and values.
        power_name(1) = "trillion" : power_value(1) = 1000000000000.0#
        power_name(2) = "billion" : power_value(2) = 1000000000
        power_name(3) = "million" : power_value(3) = 1000000
        power_name(4) = "thousand" : power_value(4) = 1000
        power_name(5) = "" : power_value(5) = 1
        For i = 1 To 5
            ' See if we have digits in this range.
            If num >= power_value(i) Then
                ' Get the digits.
                digits = Int(num / power_value(i))
                ' Add the digits to the result.
                If Len(result) > 0 Then result = result & ", "
                result = result & Words_1_999(digits) & " " & power_name(i)
                ' Get the number without these digits.
                num = num - digits * power_value(i)
            End If
        Next i
        NumbersToWords = Trim$(result)
    End Function

    ' Return words for this value between 1 and 999.
    Private Function Words_1_999(ByVal num As Integer) As String
        Dim hundreds As Integer
        Dim remainder As Integer
        Dim result As String
        hundreds = num \ 100
        remainder = num - hundreds * 100
        If hundreds > 0 Then
            result = Words_1_19(hundreds) & " hundred "
        End If
        If remainder > 0 Then
            result = result & Words_1_99(remainder)
        End If
        Words_1_999 = Trim$(result)
    End Function

    ' Return a word for this value between 1 and 19.
    Private Function Words_1_19(ByVal num As Integer) As String
        Select Case num
            Case 1
                Words_1_19 = "one"
            Case 2
                Words_1_19 = "two"
            Case 3
                Words_1_19 = "three"
            Case 4
                Words_1_19 = "four"
            Case 5
                Words_1_19 = "five"
            Case 6
                Words_1_19 = "six"
            Case 7
                Words_1_19 = "seven"
            Case 8
                Words_1_19 = "eight"
            Case 9
                Words_1_19 = "nine"
            Case 10
                Words_1_19 = "ten"
            Case 11
                Words_1_19 = "eleven"
            Case 12
                Words_1_19 = "twelve"
            Case 13
                Words_1_19 = "thirteen"
            Case 14
                Words_1_19 = "fourteen"
            Case 15
                Words_1_19 = "fifteen"
            Case 16
                Words_1_19 = "sixteen"
            Case 17
                Words_1_19 = "seventeen"
            Case 18
                Words_1_19 = "eightteen"
            Case 19
                Words_1_19 = "nineteen"
            Case Else
                Words_1_19 = ""
        End Select
    End Function

    ' Return a word for this value between 1 and 99.
    Private Function Words_1_99(ByVal num As Integer) As String
        Dim result As String
        Dim tens As Integer
        tens = num \ 10
        If tens <= 1 Then ' 1 <= num <= 19
            result = result & " " & Words_1_19(num)
        Else
            ' 20 <= num
            ' Get the tens digit word.
            Select Case tens
                Case 2
                    result = "twenty"
                Case 3
                    result = "thirty"
                Case 4
                    result = "forty"
                Case 5
                    result = "fifty"
                Case 6
                    result = "sixty"
                Case 7
                    result = "seventy"
                Case 8
                    result = "eighty"
                Case 9
                    result = "ninety"
            End Select
            ' Add the ones digit number.
            result = result & " " & Words_1_19(num - tens * 10)
        End If
        Words_1_99 = Trim$(result)
    End Function

    Public Function Convert(ByVal value As Object, ByVal targetType As System.Type, ByVal parameter As Object, ByVal culture As System.Globalization.CultureInfo) As Object Implements System.Windows.Data.IValueConverter.Convert
        Dim d As Double
        If Double.TryParse(value.ToString, d) Then
            Return NumbersToWords(CDec(d))
        Else
            Return value
        End If
    End Function

    Public Function ConvertBack(ByVal value As Object, ByVal targetType As System.Type, ByVal parameter As Object, ByVal culture As System.Globalization.CultureInfo) As Object Implements System.Windows.Data.IValueConverter.ConvertBack
        Return Nothing
    End Function
End Class

Now that we created the class we need to register the xml namespace with the window. The namespace you need to use for this is clr-namespace:NamespaceName. In this case it is the applications name. I am adding the local prefix so we can reference it later.

Now we need to make the converter a resource for the window.

  <Window.Resources>
    <local:NumberToWord x:Key="conv"></local:NumberToWord>
  </Window.Resources>

Right after we set the path for the binding we can specify the converter. The converter is a StaticResource of the window.

Here is the windows complete XAML

Be the first to rate this post

Currently 0/5 Stars.
1
2
3
4
5

Categories: WPF

Posted by Ken Tucker on Saturday, April 07, 2007 10:12 PM

E-mail | Kick it! | DZone it! | del.icio.us

Permalink | Comments (0) | Post RSS RSS comment feed

WPF OneWay Binding Part 1

Windows Presentation Foundation (WPF) foundation is for building applications and experiences in Windows Vista that blend the application UI, documents, and media content. In this series of blog entries we willl start to explore some of the improvements to data binding in WPF. You will need to have the .Net Framework 3.0, Windows Vista SDK, and Visual Studio 2005 extensions for WPF and WCF installed for this sample.

For this example we will start off with a Windows Application (WPF). In the forms XMAL we will add a stack panel to hold a label and scrollbar. The label's content will be bound to the scrollbar's value so as we move the scrollbar the value will be displayed in the label.

In the Lets set up a DataContext which is bound to the scrollbar .

<Label HorizontalAlignment="Center" DataContext="{Binding ElementName=hscroll, Mode=OneWay}"

Now we can bind the label's content to the scrollbars value

The complete XMAL for the Window

Be the first to rate this post

Currently 0/5 Stars.
1
2
3
4
5

Categories: WPF

Posted by Ken Tucker on Friday, April 06, 2007 10:12 PM

E-mail | Kick it! | DZone it! | del.icio.us

Permalink | Comments (0) | Post RSS RSS comment feed

AjaxToolKit Slide Show Control

While working on the Orlando Code Camp website I decided to add a page which shows a slide show of the pictures taken at code camp. The new Ajax Tool Kit Slide Show Control was perfect for this task. The photos were uploaded to the Flickr website.

The Slide Show control requires a shared (static c#) function which would return an Array of Slides. The slide class contains a link to the photo, the photos name, and description of the photo. Since I did not want to store a list of photos in a database or xml file I decided to use the FlickrNet library on the Code Plex website to get a list of the code camp photos. You will need an api key from Flickr to use this class library.

In this example I look up the username by the URL the photo collections is located. The I get a list of the photos by the username. The Flickr .Net library will create an xml file to cache the photo list by default. I turned this feature off because not all webservers will allow the dll to write to the bin directory the Flickr dll is located in.

Article about Flickr.Net API on Coding4Fun Website

Orlando Code Camp Photo Show

HTML

<%@ Page Language="VB" AutoEventWireup="true" CodeFile="Default.aspx.vb" Inherits="_Default" %>

<%@ Register Assembly="AjaxControlToolkit" Namespace="AjaxControlToolkit" TagPrefix="ajaxToolkit" %>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.1//EN" "http://www.w3.org/TR/xhtml11/DTD/xhtml11.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head runat="server">
    <title>Orlando Code Camp Files</title>
</head>
<body>
    <form id="form1" runat="server">
        <asp:ScriptManager ID="ScriptManager1" runat="server" EnablePageMethods="true" />
        <div>
            <div style="text-align: center">
                <asp:Image ID="Image1" runat="server" Height="300" Style="border: 1px solid black;
                    width: auto" ImageUrl="http://farm1.static.flickr.com/177/434079572_dd113d2313.jpg?v=0"
                    AlternateText="Orlando Code Camp" />
                <asp:Label runat="Server" ID="imageLabel1" /><br />
                <br />
                <asp:Button runat="Server" ID="prevButton" Text="Prev" Font-Size="Larger" />
                <asp:Button runat="Server" ID="playButton" Text="Play" Font-Size="Larger" />
                <asp:Button runat="Server" ID="nextButton" Text="Next" Font-Size="Larger" />
                <ajaxToolkit:SlideShowExtender ID="slideshowextend1" runat="server" TargetControlID="Image1"
                    SlideShowServiceMethod="GetPictures" AutoPlay="true" ImageDescriptionLabelID="imageLabel1"
                    NextButtonID="nextButton" PlayButtonText="Play" StopButtonText="Stop" PreviousButtonID="prevButton"
                    PlayButtonID="playButton" Loop="true" />
                <asp:Label ID="lblError" runat="server" />
            </div>
        </div>
    </form>
</body>
</html>

Code Behind File

Imports FlickrNet

Partial Class _Default
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

    End Sub

    <System.Web.Services.WebMethod()> _
  <System.Web.Script.Services.ScriptMethod()> _
   Public Shared Function GetPictures() As AjaxControlToolkit.Slide()
        Dim strApiKey As String = "xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx"
        Dim strSecret As String = "xxxxxxxxxxxxxxxxxxxxx"
        Flickr.CacheDisabled = True
        Dim f As New FlickrNet.Flickr()
        Try
            f.ApiKey = strApiKey
            f.ApiSecret = strSecret

            Dim user As FlickrNet.FoundUser = f.UrlsLookupUser("http://www.flickr.com/photos/onetug/sets/72157600026752869/")
            Dim ccPhotos As FlickrNet.Photos
            Dim so As New FlickrNet.PhotoSearchOptions
            so.UserId = user.UserId
            ccPhotos = f.PhotosSearch(so)

            Dim s(ccPhotos.PhotoCollection.Count) As AjaxControlToolkit.Slide

            For x As Integer = 0 To ccPhotos.PhotoCollection.Count - 1
                Dim ph As FlickrNet.Photo = ccPhotos.PhotoCollection.Item(x)
                s(x) = New AjaxControlToolkit.Slide(ph.MediumUrl, "", ph.Title)
            Next
            Return s
        Catch ex As Exception
            Dim s(0) As AjaxControlToolkit.Slide
            s(0) = New AjaxControlToolkit.Slide("http://static.flickr.com/186/435708815_c74ba67436_b.jpg", "", _
                "Shawn Weisfeld delivering the books to A Gift for Teaching")
            Return s
        End Try
    End Function

End Class

Be the first to rate this post

Currently 0/5 Stars.
1
2
3
4
5

Categories: Ajax | VB

Posted by Ken Tucker on Thursday, April 05, 2007 10:12 PM

E-mail | Kick it! | DZone it! | del.icio.us

Permalink | Comments (0) | Post RSS RSS comment feed

ScottGu at Space Coast .Net

Recently we had Scott Guthrie who works for Microsoft stop by and present at our meeting while he was in town for DevConnections . Scott runs the teams that build the .NET Common anguage Runtime (CLR), .NET Compact Framework, ASP.NET /Atlas, Windows Forms, Windows Presentation Foundation (aka "Avalon") , IIS 7.0, Commerce Server, Visual Web Developer, and Visual Studio Tools for Avalon (aka "Cider").

Scott did a really awsome 2 hour presentation. He started off showing the new CSS features of Visual Studio Orcas. Then he moved on to LINQ and showed some really useful examples. Then he moved on to WPF and did a demo on Expression blend. Finally he moved on to IIS 7 and showed how to configure the website settings in a config file.

Scott is a great presenter. I was really impressed with how much he was able to cover. I was also impressed with how stable Visual Studio Orcas was in this early CTP.

Link to Scott Guthries slides

Be the first to rate this post

Currently 0/5 Stars.
1
2
3
4
5

Categories: Events | User Group

Posted by Ken Tucker on Sunday, April 01, 2007 10:12 PM

E-mail | Kick it! | DZone it! | del.icio.us

Permalink | Comments (0) | Post RSS RSS comment feed

Onteora Software

Ken Tucker's Blog

About the author

Recent posts

Recent comments

Archive

Authors

Tags

Categories

Blogroll

Disclaimer

WPF Bind to a Method