WPF學習日誌 ~2008年3月號~ WPF

bauann

大家一起衝吧 ~
下面會貼一些測試時的心得與程式碼，跟大家一起討論了，之後陸續有新增的也會開新主題貼出來 ~
下面文章是由Blog轉過來的，因為Blog上面會跑JavaScript不喜歡跑些有的沒的的朋友可以在這邊看

下面這邊有個學習WPF,windows Form的相關學習資源，有一些Vedio可以看，對於這方面有興趣的朋友，千萬別錯過了，戴好耳機，抓緊滑鼠，咱們出發啦~


WindowsClient.net

[ 本帖最後由 bauann 於 2008-3-24 19:38 編輯 ]

bauann

最近要開始K書，練習WPF相關的東西，書是K這本

雖然Code的部分都是C#不過應該是不會差太多的~剛開始沒多久，按照書上給的範例練習了一下，順便把練習的程式碼貼出來，想看看WPF的朋友也可以測看看。
首先當然要先建立我們的環境，如果你還沒有安裝.Net framework3.0的話可以參考這一篇。
設定好環境之後，建立一個新的專案(這邊我還是用VS2005+延伸套件來做)

之後會看到一個空空的Form，可以看看左邊的工具箱，這時候跟一般做WIndows Form應用程式的時候已經是不一樣了~接下來在方案總管的地方選擇View Code

換到程式碼檢視的部分貼上下面的程式碼(這個範例主要是當滑鼠移動的時候會改變背景的顏色，越靠近中心點顏色會越偏白色)

1. ' Interaction logic for Window1.xaml
   
2. Partial Public Class Window1
   
3.     Inherits System.Windows.Window
   
4.     Dim Brush As New SolidColorBrush(Colors.Black)
   
5.     Public Sub New()
   
6.         InitializeComponent()
   
7.     End Sub
   
8.     Private Sub Window1_Loaded(ByVal sender As Object, ByVal e As System.Windows.RoutedEventArgs) Handles Me.Loaded
   
9.         Me.Title = "Vary the background"
   
10.         Me.Background = Brush
    
11.     End Sub
    
12.     Private Sub Window1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Input.MouseEventArgs) Handles Me.MouseMove
    
13.         Dim H As Double = ActualHeight - 2 * SystemParameters.ResizeFrameHorizontalBorderHeight
    
14.         Dim W As Double = ActualWidth - 2 * SystemParameters.ResizeFrameVerticalBorderWidth
    
15.         Dim ptMouse As New Point
    
16.         ptMouse = e.GetPosition(Me)
    
17.         Dim ptCenter As New Point(W / 2, H / 2)
    
18.         Dim vectMouse As Vector = ptMouse - ptCenter
    
19.         Dim Angle As Double = Math.Atan2(vectMouse.Y, vectMouse.X)
    
20.         Dim vectEllipse As New Vector(W / 2 * Math.Cos(Angle), H / 2 * Math.Sin(Angle))
    
21.         Dim byLevel As Byte = (255 * (1 - Math.Min(1, vectMouse.Length / vectEllipse.Length)))
    
22.         Dim Clr As Color = Brush.Color
    
23.         Clr.R = byLevel
    
24.         Clr.G = byLevel
    
25.         Clr.B = byLevel
    
26.         Brush.Color = Clr
    
27.     End Sub
    
28. End Class

複製代碼

bauann

*Note 本篇使用的開發工具為Visual Studio 2008(.Net framework版本為3.0
在以往要取得長、寬的部分我們會很自然的想到要用Height跟Width屬性，在WPF中建議您用ActualHeight與ActualWidth這兩個屬性(這兩個屬性都是唯讀的)，您可以用VS2008開一個新的WPF應用程式專案，之後用下面程式碼來測試

1. Private Sub Window1_SizeChanged(ByVal sender As Object, ByVal e As System.Windows.SizeChangedEventArgs) Handles Window1.SizeChanged
   
2.         Me.Title = "Height:" & Me.ActualHeight & " Width:" & Me.ActualWidth
   
3.         'Me.Title = "Height:" & Me.Height & " Width:" & Me.Width
   
4.     End Sub

複製代碼

在改變視窗大小的時候，兩種方式都可以正確的顯示目前的大小，但是當我按下最大化按鈕的時候，直接抓Height與Width的部分確不會反應出變化。

bauann

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

1. ''宣告Timer物件
   
2.     Dim myT As Threading.DispatcherTimer
   
3.     ''宣告Image物件
   
4.     Dim img As Image
   
5.     Dim B As BitmapImage
   
6.     Dim ImagePath() As String
   
7.     Dim Count As Integer = 0
   
8.     Dim u As Uri
   
9.     Dim R As New Random
   
10.     Private Sub Window1_Loaded(ByVal sender As Object, ByVal e As System.Windows.RoutedEventArgs) Handles Me.Loaded
    
11.         ''設定標題列文字
    
12.         Me.Title = "WPF Text"
    
13.         ''取得圖片檔案路徑
    
14.         ImagePath = IO.Directory.GetFiles("D:\圖檔\JPG\App","*.jpg")
    
15.         u = New Uri(ImagePath(0))
    
16.         B = New BitmapImage
    
17.         B.BeginInit()
    
18.         B.UriSource = u
    
19.         B.EndInit()
    
20.         img = New Image
    
21.         img.Source = B
    
22.         img.Stretch = Stretch.UniformToFill
    
23.         Me.Content = img
    
24.         ''Timer相關設定
    
25.         myT = New Threading.DispatcherTimer
    
26.         myT.Interval = New TimeSpan(0, 0, 1)
    
27.         AddHandler myT.Tick, AddressOf Timer_Tick
    
28.         myT.Start()
    
29.     End Sub
    
30.     Private Sub Timer_Tick(ByVal sender As Object, ByVal e As EventArgs)
    
31.         On Error Resume Next
    
32.         If (Count + 1) > (ImagePath.Length - 1) Then
    
33.             Count = 0
    
34.         Else
    
35.             Count += 1
    
36.         End If
    
37.         u = New Uri(ImagePath(Count))
    
38.         B = New BitmapImage
    
39.         B.BeginInit()
    
40.         B.UriSource = u
    
41.         B.EndInit()
    
42.         img.Source = B
    
43.         ''亂數旋轉圖片的角度
    
44.          Randomize()
    
45.         img.LayoutTransform = New RotateTransform(R.Next(1, 100))
    
46.     End Sub

複製代碼

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

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

bauann

前面我們測試過幾篇有關WPF的應用程式，不知道有沒有發現，我們沒有辦法指定兩個以上的東西(物件)給Content屬性，WIndow的COntent、Button的Content等等，那怎麼辦呢？總不能用來用去都是使用一個東東而已吧..所以接下來我們要測試一些有關"容器"的部分，在WPF中有下面幾種容器

• StackPanel
• WrapPanel
• DockPanel
• Grid
• Cancas

，這篇只會提到StackPanel的部分，有興趣的朋友可以先自行測試看看，或是到MSDN去看看相關細節；好，下面來看看測試的程式碼吧

1. Dim sp As StackPanel
   
2.     Dim rnd As Random
   
3.    
   
4.     Private Sub Window1_Loaded(ByVal sender As Object, ByVal e As System.Windows.RoutedEventArgs) Handles Me.Loaded
   
5.         rnd = New Random()
   
6.         sp = New StackPanel
   
7.         sp.Background = Brushes.AliceBlue
   
8.         Me.Content = sp
   
9.         For i As Integer = 1 To 9
   
10.             Dim btn = New Button
    
11.             btn.Name = "Button" & i
    
12.             btn.FontFamily = New FontFamily("Consola")
    
13.             Randomize()
    
14.             btn.FontSize = rnd.Next(10, 25)
    
15.             ''用 "_" 設定當按下"alt"按鍵時出現的"快速鍵提示字"
    
16.             btn.C & i
    
17.             ''設定按鈕間的間隔
    
18.             btn.Margin = New Thickness(5)
    
19.             ''可以將下面兩行程式碼註解看看不同的地方
    
20.             btn.HorizontalAlignment = Windows.HorizontalAlignment.Center
    
21.             btn.VerticalAlignment = Windows.VerticalAlignment.Center
    
22.             AddHandler btn.Click, AddressOf Button_Click
    
23.             sp.Children.Add(btn)
    
24.         Next
    
25.         Me.SizeToContent = Windows.SizeToContent.WidthAndHeight
    
26.         ''將下面程式碼註解掉並改變視窗大小，看看結果有何不同
    
27.         Me.ResizeMode = Windows.ResizeMode.CanMinimize
    
28.     End Sub
    
29.     Private Sub Button_Click(ByVal sender As Object, ByVal e As RoutedEventArgs)
    
30.         MessageBox.Show(CType(sender, Button).Name)
    
31.         If sp.Orientation = Orientation.Horizontal Then
    
32.             sp.Orientation = Orientation.Vertical
    
33.         Else
    
34.             sp.Orientation = Orientation.Horizontal
    
35.         End If
    
36.     End Sub

複製代碼

程式執行之後可以看到StackPanel是以水平或是垂直的方向來排列控制項，這就是這個容器的特性了，其中我們在設定Button的屬性時有用到底線( _ )，程式執行的時候按下"alt"按鍵，你可以看到數字鍵的下面都出現了底線，按下"alt+1"，就可以直接觸發Button1的Click事件了。

bauann

Note:本篇開發工具使用VS2008，.net framework版本3.5
雖然XAML Code還不會但是還是很想嘗試看看WPF 3D的功能，在WIndowsClient看了Building an Interactive 3D Video Player的範例，實在是手很癢..於是乎就照著範例測試了一下，不過其中播放影片的那個UserControl的XAML Code我沒有阿..殘念，沒關係，我用老朋友Button來測試，嘿嘿..
首先要到CodePlex下載3DTools的Dll檔，上面有bin(編譯好的)，或是scr(未編譯的)，看你是想要用哪一種，檔案準備好了之後，把它加到我們專案的參考進來，下面我們就看看XAML Code吧

1. <Window
   
2.     xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
   
3.     xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
   
4.     xmlns:Inter3D="clr-namespace:_3DTools;assembly=3DTools"
   
5.     x:Class="Window1"
   
6.     Title="Window1" Height="346" Width="469">
   
7.     <Window.Resources>
   
8.         <MeshGeometry3D x:Key="palnMesh" Positions="-1,-1,0 1,-1,0 1,1,0 -1,1,0" TextureCoordinates="0,1 1,1 1,0 0,0" TriangleIndices="0 1 2 0 2 3" />
   
9.     </Window.Resources>
   
10.     <Grid>
    
11.         <Inter3D:TrackballDecorator>
    
12.             <Inter3D:Interactive3DDecorator>
    
13.         <Viewport3D>
    
14.             <Viewport3D.Camera>
    
15.                 <PerspectiveCamera Position="1,1,10" LookDirection="0,0,-1"></PerspectiveCamera>
    
16.             </Viewport3D.Camera>
    
17.             
    
18.             <ModelVisual3D>
    
19.                 <ModelVisual3D.Content>
    
20.                     <AmbientLight/>
    
21.                 </ModelVisual3D.Content>      
    
22.              </ModelVisual3D>
    
23. 
    
24.              <Inter3D:InteractiveVisual3D  Geometry="{StaticResource palnMesh}">
    
25.                 <Inter3D:InteractiveVisual3D.Visual>
    
26.                             <Button Content="Cleck Me" />
    
27.                         </Inter3D:InteractiveVisual3D.Visual>
    
28.             </Inter3D:InteractiveVisual3D>
    
29.         </Viewport3D>
    
30.         </Inter3D:Interactive3DDecorator>
    
31.         </Inter3D:TrackballDecorator>
    
32.         
    
33.     </Grid>
    
34. </Window>

複製代碼

這邊可以下載VS2008的專案檔來看

執行程式之後，你可以按著滑鼠左鍵，然後移動滑鼠(嘿嘿..我的button會旋轉耶..)，或是右鍵，可以拉近拉遠，很炫吧。
其中我們看看下面這幾行

1. xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
   
2.    xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
   
3.     xmlns:Inter3D="clr-namespace:_3DTools;assembly=3DTools"

複製代碼

上面兩行是預設引入的，Inter3D是加上去的，這感覺像是引入(Imports)命名空間的感覺，有加進來的話才會有相關功能可以用，好啦，不多說了，馬上動手去測試看看吧。
另外Button的部分我們也可以改成下面這樣，也可以放影片喔

1. <MEDIAELEMENT Source="D:\blendButton.wmv" />

複製代碼

bauann

這篇我們來測試一下第二個"容器"，WrapPanel，它是怎麼來幫我們做排版的動作呢？
千言萬語勝不過按一下"F5"，讓我們直接瞧瞧程式碼吧

1. Dim wp As WrapPanel
   
2.     Private Sub Window1_Loaded(ByVal sender As Object, ByVal e As System.Windows.RoutedEventArgs) Handles Me.Loaded
   
3.         Dim wp As New WrapPanel
   
4.         wp.Background = Brushes.AliceBlue
   
5.         Me.Title = "Test WrapPanel"
   
6.         Me.Content = wp
   
7.         For z As Integer = 0 To 25
   
8.             Dim btn As New Button
   
9.             btn.Name = "Button" & z
   
10.             btn.Content = "Button _" & Chr(&H41 + z)
    
11.             btn.VerticalAlignment = Windows.VerticalAlignment.Center
    
12.             btn.HorizontalAlignment = Windows.HorizontalAlignment.Center
    
13.             AddHandler btn.Click, AddressOf Button_Click
    
14.             wp.Children.Add(btn)
    
15.         Next
    
16.     End Sub
    
17.     Private Sub Button_Click(ByVal sender As Object, ByVal e As RoutedEventArgs)
    
18.         MessageBox.Show(CType(e.Source, Button).Content.ToString)
    
19.     End Sub

複製代碼

[ 本帖最後由 bauann 於 2008-3-24 20:35 編輯 ]

路人甲

感謝bauann 大大給我們這麼好的資料,我去msdn看了一下
一些範例,例如,同心圓範例
可惜的是C#,我將之改成為 vb, 有興趣的人研究研究
http://msdn2.microsoft.com/zh-tw/library/ms771460.aspx 為原載點

Xaml code

1. 
   
2. 
   
3. <Window x:Class="Window1"
   
4.     xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
   
5.     xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
   
6.     Title="Concentric Rings" Width="800" Height="512">
   
7.     <Canvas Name="MainCanvas" Background="#FFE0E0E0"/>
   
8. </Window>
   

複製代碼

vb code

1. 
   
2. Option Strict On
   
3. Option Explicit On
   
4. Imports System
   
5. Imports System.Windows
   
6. Imports System.Windows.Controls
   
7. Imports System.Windows.Data
   
8. Imports System.Windows.Documents
   
9. Imports System.Windows.Media
   
10. Imports System.Windows.Shapes
    
11. Imports System.Windows.Media.Animation
    
12. Public Class Window1
    
13.     Private frameTimer As System.Windows.Threading.DispatcherTimer
    
14.     Private rand As Random
    
15.     Public Sub New()
    
16.         ' 此為 Windows Form 設計工具所需的呼叫。
    
17.         InitializeComponent()
    
18.         ' 在 InitializeComponent() 呼叫之後加入任何初始設定。
    
19.         With Me
    
20.             .WindowState = Windows.WindowState.Maximized
    
21.             .WindowStyle = Windows.WindowStyle.None
    
22.             .ResizeMode = Windows.ResizeMode.NoResize
    
23.             .frameTimer = New System.Windows.Threading.DispatcherTimer
    
24.             With .frameTimer
    
25.                 .Interval = TimeSpan.FromTicks(CType(5 * 10 ^ 6, Long))
    
26.                 AddHandler .Tick, AddressOf trOnTick
    
27.                 .Start()
    
28.             End With
    
29.             .rand = New Random(100)
    
30.         End With
    
31.     End Sub
    
32.     Private Sub trOnTick(ByVal sender As Object, ByVal e As EventArgs)
    
33.         Me.CreateCircles()
    
34.     End Sub
    
35.     Private Sub Window1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Input.KeyEventArgs) Handles Me.KeyDown
    
