WPF學習日誌 ~ 變換Form的背景圖 ~

Note：本篇工具使用VS2008，.Net framework版本3.5
這篇功能測試是每秒會變換Form的背景圖片，話先說在前頭，這篇單純的只是熟悉一下WPF相關物件的使用方式，不會看到WPF的"特異功能"，單就功能上來看VS2005也是很輕易的可以完成的。
首先，有些東西要了解一下，像是WPF中並沒有直接提供Timer的控制項，那怎麼做呢？請參考下面這篇
請教WPF form沒有Timer元件了嗎？？
好，下面我們來看看程式碼吧

''宣告Timer物件
    Dim myT As Threading.DispatcherTimer
    ''宣告Image物件
    Dim img As Image
    Dim B As BitmapImage

    Dim ImagePath() As String
    Dim Count As Integer = 0
    Dim u As Uri
    Dim R As New Random

    Private Sub Window1_Loaded(ByVal sender As Object, ByVal e As System.Windows.RoutedEventArgs) Handles Me.Loaded
        ''設定標題列文字
        Me.Title = "WPF Text"
        ''取得圖片檔案路徑
        ImagePath = IO.Directory.GetFiles("D:\圖檔\JPG\App")
        u = New Uri(ImagePath(0))
        B = New BitmapImage
        B.BeginInit()
        B.UriSource = u
        B.EndInit()

        img = New Image
        img.Source = B
        img.Stretch = Stretch.UniformToFill
        Me.Content = img
        ''Timer相關設定
        myT = New Threading.DispatcherTimer
        myT.Interval = New TimeSpan(0, 0, 1)
        AddHandler myT.Tick, AddressOf Timer_Tick
        myT.Start()
    End Sub

    Private Sub Timer_Tick(ByVal sender As Object, ByVal e As EventArgs)
        On Error Resume Next
        If (Count + 1) > (ImagePath.Length - 1) Then
            Count = 0
        Else
            Count += 1
        End If
        u = New Uri(ImagePath(Count))
        B = New BitmapImage
        B.BeginInit()
        B.UriSource = u
        B.EndInit()
        img.Source = B
        ''亂數旋轉圖片的角度
         Randomize()
        img.LayoutTransform = New RotateTransform(R.Next(1, 100))
    End Sub

值得一提的是，在指定BitmapImage的UriSource時，前後我們都會加上Init相關的動作，你可以將這兩行註解掉看看有什麼不同。
相關參考

• DispatcherTimer 類別
  
• Uri 類別
  
• BitmapImage 類別

2008.3.21 編輯
Kevin大留言提到，在上面程式碼中，取得圖片路徑的程式碼

ImagePath = IO.Directory.GetFiles("D:\圖檔\JPG\App")

由於瀏覽過圖片的話會在該目錄下多了一個thumbs.db的檔案，建議修改為下面方式

ImagePath = IO.Directory.GetFiles("D:\圖檔\JPG\App","*.jpg")

請各位自行修改了~感謝Kevin大的提醒 ~