36.         If (e.Key = System.Windows.Input.Key.Escape) Then Me.Close()
    
37.     End Sub
    
38. 
    
39.     Private Sub CreateCircles()
    
40.         Dim centerX As Double = Me.MainCanvas.ActualWidth / 2.0
    
41.         Dim centerY As Double = Me.MainCanvas.ActualHeight / 2.0
    
42.         Dim myColors() As Color = {Colors.White, Colors.Green, Colors.Green, Colors.Lime}
    
43.   
    
44.         Dim e As New Ellipse()
    
45.         Dim alpha As Byte = CType(rand.Next(96, 192), Byte)
    
46.         Dim colorIndex As Int32 = rand.Next(4)
    
47.         e.Stroke = New SolidColorBrush(Color.FromArgb(alpha, myColors(colorIndex).R, _
    
48.                                             myColors(colorIndex).G, myColors(colorIndex).B))
    
49.         e.StrokeThickness = rand.Next(1, 4)
    
50.         e.Width = 0.0
    
51.         e.Height = 0.0
    
52.         Dim offsetX As Double = 16 - rand.Next(32)
    
53.         Dim offsetY As Double = 16 - rand.Next(32)
    
54.         Me.MainCanvas.Children.Add(e)
    
55.         e.SetValue(Canvas.LeftProperty, centerX + offsetX)
    
56.         e.SetValue(Canvas.TopProperty, centerY + offsetY)
    
57.         Dim duration As Double = 6.0 + 3 * rand.NextDouble()
    
58.         Dim delay As Double = 16.0 * rand.NextDouble()
    
59.         Dim offsetTransform As TranslateTransform = New TranslateTransform()
    
60.         Dim offsetXAnimation As DoubleAnimation = New DoubleAnimation(0.0, -256.0, New Duration(TimeSpan.FromSeconds(duration)))
    
61.         offsetXAnimation.BeginTime = TimeSpan.FromSeconds(delay)
    
62.         offsetTransform.BeginAnimation(TranslateTransform.XProperty, offsetXAnimation)
    
63.         offsetTransform.BeginAnimation(TranslateTransform.YProperty, offsetXAnimation)
    
64.         e.RenderTransform = offsetTransform
    
65. 
    
66.         Dim SizeAnimation As DoubleAnimation = New DoubleAnimation(0.0, 512.0, New Duration(TimeSpan.FromSeconds(duration)))
    
67.         SizeAnimation.BeginTime = TimeSpan.FromSeconds(delay)
    
68.         e.BeginAnimation(Ellipse.WidthProperty, SizeAnimation)
    
69.         e.BeginAnimation(Ellipse.HeightProperty, SizeAnimation)
    
70.         Dim opacityAnimation As DoubleAnimation = New DoubleAnimation(duration - 1.0, 0.0, New Duration(TimeSpan.FromSeconds(duration)))
    
71.         opacityAnimation.BeginTime = TimeSpan.FromSeconds(delay)
    
72.         e.BeginAnimation(Ellipse.OpacityProperty, opacityAnimation)
    
73.     End Sub
    
74. 
    
75. End Class

複製代碼

路人甲

1. Option Strict On
   
2. Option Explicit On
   
3. Imports System
   
4. Imports System.Windows
   
5. Imports System.Windows.Controls
   
6. Imports System.Windows.Data
   
7. Imports System.Windows.Documents
   
8. Imports System.Windows.Media
   
9. Imports System.Windows.Shapes
   
10. Imports System.Windows.Media.Animation
    
11. Public Class Window1
    
12. Private rand As Random
    
13. Public Sub New()
    
14. ' 此為 Windows Form 設計工具所需的呼叫。
    
15. InitializeComponent()
    
16. ' 在 InitializeComponent() 呼叫之後加入任何初始設定。
    
17. With Me
    
18. .WindowState = Windows.WindowState.Maximized
    
19. .WindowStyle = Windows.WindowStyle.None
    
20. .ResizeMode = Windows.ResizeMode.NoResize
    
21. .rand = New Random(100)
    
22. .Show()
    
23. End With
    
24. Me.CreateCircles()
    
25. End Sub
    
26. Private Sub Window1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Input.KeyEventArgs) Handles Me.KeyDown
    
27. If (e.Key = System.Windows.Input.Key.Escape) Then Me.Close()
    
28. End Sub
    
29. 
    
30. Private Sub CreateCircles()
    
31. Dim centerX As Double = Me.MainCanvas.ActualWidth / 2.0
    
32. Dim centerY As Double = Me.MainCanvas.ActualHeight / 2.0
    
33. Dim myColors() As Color = {Colors.White, Colors.Green, Colors.Green, Colors.Lime}
    
34. 
    
35. For i As Int32 = 0 To 20
    
36. Dim e As New Ellipse()
    
37. Dim alpha As Byte = CType(rand.Next(96, 192), Byte)
    
38. Dim colorIndex As Int32 = rand.Next(4)
    
39. e.Stroke = New SolidColorBrush(Color.FromArgb(alpha, myColors(colorIndex).R, _
    
40. myColors(colorIndex).G, myColors(colorIndex).B))
    
41. e.StrokeThickness = rand.Next(1, 4)
    
42. e.Width = 0.0
    
43. e.Height = 0.0
    
44. Dim offsetX As Double = 16 - rand.Next(32)
    
45. Dim offsetY As Double = 16 - rand.Next(32)
    
46. Me.MainCanvas.Children.Add(e)
    
47. e.SetValue(Canvas.LeftProperty, centerX + offsetX)
    
48. e.SetValue(Canvas.TopProperty, centerY + offsetY)
    
49. Dim duration As Double = 6.0 + 3 * rand.NextDouble()
    
50. Dim delay As Double = 16.0 * rand.NextDouble()
    
51. Dim offsetTransform As TranslateTransform = New TranslateTransform()
    
52. Dim offsetXAnimation As DoubleAnimation = New DoubleAnimation(0.0, -256.0, New Duration(TimeSpan.FromSeconds(duration)))
    
53. offsetXAnimation.RepeatBehavior = RepeatBehavior.Forever
    
54. 
    
55. offsetXAnimation.BeginTime = TimeSpan.FromSeconds(delay)
    
56. offsetTransform.BeginAnimation(TranslateTransform.XProperty, offsetXAnimation)
    
57. offsetTransform.BeginAnimation(TranslateTransform.YProperty, offsetXAnimation)
    
58. e.RenderTransform = offsetTransform
    
59. 
    
60. Dim SizeAnimation As DoubleAnimation = New DoubleAnimation(0.0, 512.0, New Duration(TimeSpan.FromSeconds(duration)))
    
61. SizeAnimation.RepeatBehavior = RepeatBehavior.Forever
    
62. 
    
63. SizeAnimation.BeginTime = TimeSpan.FromSeconds(delay)
    
64. e.BeginAnimation(Ellipse.WidthProperty, SizeAnimation)
    
65. e.BeginAnimation(Ellipse.HeightProperty, SizeAnimation)
    
66. Dim opacityAnimation As DoubleAnimation = New DoubleAnimation(duration - 1.0, 0.0, New Duration(TimeSpan.FromSeconds(duration)))
    
67. opacityAnimation.BeginTime = TimeSpan.FromSeconds(delay)
    
68. opacityAnimation.RepeatBehavior = RepeatBehavior.Forever
    
69. 
    
70. e.BeginAnimation(Ellipse.OpacityProperty, opacityAnimation)
    
71. Next i
    
72. End Sub
    
73. 
    
74. End Class

複製代碼

或許MSDN減少更動比較好,感覺上效能較好
不過,我的電腦經此一測試後,感覺應要換了吧
家中的電腦  amd 1ghz 的跑起來 圓畫多的時候 CPU使用率 100% 還卡卡的跑不太動
拿到公司一測
INTEL CORE 2 DUO E6750 2.66GHZ,  跑起來 CPU 使用率只有1x%到3x%
怎麼差這麼多,電腦要拿去丟掉了

路人甲

http://msdn2.microsoft.com/zh-tw/library/ms771362.aspx
此為計算機範例
我仍然再將之翻譯為vb
首先我們仍有 Xaml code

1. 
   
2. <Window x:Class="Window1"
   
3.     xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
   
4.     xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
   
5.     Title="WPF Calculator"
   
6.     Height="400"
   
7.     Width="600"
   
8.     ResizeMode="CanMinimize"  
   
9.         Icon="AppIcon.ico"
   
10.     TextInput="OnWindowKeyDown" Name="Window1">
    
11. 
    
12.     <DockPanel Name="MyPanel">
    
13.         <Menu  DockPanel.Dock="Top" Height="26">
    
14.             <MenuItem Header="File" Name="MenuItem1">
    
15.                 <MenuItem Click="OnMenuExit" Header="Exit"/>
    
16.             </MenuItem>
    
17.             <MenuItem Header="View" Name="MenuItem2">
    
18.                 <MenuItem Name="StandardMenu" Click="OnMenuStandard" IsCheckable="true" IsChecked="True" Header="Standard"/>
    
19.             </MenuItem>
    
20.             <MenuItem Header="Help" Name="MenuItem3">
    
21.                 <MenuItem  Click="OnMenuAbout" Header="About"/>
    
22.             </MenuItem>
    
23.         </Menu>
    
24.         <Grid Name="MyGrid" Background="Wheat"  ShowGridLines="False">
    
25.             <Grid.Resources >
    
26.                 <Storyboard x:Key="playStoryboard">
    
27.                     <DoubleAnimation From="50"  To="40" Duration="0:0:0.25" RepeatBehavior="1x" AutoReverse="True" Storyboard.TargetName="TB" Storyboard.TargetProperty="(Ellipse.Height)"/>
    
28.                     <DoubleAnimation From="50"  To="44" Duration="0:0:0.25" RepeatBehavior="1x" AutoReverse="True" Storyboard.TargetName="TB" Storyboard.TargetProperty="(Ellipse.Width)"/>
    
29.                 </Storyboard>
    
30.                 <Style x:Key="DigitBtn"  TargetType="{x:Type Button}">
    
31.                     <Setter Property="Focusable" Value="False"/>
    
32.                     <Setter Property="FontSize" Value="14pt"/>
    
33.                     <Setter Property="Margin" Value="0"/>
    
34.                     <Setter Property="Template">
    
35.                         <Setter.Value>
    
36.                             <ControlTemplate TargetType="{x:Type Button}">
    
37.                                 <Grid Width="60" Height="50">
    
38.                                     <Ellipse Width="57" Height="49" x:Name="TB"  StrokeThickness="1"
    
39.                            Stroke="{TemplateBinding Foreground}" Fill="{TemplateBinding Background}"
    
40.                            HorizontalAlignment="Center" VerticalAlignment="Center" />
    
41.                                     <ContentPresenter Content="{TemplateBinding Content}" HorizontalAlignment="Center"
    
42.                     VerticalAlignment="Center"/>
    
43.                                 </Grid>
    
44.                                 <ControlTemplate.Triggers>
    
45.                                     <Trigger Property="IsMouseOver" Value="true">
    
46.                                         <Setter TargetName="TB" Property="Ellipse.Fill" Value="Lightblue" />
    
47.                                     </Trigger>
    
48.                                     <Trigger Property="IsPressed" Value="true">
    
49.                                         <Setter TargetName="TB" Property="Ellipse.Fill" Value="Blue" />
    
50.                                     </Trigger>
    
51. 
    
52.                                     <EventTrigger RoutedEvent="ButtonBase.Click">
    
53.                                         <EventTrigger.Actions>
    
54.                                             <BeginStoryboard Name="playStoryboard" Storyboard="{StaticResource playStoryboard}"/>
    
55.                                         </EventTrigger.Actions>
    
56.                                     </EventTrigger>
    
57.                                 </ControlTemplate.Triggers>
    
58.                             </ControlTemplate>
    
59.                         </Setter.Value>
    
60.                     </Setter>
    
61.                 </Style>
    
62.             </Grid.Resources>
    
63.             <Grid.ColumnDefinitions>
    
64.                 <ColumnDefinition/>
    
65.                 <ColumnDefinition/>
    
66.                 <ColumnDefinition/>
    
67.                 <ColumnDefinition/>
    
68.                 <ColumnDefinition/>
    
69.                 <ColumnDefinition/>
    
70.                 <ColumnDefinition/>
    
71.                 <ColumnDefinition/>
    
72.                 <ColumnDefinition/>
    
73.             </Grid.ColumnDefinitions>
    
74.             <Grid.RowDefinitions>
    
75.                 <RowDefinition Height="56*" />
    
76.                 <RowDefinition Height="56*" />
    
77.                 <RowDefinition Height="56*" />
    
78.                 <RowDefinition Height="56*" />
    
79.                 <RowDefinition Height="40*" />
    
80.                 <RowDefinition Height="16*" />
    
81.                 <RowDefinition Height="56*" />
    
82.             </Grid.RowDefinitions>
    
83.             <Button Name="B7" Click="DigitBtn_Click" Style="{StaticResource DigitBtn}" Grid.Column="4" Grid.Row="2">7</Button>
    
84.             <Button Name="B8" Click="DigitBtn_Click" Style="{StaticResource DigitBtn}" Grid.Column="5" Grid.Row="2">8</Button>
    
85.             <Button Name="B9" Click="DigitBtn_Click" Style="{StaticResource DigitBtn}" Grid.Column="6" Grid.Row="2">9</Button>
    
86.             <Button Name="B4" Click="DigitBtn_Click" Style="{StaticResource DigitBtn}" Grid.Column="4" Grid.Row="3" >4</Button>
    
87.             <Button Name="B5" Click="DigitBtn_Click" Style="{StaticResource DigitBtn}" Grid.Column="5" Grid.Row="3" >5</Button>
    
88.             <Button Name="B6" Click="DigitBtn_Click" Style="{StaticResource DigitBtn}" Grid.Column="6" Grid.Row="3" >6</Button>
    
89. 
    
90.             <Button Name="B1" Click="DigitBtn_Click" Style="{StaticResource DigitBtn}" Grid.Column="4" Grid.Row="4" Grid.RowSpan="2">1</Button>
    
91.             <Button Name="B2" Click="DigitBtn_Click" Style="{StaticResource DigitBtn}" Grid.Column="5" Grid.Row="4" Grid.RowSpan="2">2</Button>
    
92.             <Button Name="B3" Click="DigitBtn_Click" Style="{StaticResource DigitBtn}" Grid.Column="6" Grid.Row="4" Grid.RowSpan="2">3</Button>
    
93.             <Button Name="B0" Click="DigitBtn_Click" Style="{StaticResource DigitBtn}" Grid.Column="4" Grid.Row="6" >0</Button>
    
94.             <Button Name="BPeriod" Click="DigitBtn_Click" Style="{StaticResource DigitBtn}" Grid.Column="5" Grid.Row="6" >.</Button>
    
95.             <Button Name="BPM"        Click="OperBtn_Click" Background="Darkgray" Style="{StaticResource DigitBtn}"  Grid.Column="6" Grid.Row="6" >+/-</Button>
    
96.             <Button Name="BDevide"    Click="OperBtn_Click" Background="Darkgray" Style="{StaticResource DigitBtn}" Grid.Column="7" Grid.Row="2" >/</Button>
    
97.             <Button Name="BMultiply"  Click="OperBtn_Click" Background="Darkgray" Style="{StaticResource DigitBtn}"  Grid.Column="7" Grid.Row="3" >*</Button>
    
98.             <Button Name="BMinus"  Click="OperBtn_Click" Background="Darkgray" Style="{StaticResource DigitBtn}"  Grid.Column="7" Grid.Row="4" Grid.RowSpan="2">-</Button>
    
99.             <Button Name="BPlus"      Click="OperBtn_Click" Background="Darkgray" Style="{StaticResource DigitBtn}"  Grid.Column="7" Grid.Row="6" >+</Button>
    
100. 
     
101.             <Button Name="BSqrt"    Click="OperBtn_Click" Background="Darkgray" Style="{StaticResource DigitBtn}"  Grid.Column="8" Grid.Row="2"   ToolTip="Usage: 'A Sqrt'" >Sqrt</Button>
     
102.             <Button Name="BPercent"   Click="OperBtn_Click" Background="Darkgray" Style="{StaticResource DigitBtn}"  Grid.Column="8" Grid.Row="3"   ToolTip="Usage: 'A % B ='" >%</Button>
     
103.             <Button Name="BOneOver"   Click="OperBtn_Click" Background="Darkgray" Style="{StaticResource DigitBtn}"  Grid.Column="8" Grid.Row="4"   ToolTip="Usage: 'A 1/X'" Grid.RowSpan="2">1/X</Button>
     
104.             <Button Name="BEqual"   Click="OperBtn_Click" Background="Darkgray" Style="{StaticResource DigitBtn}"  Grid.Column="8" Grid.Row="6" >=</Button>
     
105. 
     
106.             <Button Name="BC"  Click="OperBtn_Click" Background="Darkgray" Style="{StaticResource DigitBtn}"  Grid.Column="8" Grid.Row="1" Grid.ColumnSpan="1" ToolTip="Clear All">C</Button>
     
107.             <Button Name="BCE" Click="OperBtn_Click" Background="Darkgray" Style="{StaticResource DigitBtn}"  Grid.Column="7" Grid.Row="1" Grid.ColumnSpan="1"  ToolTip="Clear Current Entry">CE</Button>
     
108. 
     
109.             <Button Name="BMemClear"    Click="OperBtn_Click" Background="Darkgray" Style="{StaticResource DigitBtn}"  Grid.Column="3" Grid.Row="2"  ToolTip="Clear Memory" >MC</Button>
     
110.             <Button Name="BMemRecall"   Click="OperBtn_Click" Background="Darkgray" Style="{StaticResource DigitBtn}"  Grid.Column="3" Grid.Row="3"  ToolTip="Recall Memory">MR</Button>
     
111.             <Button Name="BMemSave"    Click="OperBtn_Click" Background="Darkgray" Style="{StaticResource DigitBtn}"  Grid.Column="3" Grid.Row="4"  ToolTip="Store in Memory" Grid.RowSpan="2">MS</Button>
     
112.             <Button Name="BMemPlus"    Click="OperBtn_Click" Background="Darkgray" Style="{StaticResource DigitBtn}"  Grid.Column="3" Grid.Row="6"  ToolTip="Add To Memory">M+</Button>
     
113.             <TextBlock  Name="BMemBox" Grid.Column="3" Grid.Row="1" Margin="10,17,10,17" Grid.ColumnSpan="2">Memory: [empty]</TextBlock>
     
114.         </Grid>
     
115.     </DockPanel>
     
116. </Window>
     
117. 
     

複製代碼

然後記得將appicon.ico這個小圖檔給加入專案,並要把建置動作變為Resource

再來新增一個 類別庫檔名為MyTextBox.vb
並在其中加入程式碼

1. Imports System
   
2. Imports System.Collections.Generic
   
3. Imports System.Text
   
4. Imports System.Windows.Input
   
5. 
   
6. Class MyTextBox
   
7. Inherits TextBox
   
8. Protected Overrides Sub OnPreviewGotKeyboardFocus(ByVal e As System.Windows.Input.KeyboardFocusChangedEventArgs)
   
9. e.Handled = True
   
10. MyBase.OnPreviewGotKeyboardFocus(e)
    
11. End Sub
    
12. End Class

複製代碼

最後仍是我們的主要程式碼在window1中

1. 
   
2. 
   
3. Option Strict On
   
4. Option Explicit On
   
5. 
   
6. Imports System
   
7. Imports System.Windows
   
8. Imports System.Windows.Controls
   
9. Imports System.Windows.Data
   
10. Imports System.Windows.Documents
    
11. Imports System.Windows.Media
    
12. Imports System.Windows.Shapes
    
13. Imports System.Windows.Media.Animation
    
14. 
    
15. Public Class Window1
    
16. 
    
17. 
    
18. Shared DisplayBox As MyTextBox
    
19. Shared PaperBox As MyTextBox
    
20. Shared Paper As PaperTrail
    
21. 
    
22. Private LastOper As Operation
    
23. 
    
24. Public Sub New()
    
25. 
    
26. ' 此為 Windows Form 設計工具所需的呼叫。
    
27. InitializeComponent()
    
28. 
    
29. ' 在 InitializeComponent() 呼叫之後加入任何初始設定。
    
30. DisplayBox = New MyTextBox()
    
31. Grid.SetRow(DisplayBox, 0)
    
32. Grid.SetColumn(DisplayBox, 0)
    
33. Grid.SetColumnSpan(DisplayBox, 9)
    
34. 
    
35. DisplayBox.Height = 30
    
36. MyGrid.Children.Add(DisplayBox)
    
37. 
    
38. PaperBox = New MyTextBox()
    
39. Grid.SetRow(PaperBox, 1)
    
40. Grid.SetColumn(PaperBox, 0)
    
41. Grid.SetColumnSpan(PaperBox, 3)
    
42. Grid.SetRowSpan(PaperBox, 5)
    
43. PaperBox.IsReadOnly = True
    
44. PaperBox.VerticalScrollBarVisibility = ScrollBarVisibility.Visible
    
45. PaperBox.Margin = New Thickness(3.0, 1.0, 1.0, 1.0)
    
46. PaperBox.HorizontalScrollBarVisibility = ScrollBarVisibility.Auto
    
47. 
    
48. Paper = New PaperTrail()
    
49. 
    
50. MyGrid.Children.Add(PaperBox)
    
51. ProcessKey("0"c)
    
52. EraseDisplay = True
    
53. 
    
54. 
    
55. End Sub
    
56. 
    
57. Private Enum Operation
    
58. 
    
59. None
    
60. Devide
    
61. Multiply
    
62. Subtract
    
63. Add
    
64. Percent
    
65. Sqrt
    
66. OneX
    
67. Negate
    
68. End Enum
    
69. 
    
70. 
    
71. Private _erasediplay As Boolean
    
72. Private Property EraseDisplay() As Boolean
    
73. Get
    
74. Return _erasediplay
    
75. End Get
    
76. Set(ByVal value As Boolean)
    
77. _erasediplay = value
    
78. End Set
    
79. End Property
    
80. 
    
81. Private _mem_val As String
    
82. Private Property Memory() As Double
    
83. Get
    
84. If (_mem_val = String.Empty) Then
    
85. Return 0.0
    
86. Else
    
87. Return Convert.ToDouble(_mem_val)
    
88. End If
    
89. End Get
    
90. Set(ByVal value As Double)
    
91. _mem_val = value.ToString()
    
92. End Set
    
93. End Property
    
94. Private _last_val As String
    
95. Private Property LastValue() As String
    
96. Get
    
97. If (_last_val = String.Empty) Then Return "0"
    
98. 
    
99. Return _last_val
    
100. 
     
101. End Get
     
102. Set(ByVal value As String)
     
103. _last_val = value
     
104. End Set
     
105. End Property
     
106. 
     
107. Private _display As String
     
108. Private Property Display() As String
     
109. Get
     
110. Return _display
     
111. End Get
     
112. Set(ByVal value As String)
     
113. _display = value
     
114. End Set
     
115. End Property
     
116. 
     
117. Private Sub OnWindowKeyDown(ByVal sender As Object, ByVal e As System.Windows.Input.TextCompositionEventArgs)
     
118. 
     
119. Dim s As String = e.Text
     
120. Dim c As Char = (s.ToCharArray)(0)
     
121. e.Handled = True
     
122. 
     
123. If ((AscW(c) >= AscW("0"c) AndAlso AscW(c) <= AscW("9"c)) OrElse c = "."c OrElse c = vbBack) Then
     
124. 
     
125. ProcessKey(c)
     
126. Return
     
127. End If
     
128. 
     
129. Select Case (c)
     
130. 
     
131. Case "+"c
     
132. ProcessOperation("BPlus")
     
133. Case "-"c
     
134. ProcessOperation("BMinus")
     
135. Case "*"c
     
136. ProcessOperation("BMultiply")
     
137. Case "/"c
     
138. ProcessOperation("BDevide")
     
139. Case "%"c
     
140. ProcessOperation("BPercent")
     
141. Case "="c
     
142. ProcessOperation("BEqual")
     
143. 
     
144. End Select
     
145. 
     
146. End Sub
     
147. 
     
148. Private Sub DigitBtn_Click(ByVal sender As Object, ByVal e As RoutedEventArgs)
     
149. 
     
150. Dim s As String = (DirectCast(sender, Button)).Content.ToString()
     
151. 
     
152. 
     
153. Dim ids() As Char = s.ToCharArray()
     
154. ProcessKey(ids(0))
     
155. End Sub
     
156. 
     
157. 
     
158. 
     
159. Private Sub ProcessKey(ByVal c As Char)
     
160. If (EraseDisplay) Then
     
161. Display = String.Empty
     
162. EraseDisplay = False
     
163. End If
     
164. 
     
165. AddToDisplay(c)
     
166. 
     
167. End Sub
     
168. 
     
169. Private Sub ProcessOperation(ByVal s As String)
     
170. 
     
171. Dim d As Double = 0.0
     
172. 
     
173. Select Case s
     
174. 
     
175. Case "BPM"
     
176. LastOper = Operation.Negate
     
177. LastValue = Display
     
178. CalcResults()
     
179. LastValue = Display
     
180. EraseDisplay = True
     
181. LastOper = Operation.None
     
182. Case "BDevide"
     
183. 
     
184. If (EraseDisplay) Then 'stil wait for a digit...
     
185. 'stil wait for a digit...
     
186. LastOper = Operation.Devide
     
187. Else
     
188. CalcResults()
     
189. LastOper = Operation.Devide
     
190. LastValue = Display
     
191. EraseDisplay = True
     
192. End If
     
193. 
     
194. Case "BMultiply"
     
195. 
     
196. If (EraseDisplay) Then 'stil wait for a digit...
     
197. LastOper = Operation.Multiply
     
198. Else
     
199. CalcResults()
     
200. LastOper = Operation.Multiply
     
201. LastValue = Display
     
202. EraseDisplay = True
     
203. End If
     
204. 
     
205. Case "BMinus"
     
206. If (EraseDisplay) Then 'stil wait for a digit...
     
207. LastOper = Operation.Subtract
     
208. Else
     
209. CalcResults()
     
210. LastOper = Operation.Subtract
     
211. LastValue = Display
     
212. EraseDisplay = True
     
213. End If
     
214. 
     
215. Case "BPlus"
     
216. If (EraseDisplay) Then
     
217. 'stil wait for a digit...
     
218. LastOper = Operation.Add
     
219. Else
     
220. CalcResults()
     
221. LastOper = Operation.Add
     
222. LastValue = Display
     
223. EraseDisplay = True
     
224. End If
     
225. Case "BEqual"
     
226. If Not (EraseDisplay) Then 'stil wait for a digit...
     
227. CalcResults()
     
228. EraseDisplay = True
     
229. LastOper = Operation.None
     
230. LastValue = Display
     
231. 'val = Display
     
232. End If
     
233. 
     
234. Case "BSqrt"
     
235. LastOper = Operation.Sqrt
     
236. LastValue = Display
     
237. CalcResults()
     
238. LastValue = Display
     
239. EraseDisplay = True
     
240. LastOper = Operation.None
     
241. Case "BPercent"
     
242. If (EraseDisplay) Then 'stil wait for a digit...
     
243. LastOper = Operation.Percent
     
244. Else
     
245. CalcResults()
     
246. LastOper = Operation.Percent
     
247. LastValue = Display
     
248. EraseDisplay = True
     
249. 'LastOper = Operation.None
     
250. End If
     
251. Case "BOneOver"
     
252. LastOper = Operation.OneX
     
253. LastValue = Display
     
254. CalcResults()
     
255. LastValue = Display
     
256. EraseDisplay = True
     
257. LastOper = Operation.None
     
258. 
     
259. Case "BC" 'clear All
     
260. LastOper = Operation.None
     
261. LastValue = String.Empty
     
262. 
     
263. Display = LastValue
     
264. Paper.Clear()
     
265. UpdateDisplay()
     
266. Case "BCE" 'clear entry
     
267. LastOper = Operation.None
     
268. Display = LastValue
     
269. UpdateDisplay()
     
270. Case "BMemClear"
     
271. Memory = 0.0F
     
272. DisplayMemory()
     
273. Case "BMemSave"
     
274. Memory = Convert.ToDouble(Display)
     
275. DisplayMemory()
     
276. EraseDisplay = True
     
277. Case "BMemRecall"
     
278. Display = Memory.ToString()
     
279. UpdateDisplay()
     
280. EraseDisplay = False
     
281. Case "BMemPlus"
     
282. d = Memory + Convert.ToDouble(Display)
     
283. Memory = d
     
284. DisplayMemory()
     
285. EraseDisplay = True
     
286. End Select
     
287. 
     
288. 
     
289. 
     
290. End Sub
     
291. 
     
292. Private Sub OperBtn_Click(ByVal sender As Object, ByVal e As RoutedEventArgs)
     
293. 
     
294. ProcessOperation(DirectCast(sender, Button).Name.ToString)
     
295. End Sub
     
296. 
     
297. 
     
298. Private Function Calc(ByVal LastOper As Operation) As Double
     
299. 
     
300. Dim d As Double = 0.0
     
301. 
     
302. 
     
303. Try
     
304. 
     
305. Select Case (LastOper)
     
306. 
     
307. Case Operation.Devide
     
308. Paper.AddArguments(LastValue + " / " + Display)
     
309. d = (Convert.ToDouble(LastValue) / Convert.ToDouble(Display))
     
310. CheckResult(d)
     
311. Paper.AddResult(d.ToString())
     
312. 
     
313. Case Operation.Add
     
314. Paper.AddArguments(LastValue + " + " + Display)
     
315. d = Convert.ToDouble(LastValue) + Convert.ToDouble(Display)
     
316. CheckResult(d)
     
317. Paper.AddResult(d.ToString())
     
318. 
     
319. Case Operation.Multiply
     
320. Paper.AddArguments(LastValue + " * " + Display)
     
321. d = Convert.ToDouble(LastValue) * Convert.ToDouble(Display)
     
322. CheckResult(d)
     
323. Paper.AddResult(d.ToString())
     
324. 
     
325. Case Operation.Percent
     
326. 'Note: this is different (but make more sense) then Windows calculator
     
327. Paper.AddArguments(LastValue + " % " + Display)
     
328. d = (Convert.ToDouble(LastValue) * Convert.ToDouble(Display)) / 100.0F
     
329. CheckResult(d)
     
330. Paper.AddResult(d.ToString())
     
331. 
     
332. Case Operation.Subtract
     
333. Paper.AddArguments(LastValue + " - " + Display)
     
334. d = Convert.ToDouble(LastValue) - Convert.ToDouble(Display)
     
335. CheckResult(d)
     
336. Paper.AddResult(d.ToString())
     
337. 
     
338. Case Operation.Sqrt
     
339. Paper.AddArguments("Sqrt( " + LastValue + " )")
     
340. d = Math.Sqrt(Convert.ToDouble(LastValue))
     
341. CheckResult(d)
     
342. Paper.AddResult(d.ToString())
     
343. 
     
344. Case Operation.OneX
     
345. Paper.AddArguments("1 / " + LastValue)
     
346. d = 1.0F / Convert.ToDouble(LastValue)
     
347. CheckResult(d)
     
348. Paper.AddResult(d.ToString())
     
349. 
     
350. Case Operation.Negate
     
351. d = Convert.ToDouble(LastValue) * (-1.0F)
     
352. 
     
353. End Select
     
354. 
     
355. Catch
     
356. d = 0
     
357. Dim parent As Window = DirectCast(MyPanel.Parent, Window)
     
358. Paper.AddResult("Error")
     
359. MessageBox.Show(Parent, "Operation cannot be perfomed", Parent.Title)
     
360. End Try
     
361. 
     
362. Return d
     
363. End Function
     
364. 
     
365. Private Sub CheckResult(ByVal d As Double)
     
366. 
     
367. If (Double.IsNegativeInfinity(d) OrElse Double.IsPositiveInfinity(d) OrElse Double.IsNaN(d)) Then
     
368. Throw New Exception("Illegal value")
     
369. End If
     
370. 
     
371. End Sub
     
372. 
     
373. Private Sub DisplayMemory()
     
374. 
     
375. If (_mem_val <> String.Empty) Then
     
376. BMemBox.Text = "Memory: " + _mem_val
     
377. Else
     
378. BMemBox.Text = "Memory: [empty]"
     
379. End If
     
380. End Sub
     
381. 
     
382. Private Sub CalcResults()
     
383. 
     
384. Dim d As Double
     
385. If (LastOper = Operation.None) Then Return
     
386. 
     
387. d = Calc(LastOper)
     
388. Display = d.ToString()
     
389. 
     
390. UpdateDisplay()
     
391. End Sub
     
392. 
     
393. Private Sub UpdateDisplay()
     
394. 
     
395. If (Display = String.Empty) Then
     
396. DisplayBox.Text = "0"
     
397. Else
     
398. DisplayBox.Text = Display
     
399. End If
     
400. End Sub
     
401. 
     
402. 
     
403. 
     
404. Private Sub AddToDisplay(ByVal c As Char)
     
405. 
     
406. If (c = "."c) Then
     
407. 
     
408. If (Display.IndexOf("."c, 0) >= 0) Then Return 'already exists
     
409. 
     
410. Display = Display + c
     
411. 
     
412. Else
     
413. 
     
414. If (AscW(c) >= AscW("0"c) AndAlso AscW(c) <= AscW("9"c)) Then
     
415. Display = Display + c
     
416. 
     
417. Else
     
418. If (c = vbBack) Then 'backspace ?
     
419. 
     
420. If (Display.Length <= 1) Then
     
421. Display = String.Empty
     
422. Else
     
423. 
     
424. Dim i As Int32 = Display.Length
     
425. Display = Display.Remove(i - 1, 1) 'remove last char
     
426. End If
     
427. End If
     
428. End If
     
429. End If
     
430. 
     
431. UpdateDisplay()
     
432. End Sub
     
433. 
     
434. Sub OnMenuAbout(ByVal sender As Object, ByVal e As RoutedEventArgs)
     
435. 
     
436. Dim parent As Window = DirectCast(MyPanel.Parent, Window)
     
437. MessageBox.Show(Parent, Parent.Title + " - By Jossef Goldberg ", Parent.Title, MessageBoxButton.OK, MessageBoxImage.Information)
     
438. 
     
439. End Sub
     
440. 
     
441. Sub OnMenuExit(ByVal sender As Object, ByVal e As RoutedEventArgs)
     
442. 
     
443. Me.Close()
     
444. End Sub
     
445. Sub OnMenuStandard(ByVal sender As Object, ByVal e As RoutedEventArgs)
     
446. 
     
447. DirectCast(StandardMenu, MenuItem).IsChecked = True 'for now always Standard
     
448. End Sub
     
449. Sub OnMenuScientific(ByVal sender As Object, ByVal e As RoutedEventArgs)
     
450. 
     
451. '((MenuItem)StandardMenu).IsChecked = false
     
452. End Sub
     
453. 
     
454. Private Class PaperTrail
     
455. 
     
456. Private args As String
     
457. 
     
458. Public Sub AddArguments(ByVal a As String)
     
459. 
     
460. args = a
     
461. End Sub
     
462. 
     
463. Public Sub AddResult(ByVal r As String)
     
464. PaperBox.Text += args + " = " + r + vbNewLine
     
465. End Sub
     
466. 
     
467. Public Sub Clear()
     
468. PaperBox.Text = String.Empty
     
469. args = String.Empty
     
470. End Sub
     
471. End Class
     
472. 
     
473. 
     
474. End Class

複製代碼

[ 本帖最後由 路人甲 於 2008-3-26 23:57 編輯 ]

路人甲

http://msdn2.microsoft.com/zh-tw/library/ms771572.aspx
範例檔為上面的網址,一樣修改為 vb
請記得一定要加入下載後的資源檔到專案中
這次是 webbrowser application
所以請先新增 WpfBrowserApplication
而compile完後請點擊副檔名為 xbap 之檔案
以下為 Xaml code

1. 
   
2. <Page  
   
3.     xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
   
4.     xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
   
5.     xmlns:my="clr-namespace"
   
6.     x:Class="Page1"
   
7.     Title="3D Cube Animation Demo"
   
8.     Loaded="OnLoaded"
   
9.     >
   
10.     <Page.Resources>
    
11.         <Storyboard x:Key="RotateStoryboard">
    
12.             <ParallelTimeline RepeatBehavior="Forever"  Storyboard.TargetName="myRotate" Storyboard.TargetProperty="Angle" >
    
13.                 <DoubleAnimation From="0" To="360" Duration="0:0:30"/>
    
14.             </ParallelTimeline>
    
15.         </Storyboard>
    
16.         <MeshGeometry3D x:Key="PlaneMesh"
    
17.             Positions="-1 -1 0  1 -1 0  -1 1 0  1 1 0"
    
18.             Normals="0 0 1  0 0 1  0 0 1  0 0 1"
    
19.             TextureCoordinates="0 1  1 1  0 0  1 0   "
    
20.             TriangleIndices="0 1 2  1 3 2" />
    
21. 
    
22.         <MeshGeometry3D x:Key="CubeMesh"
    
23.    TriangleIndices="0,1,2 3,4,5 6,7,8 9,10,11 12,13,14 15,16,17 18,19,20 21,22,23 24,25,26 27,28,29 30,31,32 33,34,35 "
    
24.    Normals="0,0,-1 0,0,-1 0,0,-1 0,0,-1 0,0,-1 0,0,-1 0,0,1 0,0,1 0,0,1 0,0,1 0,0,1 0,0,1 0,-1,0 0,-1,0 0,-1,0 0,-1,0 0,-1,0 0,-1,0 1,0,0 1,0,0 1,0,0 1,0,0 1,0,0 1,0,0 0,1,0 0,1,0 0,1,0 0,1,0 0,1,0 0,1,0 -1,0,0 -1,0,0 -1,0,0 -1,0,0 -1,0,0 -1,0,0 "
    
25.    TextureCoordinates="1,0 1,1 0,1 0,1 0,0 1,0 0,0 1,0 1,1 1,1 0,1 0,0 0,0 1,0 1,1 1,1 0,1 0,0 1,0 1,1 0,1 0,1 0,0 1,0 1,1 0,1 0,0 0,0 1,0 1,1 0,1 0,0 1,0 1,0 1,1 0,1 "
    
26.    Positions="-0.5,-0.5,-0.5 -0.5,0.5,-0.5 0.5,0.5,-0.5 0.5,0.5,-0.5 0.5,-0.5,-0.5 -0.5,-0.5,-0.5 -0.5,-0.5,0.5 0.5,-0.5,0.5 0.5,0.5,0.5 0.5,0.5,0.5 -0.5,0.5,0.5 -0.5,-0.5,0.5 -0.5,-0.5,-0.5 0.5,-0.5,-0.5 0.5,-0.5,0.5 0.5,-0.5,0.5 -0.5,-0.5,0.5 -0.5,-0.5,-0.5 0.5,-0.5,-0.5 0.5,0.5,-0.5 0.5,0.5,0.5 0.5,0.5,0.5 0.5,-0.5,0.5 0.5,-0.5,-0.5 0.5,0.5,-0.5 -0.5,0.5,-0.5 -0.5,0.5,0.5 -0.5,0.5,0.5 0.5,0.5,0.5 0.5,0.5,-0.5 -0.5,0.5,-0.5 -0.5,-0.5,-0.5 -0.5,-0.5,0.5 -0.5,-0.5,0.5 -0.5,0.5,0.5 -0.5,0.5,-0.5 "
    
27.   />
    
28.         <MeshGeometry3D x:Key="CubeInvertedMesh"
    
29.    TriangleIndices="0,1,2 3,4,5 6,7,8 9,10,11 12,13,14 15,16,17 18,19,20 21,22,23 24,25,26 27,28,29 30,31,32 33,34,35 "
    
30.    Normals="0,0,1 0,0,1 0,0,1 0,0,1 0,0,1 0,0,1 0,0,-1 0,0,-1 0,0,-1 0,0,-1 0,0,-1 0,0,-1 0,1,0 0,1,0 0,1,0 0,1,0 0,1,0 0,1,0 -1,0,0 -1,0,0 -1,0,0 -1,0,0 -1,0,0 -1,0,0 0,-1,0 0,-1,0 0,-1,0 0,-1,0 0,-1,0 0,-1,0 1,0,0 1,0,0 1,0,0 1,0,0 1,0,0 1,0,0 "
    
31.    TextureCoordinates="0,1 1,1 1,0 1,0 0,0 0,1 1,1 1,0 0,0 0,0 0,1 1,1 1,1 1,0 0,0 0,0 0,1 1,1 0,1 1,1 1,0 1,0 0,0 0,1 0,0 0,1 1,1 1,1 1,0 0,0 1,0 0,0 0,1 0,1 1,1 1,0 "
    
32.    Positions="0.5,0.5,-0.5 -0.5,0.5,-0.5 -0.5,-0.5,-0.5 -0.5,-0.5,-0.5 0.5,-0.5,-0.5 0.5,0.5,-0.5 0.5,0.5,0.5 0.5,-0.5,0.5 -0.5,-0.5,0.5 -0.5,-0.5,0.5 -0.5,0.5,0.5 0.5,0.5,0.5 0.5,-0.5,0.5 0.5,-0.5,-0.5 -0.5,-0.5,-0.5 -0.5,-0.5,-0.5 -0.5,-0.5,0.5 0.5,-0.5,0.5 0.5,0.5,0.5 0.5,0.5,-0.5 0.5,-0.5,-0.5 0.5,-0.5,-0.5 0.5,-0.5,0.5 0.5,0.5,0.5 -0.5,0.5,0.5 -0.5,0.5,-0.5 0.5,0.5,-0.5 0.5,0.5,-0.5 0.5,0.5,0.5 -0.5,0.5,0.5 -0.5,-0.5,0.5 -0.5,-0.5,-0.5 -0.5,0.5,-0.5 -0.5,0.5,-0.5 -0.5,0.5,0.5 -0.5,-0.5,0.5 "
    
33.   />
    
34. 
    
35.         <Transform3DGroup x:Key="CubeMeshTransform">
    
36.             <Transform3DGroup.Children>
    
37.                 <ScaleTransform3D ScaleX="10" ScaleY="10" ScaleZ="10" />
    
38.             </Transform3DGroup.Children>
    
39.         </Transform3DGroup>
    
40.         <Transform3DGroup x:Key="CubeMeshTransform2">
    
41.             <Transform3DGroup.Children>
    
42.                 <ScaleTransform3D ScaleX="12" ScaleY="12" ScaleZ="12" />
    
43.             </Transform3DGroup.Children>
    
44.         </Transform3DGroup>
    
45.     </Page.Resources>
    
46.     <Grid Background="maroon"  >
    
47.         <Grid.ColumnDefinitions>
    
48.             <ColumnDefinition Width="100"/>
    
49.             <ColumnDefinition Width="*" />
    
50.         </Grid.ColumnDefinitions>
    
51.         <StackPanel>
    
52.             <Button Click="OnImage1Animate" Height="50" Grid.Column="0" Grid.Row="0">Image 1 animate</Button>
    
53.         </StackPanel>
    
54.         <Viewport3D Focusable="true" Name="myViewport3D" ClipToBounds="true" Grid.Column="1" Grid.Row="0" >
    
55.             <Viewport3D.Camera>
    
56.                 <PerspectiveCamera
    
57.     Position="0,0,3.0"
    
58.     LookDirection="0,0,-1"
    
59.     UpDirection="0,1,0"
    
60.     NearPlaneDistance="0.25"
    
61.     FarPlaneDistance="20"
    
62.     FieldOfView="60" />
    
63.             </Viewport3D.Camera>
    
64. 
    
65.             <ModelVisual3D>
    
66.                 <ModelVisual3D.Transform>
    
67.                     <Transform3DGroup>
    
68.                         <Transform3DGroup.Children>
    
69.                             <Transform3DCollection >
    
70.                                 <ScaleTransform3D ScaleX="1" ScaleY="1"  ScaleZ="1" />
    
71.                                 <RotateTransform3D>
    
72.                                     <RotateTransform3D.Rotation>
    
73.                                         <AxisAngleRotation3D Axis="0 1 0" Angle="0" />
    
74.                                     </RotateTransform3D.Rotation>
    
75.                                 </RotateTransform3D>
    
76.                                 <TranslateTransform3D OffsetX="0" OffsetY="0" OffsetZ="0" />
    
77.                             </Transform3DCollection>
    
78.                         </Transform3DGroup.Children>
    
79.                     </Transform3DGroup>
    
80.                 </ModelVisual3D.Transform>
    
81.                 <ModelVisual3D.Content>
    
82.                     <Model3DGroup >
    
83.                         <Model3DGroup.Transform>
    
84.                             <Transform3DGroup>
    
85.                                 <Transform3DGroup.Children>
    
86.                                     <Transform3DCollection >
    
87.                                         <ScaleTransform3D ScaleX="0.1" ScaleY="0.1"  ScaleZ="0.1" />
    
88.                                         <RotateTransform3D>
    
89.                                             <RotateTransform3D.Rotation>
    
90.                                                 <AxisAngleRotation3D Axis="0 1 0" Angle="0" />
    
91.                                             </RotateTransform3D.Rotation>
    
92.                                         </RotateTransform3D>
    
93.                                         <TranslateTransform3D OffsetX="0" OffsetY="0" OffsetZ="0" />
    
94.                                     </Transform3DCollection>
    
95.                                 </Transform3DGroup.Children>
    
96.                             </Transform3DGroup>
    
97.                         </Model3DGroup.Transform>
    
98.                         <Model3DGroup.Children>
    
99.                             <!-- Group Child 0 -->
    
100.                             <Model3DGroup >
     
101.                                 <Model3DGroup.Transform>
     
102.                                     <Transform3DGroup>
     
103.                                         <Transform3DGroup.Children>
     
104.                                             <Transform3DCollection >
     
105.                                                 <ScaleTransform3D ScaleX="1" ScaleY="1"  ScaleZ="1" />
     
106.                                                 <RotateTransform3D >
     
107.                                                     <RotateTransform3D.Rotation >
     
108.                                                         <AxisAngleRotation3D x:Name="myRotate" Axis="1 0 0" Angle="0" />
     
109.                                                     </RotateTransform3D.Rotation>
     
110.                                                 </RotateTransform3D>
     
111.                                                 <TranslateTransform3D OffsetX="0" OffsetY="0" OffsetZ="0" />
     
112.                                             </Transform3DCollection>
     
113.                                         </Transform3DGroup.Children>
     
114.                                     </Transform3DGroup>
     
115.                                 </Model3DGroup.Transform>
     
116.                                 <Model3DGroup.Children>
     
117.                                     <!-- Child 0 -->
     
118.                                     <GeometryModel3D Transform="{StaticResource CubeMeshTransform}" Geometry="{StaticResource CubeMesh}" >
     
119.                                         <GeometryModel3D.Material>
     
120.                                             <MaterialGroup>
     
121.                                                 <MaterialGroup.Children>
     
122.                                                     <EmissiveMaterial>
     
123.                                                         <EmissiveMaterial.Brush>
     
124.                                                             <ImageBrush ImageSource="roundcornersheet.png">
     
125.                                                                 <ImageBrush.Transform>
     
126.                                                                     <TransformGroup>
     
127.                                                                         <TransformGroup.Children>
     
128.                                                                             <RotateTransform CenterX="0.5" CenterY="0.5" Angle="0" />
     
129.                                                                         </TransformGroup.Children>
     
130.                                                                     </TransformGroup>
     
131.                                                                 </ImageBrush.Transform>
     
132.                                                             </ImageBrush>
     
133.                                                         </EmissiveMaterial.Brush>
     
134.                                                     </EmissiveMaterial>
     
135.                                                 </MaterialGroup.Children>
     
136.                                             </MaterialGroup>
     
137.                                         </GeometryModel3D.Material>
     
138.                                         <GeometryModel3D.BackMaterial>
     
139.                                             <MaterialGroup>
     
140.                                                 <MaterialGroup.Children>
     
141.                                                     <EmissiveMaterial>
     
142.                                                         <EmissiveMaterial.Brush>
     
143.                                                             <ImageBrush ImageSource="roundcornersheet.png">
     
144.                                                                 <ImageBrush.Transform>
     
145.                                                                     <TransformGroup>
     
146.                                                                         <TransformGroup.Children>
     
147.                                                                             <RotateTransform CenterX="0.5" CenterY="0.5" Angle="0" />
     
148.                                                                         </TransformGroup.Children>
     
149.                                                                     </TransformGroup>
     
150.                                                                 </ImageBrush.Transform>
     
151.                                                             </ImageBrush>
     
152.                                                         </EmissiveMaterial.Brush>
     
153.                                                     </EmissiveMaterial>
     
154.                                                 </MaterialGroup.Children>
     
155.                                             </MaterialGroup>
     
156.                                         </GeometryModel3D.BackMaterial>
     
157.                                     </GeometryModel3D>
     
158.                                     <GeometryModel3D Transform="{StaticResource CubeMeshTransform2}" Geometry="{StaticResource CubeMesh}" >
     
159.                                         <GeometryModel3D.Material>
     
160.                                             <MaterialGroup>
     
161.                                                 <MaterialGroup.Children>
     
162.                                                     <EmissiveMaterial>
     
163.                                                         <EmissiveMaterial.Brush>
     
164.                                                             <ImageBrush ImageSource="roundcornersheet.png">
     
165.                                                                 <ImageBrush.Transform>
     
166.                                                                     <TransformGroup>
     
167.                                                                         <TransformGroup.Children>
     
168.                                                                             <RotateTransform CenterX="0.5" CenterY="0.5" Angle="0" />
     
169.                                                                         </TransformGroup.Children>
     
170.                                                                     </TransformGroup>
     
171.                                                                 </ImageBrush.Transform>
     
172.                                                             </ImageBrush>
     
173.                                                         </EmissiveMaterial.Brush>
     
174.                                                     </EmissiveMaterial>
     
175.                                                 </MaterialGroup.Children>
     
176.                                             </MaterialGroup>
     
177.                                         </GeometryModel3D.Material>
     
178.                                         <GeometryModel3D.BackMaterial>
     
179.                                             <MaterialGroup>
     
180.                                                 <MaterialGroup.Children>
     
181.                                                     <EmissiveMaterial>
     
182.                                                         <EmissiveMaterial.Brush>
     
183.                                                             <ImageBrush ImageSource="roundcornersheet.png">
     
184.                                                                 <ImageBrush.Transform>
     
185.                                                                     <TransformGroup>
     
186.                                                                         <TransformGroup.Children>
     
187.                                                                             <RotateTransform CenterX="0.5" CenterY="0.5" Angle="0" />
     
188.                                                                         </TransformGroup.Children>
     
189.                                                                     </TransformGroup>
     
190.                                                                 </ImageBrush.Transform>
     
191.                                                             </ImageBrush>
     
192.                                                         </EmissiveMaterial.Brush>
     
193.                                                     </EmissiveMaterial>
     
194.                                                 </MaterialGroup.Children>
     
195.                                             </MaterialGroup>
     
196.                                         </GeometryModel3D.BackMaterial>
     
197.                                     </GeometryModel3D>
     
198.                                 </Model3DGroup.Children>
     
199.                             </Model3DGroup>
     
200. 
     
201.                             <Model3DGroup>
     
202.                                 <Model3DGroup.Children>
     
203.                                     <AmbientLight Color="#ffcccccc"/>
     
204.                                     <DirectionalLight Color="LightGray" Direction="-1,-1,-1" />
     
205.                                 </Model3DGroup.Children>
     
206.                             </Model3DGroup>
     
207. 
     
208.                         </Model3DGroup.Children>
     
209.                     </Model3DGroup>
     
210.                 </ModelVisual3D.Content>
     
211.             </ModelVisual3D>
     
212. 
     
213.         </Viewport3D>
     
214. 
     
215.     </Grid>
     
216. </Page>
     
217. 
     

複製代碼

在專案中新增一個 vb 檔案 名稱為

trackball.vb 並加入程式碼如下

1. 
   
2. 
   
3. Option Strict On
   
4. Option Explicit On
   
5. 
   
6. Imports System
   
7. Imports System.Collections.Generic
   
8. Imports System.Windows
   
9. Imports System.Windows.Input
   
10. Imports System.Windows.Controls
    
11. Imports System.Windows.Media
    
12. Imports System.Windows.Media.Media3D
    
13. 
    
14. Public Class Trackball
    
15.     Public Sub New()
    
16.         Dim _translate As Vector3D = New Vector3D(0, 0, 0)
    
17.         Dim _translateDelta As Vector3D = New Vector3D(0, 0, 0)
    
18.         Reset()
    
19.     End Sub
    
20.     Private _center As Vector3D
    
21.     Private _centered As Boolean
    
22.     Private _scale As Double
    
23.     Private _translate As Vector3D
    
24.     Private _rotation As Quaternion
    
25.     Private _slaves As List(Of Viewport3D)
    
26.     Private _scaling As Boolean
    
27.     Private _scaleDelta As Double         
    
28.     Private _rotationDelta As Quaternion
    
29.     Private _point As Point
    
30.     Private _translateDelta As Vector3D
    
31.     Private _rotating As Boolean
    
32.     Private _translating As Boolean
    
33. 
    
34.     Public Sub Attach(ByVal element As FrameworkElement)
    
35. 
    
36.         With element
    
37.             AddHandler .MouseMove, AddressOf Me.MouseMoveHandler
    
38.             AddHandler .MouseRightButtonDown, AddressOf Me.MouseDownHandler
    
39.             AddHandler .MouseRightButtonUp, AddressOf Me.MouseUpHandler
    
40.             AddHandler .MouseWheel, AddressOf Me.OnMouseWheel
    
41.         End With
    
42. 
    
43.     End Sub
    
44. 
    
45.     Public Sub Detach(ByVal element As FrameworkElement)
    
46. 
    
47.         With element
    
48.             RemoveHandler .MouseMove, AddressOf Me.MouseMoveHandler
    
49.             RemoveHandler .MouseRightButtonDown, AddressOf Me.MouseDownHandler
    
50.             RemoveHandler .MouseRightButtonUp, AddressOf Me.MouseUpHandler
    
51.             RemoveHandler .MouseWheel, AddressOf Me.OnMouseWheel
    
52.         End With
    
53.     End Sub
    
54. 
    
55.     Public Property slaves() As List(Of Viewport3D)
    
56.         Get
    
57.             If (_slaves Is Nothing) Then _slaves = New List(Of Viewport3D)
    
58. 
    
59.             Return _slaves
    
60.         End Get
    
61.         Set(ByVal value As List(Of Viewport3D))
    
62.             _slaves = value
    
63.         End Set
    
64.     End Property
    
65.     Private _enabled As Boolean
    
66.     Public Property Enabled() As Boolean
    
67.         Get
    
68.             Return _enabled AndAlso (_slaves IsNot Nothing) AndAlso (_slaves.Count > 0)
    
69.         End Get
    
70.         Set(ByVal value As Boolean)
    
71.             _enabled = value
    
72.         End Set
    
73.     End Property
    
74. 
    
75.     Private Sub UpdateSlaves(ByVal q As Quaternion, ByVal s As Double, ByVal t As Vector3D)
    
76. 
    
77.         If (_slaves IsNot Nothing) Then
    
78.             For Each i As Viewport3D In _slaves
    
79.                 Dim mv As ModelVisual3D = DirectCast(i.Children(0), ModelVisual3D)
    
80.                 Dim t3dg As Transform3DGroup = DirectCast(mv.Transform, Transform3DGroup)
    
81.                 Dim _GroupScaleTransform As ScaleTransform3D = DirectCast(t3dg.Children(0), ScaleTransform3D)
    
82.                 Dim _GroupRotateTransform As RotateTransform3D = DirectCast(t3dg.Children(1), RotateTransform3D)
    
83.                 Dim _GroupTranslateTransform As TranslateTransform3D = DirectCast(t3dg.Children(2), TranslateTransform3D)
    
84.                 _GroupScaleTransform.ScaleX = s
    
85.                 _GroupScaleTransform.ScaleY = s
    
86.                 _GroupScaleTransform.ScaleZ = s
    
87.                 _GroupRotateTransform.Rotation = New AxisAngleRotation3D(q.Axis, q.Angle)
    
88.                 _GroupTranslateTransform.OffsetX = t.X
    
89.                 _GroupTranslateTransform.OffsetY = t.Y
    
90.                 _GroupTranslateTransform.OffsetZ = t.Z
    
91.             Next i
    
92.         End If
    
93.     End Sub
    
94. 
    
95.     Private Sub Reset()
    
96.         _rotation = New Quaternion(0, 0, 0, 1)
    
97.         _scale = 1
    
98.         _translate.X = 0
    
99.         _translate.Y = 0
    
100.         _translate.Z = 0
     
101.         _translateDelta.X = 0
     
102.         _translateDelta.Y = 0
     
103.         _translateDelta.Z = 0
     
104.          _rotationDelta = Quaternion.Identity
     
105.         _scaleDelta = 1
     
106.         UpdateSlaves(_rotation, _scale, _translate)
     
107.     End Sub
     
108. 
     
109.     Private Sub MouseMoveHandler(ByVal sender As Object, ByVal e As System.Windows.Input.MouseEventArgs)
     
110.         If Not Enabled Then Return
     
111.         e.Handled = True
     
112.         Dim el As UIElement = DirectCast(sender, UIElement)
     
113.         If el.IsMouseCaptured Then
     
114.             Dim delta As Vector = _point - e.MouseDevice.GetPosition(el)
     
115.             Dim t As Vector3D = New Vector3D
     
116.             delta /= 2
     
117.             Dim q As Quaternion = _rotation
     
118.             If (_rotating = True) Then
     
119.                   Dim mouse As Vector3D = New Vector3D(delta.X, -delta.Y, 0)
     
120.                 Dim axis As Vector3D = Vector3D.CrossProduct(mouse, New Vector3D(0, 0, 1))
     
121.                 Dim len As Double = axis.Length
     
122.                 If (len < 0.00001 OrElse _scaling) Then
     
123.                     _rotationDelta = New Quaternion(New Vector3D(0, 0, 1), 0)
     
124.                 Else
     
125.                     _rotationDelta = New Quaternion(axis, len)
     
126.                 End If
     
127.                 q = _rotationDelta * _rotation
     
128.             Else
     
129.                 delta /= 20
     
130.                 _translateDelta.X = delta.X * -1
     
131.                 _translateDelta.Y = delta.Y
     
132.             End If
     
133.             t = _translate + _translateDelta
     
134.             UpdateSlaves(q, _scale * _scaleDelta, t)
     
135.         End If
     
136.     End Sub
     
137.     Private Sub MouseDoubleClickHandler(ByVal sender As Object, ByVal e As MouseButtonEventArgs)
     
138.         Reset()
     
139.     End Sub
     
140. 
     
141.     Private Sub MouseUpHandler(ByVal sender As Object, ByVal e As MouseButtonEventArgs)
     
142.         If (Not _enabled) Then Return
     
143.         e.Handled = True
     
144.         If (_rotating = True) Then
     
145.             _rotation = _rotationDelta * _rotation
     
146.         Else
     
147.             _translate += _translateDelta
     
148.             _translateDelta.X = 0
     
149.             _translateDelta.Y = 0
     
150.         End If
     
151.          Dim el As UIElement = DirectCast(sender, UIElement)
     
152.         el.ReleaseMouseCapture()
     
153.     End Sub
     
154. 
     
155.     Sub OnMouseWheel(ByVal sender As Object, ByVal e As System.Windows.Input.MouseWheelEventArgs)
     
156.         e.Handled = True
     
157.         _scaleDelta += (e.Delta / 1000)
     
158.         Dim q As Quaternion = _rotation
     
159.         UpdateSlaves(q, _scale * _scaleDelta, _translate)
     
160.     End Sub
     
161. 
     
162.     Private Sub MouseDownHandler(ByVal sender As Object, ByVal e As MouseButtonEventArgs)
     
163.         If Not Enabled Then Return
     
164.         e.Handled = True
     
165. 
     
166.         If (Keyboard.IsKeyDown(Key.F1) = True) Then
     
167.             Reset()
     
168.             Return
     
169.         End If
     
170.         Dim el As UIElement = DirectCast(sender, UIElement)
     
171.         _point = e.MouseDevice.GetPosition(el)
     
172.         If (Not _centered) Then
     
173.             Dim camera As ProjectionCamera = DirectCast(_slaves(0).Camera, ProjectionCamera)
     
174.             _center = camera.LookDirection
     
175.             _centered = True
     
176.         End If
     
177.         _scaling = (e.MiddleButton = MouseButtonState.Pressed)
     
178.         If (Keyboard.IsKeyDown(Key.Space) = False) Then
     
179.             _rotating = True
     
180.         Else
     
181.             _rotating = False
     
182.         End If
     
183.         el.CaptureMouse()
     
184.     End Sub
     
185. End Class
     
186. 
     
187. 
     

複製代碼

最後再加入 page的程式碼(web表單)

1. 
   
2. 
   
3. Option Strict On
   
4. Option Explicit On
   
5. Imports System
   
6. Imports System.Data
   
7. Imports System.Windows
   
8. Imports System.Windows.Data
   
9. Imports System.Configuration
   
10. Imports System.Windows.Media
    
11. Imports System.Windows.Media.Media3D
    
12. Imports System.Windows.Media.Animation
    
13. Imports System.Windows.Media.Imaging
    
14. Imports System.Reflection
    
15. Imports System.Windows.Controls
    
16. Imports System.Windows.Input
    
17. Imports System.Windows.Threading
    
18. Imports System.IO
    
19. Public Class Page1
    
20. 
    
21.     Dim _trackball As Trackball
    
22.     Private Sub OnLoaded(ByVal sender As Object, ByVal e As EventArgs)
    
23.         _trackball = New Trackball()
    
24.         _trackball.Attach(Me)
    
25.         _trackball.Slaves.Add(myViewport3D)
    
26.         _trackball.Enabled = True
    
27.     End Sub
    
28.     Private Sub OnImage1Animate(ByVal sender As Object, ByVal e As RoutedEventArgs)
    
29.         Dim s As Storyboard
    
30.         s = DirectCast(Me.FindResource("RotateStoryboard"), Storyboard)
    
31.         Me.BeginStoryboard(s)
    
32.     End Sub
    
33. 
    
34. End Class
    
35. 
    

複製代碼

路人甲

　這個程式在我的電腦上幾乎是跑不動的,
不過在我公司的電腦跑起來真的是順的不得了(cpu使用率在5%以下)
很可能和顯卡有關  (nvidia geforce 8600gt),顯然 GPU 做了大部分的事來讓cpu空閒
看過相關資料,wpf會盡量利用硬體加速,在這裡得到證明了嗎,我不知道

bauann

Grid這個"容器"相較之前的容器來看，顯的比較複雜一些，需要設定的東西比較多，下面用簡單的程式碼展示一下基本的功能，希望大家對於Grid能有一些基本的了解

1. Dim gd As Grid
   
2.     Private Sub Window1_Loaded(ByVal sender As Object, ByVal e As System.Windows.RoutedEventArgs) Handles Me.Loaded
   
3.         gd = New Grid
   
4.         Me.Title = "Grid Test"
   
5.         ''設定Form的大小跟Content的長、寬是一樣的
   
6.         Me.SizeToContent = Windows.SizeToContent.WidthAndHeight
   
7.         Me.Content = gd
   
8.         ''為了方面觀看變化，我們把隔線設定為顯示
   
9.         gd.ShowGridLines = True
   
10.         ''為了範例需要我們把新增欄、列的新增跟按鈕的新增分開處理
    
11.         For iRow As Integer = 0 To 4
    
12.             ''新增Grid的列
    
13.             Dim rd = New RowDefinition
    
14.             If iRow = 4 Then
    
15.                 ''最後一列為了展示跨越欄位的button，這邊做特殊設定
    
16.                 ''可以自行修改看看GridUnitType的部分看看有什麼不同
    
17.                 rd.Height = New GridLength(100, GridUnitType.Star)
    
18.             Else
    
19.                 rd.Height = GridLength.Auto
    
20.             End If
    
21.             gd.RowDefinitions.Add(rd)
    
22.         Next
    
23.         For iCol As Integer = 0 To 4
    
24.             ''新增Grid的欄
    
25.             Dim cd As New ColumnDefinition
    
26.             If iCol = 4 Then
    
27.                 cd.Width = New GridLength(100, GridUnitType.Star)
    
28.             Else
    
29.                 cd.Width = GridLength.Auto
    
30.             End If
    
31.             gd.ColumnDefinitions.Add(cd)
    
32.         Next
    
33.         For z As Integer = 0 To 3
    
34.             For x As Integer = 0 To 3
    
35.                 Dim btn As New Button
    
36.                 btn.Name = "Button" & z & "_" & x
    
37.                 btn.Content = "Button " & z & "-" & x
    
38.                 btn.Margin = New Thickness(2)
    
39.                 Grid.SetColumn(btn, x)
    
40.                 Grid.SetRow(btn, z)
    
41.                 gd.Children.Add(btn)
    
42.             Next
    
43.         Next
    
44.         Dim btnBig As New Button
    
45.         btnBig.Name = "btnBig"
    
46.         btnBig.Content = "Big Button"
    
47.         btnBig.Margin = New Thickness(2)
    
48.         Grid.SetRow(btnBig, 4)
    
49.         Grid.SetColumn(btnBig, 0)
    
50.         ''設定跨越Grid的三格，如果是跨越Row的話是用SetRowSpan
    
51.         Grid.SetColumnSpan(btnBig, 3)
    
52.         gd.Children.Add(btnBig)
    
53.     End Sub

複製代碼