NCIS資訊中心討論區 - Powered by Discuz! Board

' Interaction logic for Window1.xaml
Partial Public Class Window1
Inherits System.Windows.Window
Dim Brush As New SolidColorBrush(Colors.Black)
Public Sub New()
InitializeComponent()
End Sub
Private Sub Window1_Loaded(ByVal sender As Object, ByVal e As System.Windows.RoutedEventArgs) Handles Me.Loaded
Me.Title = "Vary the background"
Me.Background = Brush
End Sub
Private Sub Window1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Input.MouseEventArgs) Handles Me.MouseMove
Dim H As Double = ActualHeight - 2 * SystemParameters.ResizeFrameHorizontalBorderHeight
Dim W As Double = ActualWidth - 2 * SystemParameters.ResizeFrameVerticalBorderWidth
Dim ptMouse As New Point
ptMouse = e.GetPosition(Me)
Dim ptCenter As New Point(W / 2, H / 2)
Dim vectMouse As Vector = ptMouse - ptCenter
Dim Angle As Double = Math.Atan2(vectMouse.Y, vectMouse.X)
Dim vectEllipse As New Vector(W / 2 * Math.Cos(Angle), H / 2 * Math.Sin(Angle))
Dim byLevel As Byte = (255 * (1 - Math.Min(1, vectMouse.Length / vectEllipse.Length)))
Dim Clr As Color = Brush.Color
Clr.R = byLevel
Clr.G = byLevel
Clr.B = byLevel
Brush.Color = Clr
End Sub
End Class

複製代碼

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

複製代碼

''宣告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","*.jpg")
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

複製代碼

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

複製代碼

<Window
xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
xmlns:Inter3D="clr-namespace:_3DTools;assembly=3DTools"
x:Class="Window1"
Title="Window1" Height="346" Width="469">
<Window.Resources>
<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" />
</Window.Resources>
<Grid>
<Inter3D:TrackballDecorator>
<Inter3D:Interactive3DDecorator>
<Viewport3D>
<Viewport3D.Camera>
<PerspectiveCamera Position="1,1,10" LookDirection="0,0,-1"></PerspectiveCamera>
</Viewport3D.Camera>
<ModelVisual3D>
<ModelVisual3D.Content>
<AmbientLight/>
</ModelVisual3D.Content>
</ModelVisual3D>
<Inter3D:InteractiveVisual3D Geometry="{StaticResource palnMesh}">
<Inter3D:InteractiveVisual3D.Visual>
<Button Content="Cleck Me" />
</Inter3D:InteractiveVisual3D.Visual>
</Inter3D:InteractiveVisual3D>
</Viewport3D>
</Inter3D:Interactive3DDecorator>
</Inter3D:TrackballDecorator>
</Grid>
</Window>

複製代碼

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

複製代碼

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

複製代碼

Dim wp As WrapPanel
Private Sub Window1_Loaded(ByVal sender As Object, ByVal e As System.Windows.RoutedEventArgs) Handles Me.Loaded
Dim wp As New WrapPanel
wp.Background = Brushes.AliceBlue
Me.Title = "Test WrapPanel"
Me.Content = wp
For z As Integer = 0 To 25
Dim btn As New Button
btn.Name = "Button" & z
btn.Content = "Button _" & Chr(&H41 + z)
btn.VerticalAlignment = Windows.VerticalAlignment.Center
btn.HorizontalAlignment = Windows.HorizontalAlignment.Center
AddHandler btn.Click, AddressOf Button_Click
wp.Children.Add(btn)
Next
End Sub
Private Sub Button_Click(ByVal sender As Object, ByVal e As RoutedEventArgs)
MessageBox.Show(CType(e.Source, Button).Content.ToString)
End Sub

複製代碼

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

複製代碼

Option Strict On
Option Explicit On
Imports System
Imports System.Windows
Imports System.Windows.Controls
Imports System.Windows.Data
Imports System.Windows.Documents
Imports System.Windows.Media
Imports System.Windows.Shapes
Imports System.Windows.Media.Animation
Public Class Window1
Private frameTimer As System.Windows.Threading.DispatcherTimer
Private rand As Random
Public Sub New()
' 此為 Windows Form 設計工具所需的呼叫。
InitializeComponent()
' 在 InitializeComponent() 呼叫之後加入任何初始設定。
With Me
.WindowState = Windows.WindowState.Maximized
.WindowStyle = Windows.WindowStyle.None
.ResizeMode = Windows.ResizeMode.NoResize
.frameTimer = New System.Windows.Threading.DispatcherTimer
With .frameTimer
.Interval = TimeSpan.FromTicks(CType(5 * 10 ^ 6, Long))
AddHandler .Tick, AddressOf trOnTick
.Start()
End With
.rand = New Random(100)
End With
End Sub
Private Sub trOnTick(ByVal sender As Object, ByVal e As EventArgs)
Me.CreateCircles()
End Sub
Private Sub Window1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Input.KeyEventArgs) Handles Me.KeyDown
If (e.Key = System.Windows.Input.Key.Escape) Then Me.Close()
End Sub
Private Sub CreateCircles()
Dim centerX As Double = Me.MainCanvas.ActualWidth / 2.0
Dim centerY As Double = Me.MainCanvas.ActualHeight / 2.0
Dim myColors() As Color = {Colors.White, Colors.Green, Colors.Green, Colors.Lime}
Dim e As New Ellipse()
Dim alpha As Byte = CType(rand.Next(96, 192), Byte)
Dim colorIndex As Int32 = rand.Next(4)
e.Stroke = New SolidColorBrush(Color.FromArgb(alpha, myColors(colorIndex).R, _
myColors(colorIndex).G, myColors(colorIndex).B))
e.StrokeThickness = rand.Next(1, 4)
e.Width = 0.0
e.Height = 0.0
Dim offsetX As Double = 16 - rand.Next(32)
Dim offsetY As Double = 16 - rand.Next(32)
Me.MainCanvas.Children.Add(e)
e.SetValue(Canvas.LeftProperty, centerX + offsetX)
e.SetValue(Canvas.TopProperty, centerY + offsetY)
Dim duration As Double = 6.0 + 3 * rand.NextDouble()
Dim delay As Double = 16.0 * rand.NextDouble()
Dim offsetTransform As TranslateTransform = New TranslateTransform()
Dim offsetXAnimation As DoubleAnimation = New DoubleAnimation(0.0, -256.0, New Duration(TimeSpan.FromSeconds(duration)))
offsetXAnimation.BeginTime = TimeSpan.FromSeconds(delay)
offsetTransform.BeginAnimation(TranslateTransform.XProperty, offsetXAnimation)
offsetTransform.BeginAnimation(TranslateTransform.YProperty, offsetXAnimation)
e.RenderTransform = offsetTransform
Dim SizeAnimation As DoubleAnimation = New DoubleAnimation(0.0, 512.0, New Duration(TimeSpan.FromSeconds(duration)))
SizeAnimation.BeginTime = TimeSpan.FromSeconds(delay)
e.BeginAnimation(Ellipse.WidthProperty, SizeAnimation)
e.BeginAnimation(Ellipse.HeightProperty, SizeAnimation)
Dim opacityAnimation As DoubleAnimation = New DoubleAnimation(duration - 1.0, 0.0, New Duration(TimeSpan.FromSeconds(duration)))
opacityAnimation.BeginTime = TimeSpan.FromSeconds(delay)
e.BeginAnimation(Ellipse.OpacityProperty, opacityAnimation)
End Sub
End Class

複製代碼

Option Strict On
Option Explicit On
Imports System
Imports System.Windows
Imports System.Windows.Controls
Imports System.Windows.Data
Imports System.Windows.Documents
Imports System.Windows.Media
Imports System.Windows.Shapes
Imports System.Windows.Media.Animation
Public Class Window1
Private rand As Random
Public Sub New()
' 此為 Windows Form 設計工具所需的呼叫。
InitializeComponent()
' 在 InitializeComponent() 呼叫之後加入任何初始設定。
With Me
.WindowState = Windows.WindowState.Maximized
.WindowStyle = Windows.WindowStyle.None
.ResizeMode = Windows.ResizeMode.NoResize
.rand = New Random(100)
.Show()
End With
Me.CreateCircles()
End Sub
Private Sub Window1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Input.KeyEventArgs) Handles Me.KeyDown
If (e.Key = System.Windows.Input.Key.Escape) Then Me.Close()
End Sub
Private Sub CreateCircles()
Dim centerX As Double = Me.MainCanvas.ActualWidth / 2.0
Dim centerY As Double = Me.MainCanvas.ActualHeight / 2.0
Dim myColors() As Color = {Colors.White, Colors.Green, Colors.Green, Colors.Lime}
For i As Int32 = 0 To 20
Dim e As New Ellipse()
Dim alpha As Byte = CType(rand.Next(96, 192), Byte)
Dim colorIndex As Int32 = rand.Next(4)
e.Stroke = New SolidColorBrush(Color.FromArgb(alpha, myColors(colorIndex).R, _
myColors(colorIndex).G, myColors(colorIndex).B))
e.StrokeThickness = rand.Next(1, 4)
e.Width = 0.0
e.Height = 0.0
Dim offsetX As Double = 16 - rand.Next(32)
Dim offsetY As Double = 16 - rand.Next(32)
Me.MainCanvas.Children.Add(e)
e.SetValue(Canvas.LeftProperty, centerX + offsetX)
e.SetValue(Canvas.TopProperty, centerY + offsetY)
Dim duration As Double = 6.0 + 3 * rand.NextDouble()
Dim delay As Double = 16.0 * rand.NextDouble()
Dim offsetTransform As TranslateTransform = New TranslateTransform()
Dim offsetXAnimation As DoubleAnimation = New DoubleAnimation(0.0, -256.0, New Duration(TimeSpan.FromSeconds(duration)))
offsetXAnimation.RepeatBehavior = RepeatBehavior.Forever
offsetXAnimation.BeginTime = TimeSpan.FromSeconds(delay)
offsetTransform.BeginAnimation(TranslateTransform.XProperty, offsetXAnimation)
offsetTransform.BeginAnimation(TranslateTransform.YProperty, offsetXAnimation)
e.RenderTransform = offsetTransform
Dim SizeAnimation As DoubleAnimation = New DoubleAnimation(0.0, 512.0, New Duration(TimeSpan.FromSeconds(duration)))
SizeAnimation.RepeatBehavior = RepeatBehavior.Forever
SizeAnimation.BeginTime = TimeSpan.FromSeconds(delay)
e.BeginAnimation(Ellipse.WidthProperty, SizeAnimation)
e.BeginAnimation(Ellipse.HeightProperty, SizeAnimation)
Dim opacityAnimation As DoubleAnimation = New DoubleAnimation(duration - 1.0, 0.0, New Duration(TimeSpan.FromSeconds(duration)))
opacityAnimation.BeginTime = TimeSpan.FromSeconds(delay)
opacityAnimation.RepeatBehavior = RepeatBehavior.Forever
e.BeginAnimation(Ellipse.OpacityProperty, opacityAnimation)
Next i
End Sub
End Class

複製代碼

<Window x:Class="Window1"
xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
Title="WPF Calculator"
Height="400"
Width="600"
ResizeMode="CanMinimize"
Icon="AppIcon.ico"
TextInput="OnWindowKeyDown" Name="Window1">
<DockPanel Name="MyPanel">
<Menu DockPanel.Dock="Top" Height="26">
<MenuItem Header="File" Name="MenuItem1">
<MenuItem Click="OnMenuExit" Header="Exit"/>
</MenuItem>
<MenuItem Header="View" Name="MenuItem2">
<MenuItem Name="StandardMenu" Click="OnMenuStandard" IsCheckable="true" IsChecked="True" Header="Standard"/>
</MenuItem>
<MenuItem Header="Help" Name="MenuItem3">
<MenuItem Click="OnMenuAbout" Header="About"/>
</MenuItem>
</Menu>
<Grid Name="MyGrid" Background="Wheat" ShowGridLines="False">
<Grid.Resources >
<Storyboard x:Key="playStoryboard">
<DoubleAnimation From="50" To="40" Duration="0:0:0.25" RepeatBehavior="1x" AutoReverse="True" Storyboard.TargetName="TB" Storyboard.TargetProperty="(Ellipse.Height)"/>
<DoubleAnimation From="50" To="44" Duration="0:0:0.25" RepeatBehavior="1x" AutoReverse="True" Storyboard.TargetName="TB" Storyboard.TargetProperty="(Ellipse.Width)"/>
</Storyboard>
<Style x:Key="DigitBtn" TargetType="{x:Type Button}">
<Setter Property="Focusable" Value="False"/>
<Setter Property="FontSize" Value="14pt"/>
<Setter Property="Margin" Value="0"/>
<Setter Property="Template">
<Setter.Value>
<ControlTemplate TargetType="{x:Type Button}">
<Grid Width="60" Height="50">
<Ellipse Width="57" Height="49" x:Name="TB" StrokeThickness="1"
Stroke="{TemplateBinding Foreground}" Fill="{TemplateBinding Background}"
HorizontalAlignment="Center" VerticalAlignment="Center" />
<ContentPresenter Content="{TemplateBinding Content}" HorizontalAlignment="Center"
VerticalAlignment="Center"/>
</Grid>
<ControlTemplate.Triggers>
<Trigger Property="IsMouseOver" Value="true">
<Setter TargetName="TB" Property="Ellipse.Fill" Value="Lightblue" />
</Trigger>
<Trigger Property="IsPressed" Value="true">
<Setter TargetName="TB" Property="Ellipse.Fill" Value="Blue" />
</Trigger>
<EventTrigger RoutedEvent="ButtonBase.Click">
<EventTrigger.Actions>
<BeginStoryboard Name="playStoryboard" Storyboard="{StaticResource playStoryboard}"/>
</EventTrigger.Actions>
</EventTrigger>
</ControlTemplate.Triggers>
</ControlTemplate>
</Setter.Value>
</Setter>
</Style>
</Grid.Resources>
<Grid.ColumnDefinitions>
<ColumnDefinition/>
<ColumnDefinition/>
<ColumnDefinition/>
<ColumnDefinition/>
<ColumnDefinition/>
<ColumnDefinition/>
<ColumnDefinition/>
<ColumnDefinition/>
<ColumnDefinition/>
</Grid.ColumnDefinitions>
<Grid.RowDefinitions>
<RowDefinition Height="56*" />
<RowDefinition Height="56*" />
<RowDefinition Height="56*" />
<RowDefinition Height="56*" />
<RowDefinition Height="40*" />
<RowDefinition Height="16*" />
<RowDefinition Height="56*" />
</Grid.RowDefinitions>
<Button Name="B7" Click="DigitBtn_Click" Style="{StaticResource DigitBtn}" Grid.Column="4" Grid.Row="2">7</Button>
<Button Name="B8" Click="DigitBtn_Click" Style="{StaticResource DigitBtn}" Grid.Column="5" Grid.Row="2">8</Button>
<Button Name="B9" Click="DigitBtn_Click" Style="{StaticResource DigitBtn}" Grid.Column="6" Grid.Row="2">9</Button>
<Button Name="B4" Click="DigitBtn_Click" Style="{StaticResource DigitBtn}" Grid.Column="4" Grid.Row="3" >4</Button>
<Button Name="B5" Click="DigitBtn_Click" Style="{StaticResource DigitBtn}" Grid.Column="5" Grid.Row="3" >5</Button>
<Button Name="B6" Click="DigitBtn_Click" Style="{StaticResource DigitBtn}" Grid.Column="6" Grid.Row="3" >6</Button>
<Button Name="B1" Click="DigitBtn_Click" Style="{StaticResource DigitBtn}" Grid.Column="4" Grid.Row="4" Grid.RowSpan="2">1</Button>
<Button Name="B2" Click="DigitBtn_Click" Style="{StaticResource DigitBtn}" Grid.Column="5" Grid.Row="4" Grid.RowSpan="2">2</Button>
<Button Name="B3" Click="DigitBtn_Click" Style="{StaticResource DigitBtn}" Grid.Column="6" Grid.Row="4" Grid.RowSpan="2">3</Button>
<Button Name="B0" Click="DigitBtn_Click" Style="{StaticResource DigitBtn}" Grid.Column="4" Grid.Row="6" >0</Button>
<Button Name="BPeriod" Click="DigitBtn_Click" Style="{StaticResource DigitBtn}" Grid.Column="5" Grid.Row="6" >.</Button>
<Button Name="BPM" Click="OperBtn_Click" Background="Darkgray" Style="{StaticResource DigitBtn}" Grid.Column="6" Grid.Row="6" >+/-</Button>
<Button Name="BDevide" Click="OperBtn_Click" Background="Darkgray" Style="{StaticResource DigitBtn}" Grid.Column="7" Grid.Row="2" >/</Button>
<Button Name="BMultiply" Click="OperBtn_Click" Background="Darkgray" Style="{StaticResource DigitBtn}" Grid.Column="7" Grid.Row="3" >*</Button>
<Button Name="BMinus" Click="OperBtn_Click" Background="Darkgray" Style="{StaticResource DigitBtn}" Grid.Column="7" Grid.Row="4" Grid.RowSpan="2">-</Button>
<Button Name="BPlus" Click="OperBtn_Click" Background="Darkgray" Style="{StaticResource DigitBtn}" Grid.Column="7" Grid.Row="6" >+</Button>
<Button Name="BSqrt" Click="OperBtn_Click" Background="Darkgray" Style="{StaticResource DigitBtn}" Grid.Column="8" Grid.Row="2" ToolTip="Usage: 'A Sqrt'" >Sqrt</Button>
<Button Name="BPercent" Click="OperBtn_Click" Background="Darkgray" Style="{StaticResource DigitBtn}" Grid.Column="8" Grid.Row="3" ToolTip="Usage: 'A % B ='" >%</Button>
<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>
<Button Name="BEqual" Click="OperBtn_Click" Background="Darkgray" Style="{StaticResource DigitBtn}" Grid.Column="8" Grid.Row="6" >=</Button>
<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>
<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>
<Button Name="BMemClear" Click="OperBtn_Click" Background="Darkgray" Style="{StaticResource DigitBtn}" Grid.Column="3" Grid.Row="2" ToolTip="Clear Memory" >MC</Button>
<Button Name="BMemRecall" Click="OperBtn_Click" Background="Darkgray" Style="{StaticResource DigitBtn}" Grid.Column="3" Grid.Row="3" ToolTip="Recall Memory">MR</Button>
<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>
<Button Name="BMemPlus" Click="OperBtn_Click" Background="Darkgray" Style="{StaticResource DigitBtn}" Grid.Column="3" Grid.Row="6" ToolTip="Add To Memory">M+</Button>
<TextBlock Name="BMemBox" Grid.Column="3" Grid.Row="1" Margin="10,17,10,17" Grid.ColumnSpan="2">Memory: [empty]</TextBlock>
</Grid>
</DockPanel>
</Window>

複製代碼

Imports System
Imports System.Collections.Generic
Imports System.Text
Imports System.Windows.Input
Class MyTextBox
Inherits TextBox
Protected Overrides Sub OnPreviewGotKeyboardFocus(ByVal e As System.Windows.Input.KeyboardFocusChangedEventArgs)
e.Handled = True
MyBase.OnPreviewGotKeyboardFocus(e)
End Sub
End Class

複製代碼

Option Strict On
Option Explicit On
Imports System
Imports System.Windows
Imports System.Windows.Controls
Imports System.Windows.Data
Imports System.Windows.Documents
Imports System.Windows.Media
Imports System.Windows.Shapes
Imports System.Windows.Media.Animation
Public Class Window1
Shared DisplayBox As MyTextBox
Shared PaperBox As MyTextBox
Shared Paper As PaperTrail
Private LastOper As Operation
Public Sub New()
' 此為 Windows Form 設計工具所需的呼叫。
InitializeComponent()
' 在 InitializeComponent() 呼叫之後加入任何初始設定。
DisplayBox = New MyTextBox()
Grid.SetRow(DisplayBox, 0)
Grid.SetColumn(DisplayBox, 0)
Grid.SetColumnSpan(DisplayBox, 9)
DisplayBox.Height = 30
MyGrid.Children.Add(DisplayBox)
PaperBox = New MyTextBox()
Grid.SetRow(PaperBox, 1)
Grid.SetColumn(PaperBox, 0)
Grid.SetColumnSpan(PaperBox, 3)
Grid.SetRowSpan(PaperBox, 5)
PaperBox.IsReadOnly = True
PaperBox.VerticalScrollBarVisibility = ScrollBarVisibility.Visible
PaperBox.Margin = New Thickness(3.0, 1.0, 1.0, 1.0)
PaperBox.HorizontalScrollBarVisibility = ScrollBarVisibility.Auto
Paper = New PaperTrail()
MyGrid.Children.Add(PaperBox)
ProcessKey("0"c)
EraseDisplay = True
End Sub
Private Enum Operation
None
Devide
Multiply
Subtract
Add
Percent
Sqrt
OneX
Negate
End Enum
Private _erasediplay As Boolean
Private Property EraseDisplay() As Boolean
Get
Return _erasediplay
End Get
Set(ByVal value As Boolean)
_erasediplay = value
End Set
End Property
Private _mem_val As String
Private Property Memory() As Double
Get
If (_mem_val = String.Empty) Then
Return 0.0
Else
Return Convert.ToDouble(_mem_val)
End If
End Get
Set(ByVal value As Double)
_mem_val = value.ToString()
End Set
End Property
Private _last_val As String
Private Property LastValue() As String
Get
If (_last_val = String.Empty) Then Return "0"
Return _last_val
End Get
Set(ByVal value As String)
_last_val = value
End Set
End Property
Private _display As String
Private Property Display() As String
Get
Return _display
End Get
Set(ByVal value As String)
_display = value
End Set
End Property
Private Sub OnWindowKeyDown(ByVal sender As Object, ByVal e As System.Windows.Input.TextCompositionEventArgs)
Dim s As String = e.Text
Dim c As Char = (s.ToCharArray)(0)
e.Handled = True
If ((AscW(c) >= AscW("0"c) AndAlso AscW(c) <= AscW("9"c)) OrElse c = "."c OrElse c = vbBack) Then
ProcessKey(c)
Return
End If
Select Case (c)
Case "+"c
ProcessOperation("BPlus")
Case "-"c
ProcessOperation("BMinus")
Case "*"c
ProcessOperation("BMultiply")
Case "/"c
ProcessOperation("BDevide")
Case "%"c
ProcessOperation("BPercent")
Case "="c
ProcessOperation("BEqual")
End Select
End Sub
Private Sub DigitBtn_Click(ByVal sender As Object, ByVal e As RoutedEventArgs)
Dim s As String = (DirectCast(sender, Button)).Content.ToString()
Dim ids() As Char = s.ToCharArray()
ProcessKey(ids(0))
End Sub
Private Sub ProcessKey(ByVal c As Char)
If (EraseDisplay) Then
Display = String.Empty
EraseDisplay = False
End If
AddToDisplay(c)
End Sub
Private Sub ProcessOperation(ByVal s As String)
Dim d As Double = 0.0
Select Case s
Case "BPM"
LastOper = Operation.Negate
LastValue = Display
CalcResults()
LastValue = Display
EraseDisplay = True
LastOper = Operation.None
Case "BDevide"
If (EraseDisplay) Then 'stil wait for a digit...
'stil wait for a digit...
LastOper = Operation.Devide
Else
CalcResults()
LastOper = Operation.Devide
LastValue = Display
EraseDisplay = True
End If
Case "BMultiply"
If (EraseDisplay) Then 'stil wait for a digit...
LastOper = Operation.Multiply
Else
CalcResults()
LastOper = Operation.Multiply
LastValue = Display
EraseDisplay = True
End If
Case "BMinus"
If (EraseDisplay) Then 'stil wait for a digit...
LastOper = Operation.Subtract
Else
CalcResults()
LastOper = Operation.Subtract
LastValue = Display
EraseDisplay = True
End If
Case "BPlus"
If (EraseDisplay) Then
'stil wait for a digit...
LastOper = Operation.Add
Else
CalcResults()
LastOper = Operation.Add
LastValue = Display
EraseDisplay = True
End If
Case "BEqual"
If Not (EraseDisplay) Then 'stil wait for a digit...
CalcResults()
EraseDisplay = True
LastOper = Operation.None
LastValue = Display
'val = Display
End If
Case "BSqrt"
LastOper = Operation.Sqrt
LastValue = Display
CalcResults()
LastValue = Display
EraseDisplay = True
LastOper = Operation.None
Case "BPercent"
If (EraseDisplay) Then 'stil wait for a digit...
LastOper = Operation.Percent
Else
CalcResults()
LastOper = Operation.Percent
LastValue = Display
EraseDisplay = True
'LastOper = Operation.None
End If
Case "BOneOver"
LastOper = Operation.OneX
LastValue = Display
CalcResults()
LastValue = Display
EraseDisplay = True
LastOper = Operation.None
Case "BC" 'clear All
LastOper = Operation.None
LastValue = String.Empty
Display = LastValue
Paper.Clear()
UpdateDisplay()
Case "BCE" 'clear entry
LastOper = Operation.None
Display = LastValue
UpdateDisplay()
Case "BMemClear"
Memory = 0.0F
DisplayMemory()
Case "BMemSave"
Memory = Convert.ToDouble(Display)
DisplayMemory()
EraseDisplay = True
Case "BMemRecall"
Display = Memory.ToString()
UpdateDisplay()
EraseDisplay = False
Case "BMemPlus"
d = Memory + Convert.ToDouble(Display)
Memory = d
DisplayMemory()
EraseDisplay = True
End Select
End Sub
Private Sub OperBtn_Click(ByVal sender As Object, ByVal e As RoutedEventArgs)
ProcessOperation(DirectCast(sender, Button).Name.ToString)
End Sub
Private Function Calc(ByVal LastOper As Operation) As Double
Dim d As Double = 0.0
Try
Select Case (LastOper)
Case Operation.Devide
Paper.AddArguments(LastValue + " / " + Display)
d = (Convert.ToDouble(LastValue) / Convert.ToDouble(Display))
CheckResult(d)
Paper.AddResult(d.ToString())
Case Operation.Add
Paper.AddArguments(LastValue + " + " + Display)
d = Convert.ToDouble(LastValue) + Convert.ToDouble(Display)
CheckResult(d)
Paper.AddResult(d.ToString())
Case Operation.Multiply
Paper.AddArguments(LastValue + " * " + Display)
d = Convert.ToDouble(LastValue) * Convert.ToDouble(Display)
CheckResult(d)
Paper.AddResult(d.ToString())
Case Operation.Percent
'Note: this is different (but make more sense) then Windows calculator
Paper.AddArguments(LastValue + " % " + Display)
d = (Convert.ToDouble(LastValue) * Convert.ToDouble(Display)) / 100.0F
CheckResult(d)
Paper.AddResult(d.ToString())
Case Operation.Subtract
Paper.AddArguments(LastValue + " - " + Display)
d = Convert.ToDouble(LastValue) - Convert.ToDouble(Display)
CheckResult(d)
Paper.AddResult(d.ToString())
Case Operation.Sqrt
Paper.AddArguments("Sqrt( " + LastValue + " )")
d = Math.Sqrt(Convert.ToDouble(LastValue))
CheckResult(d)
Paper.AddResult(d.ToString())
Case Operation.OneX
Paper.AddArguments("1 / " + LastValue)
d = 1.0F / Convert.ToDouble(LastValue)
CheckResult(d)
Paper.AddResult(d.ToString())
Case Operation.Negate
d = Convert.ToDouble(LastValue) * (-1.0F)
End Select
Catch
d = 0
Dim parent As Window = DirectCast(MyPanel.Parent, Window)
Paper.AddResult("Error")
MessageBox.Show(Parent, "Operation cannot be perfomed", Parent.Title)
End Try
Return d
End Function
Private Sub CheckResult(ByVal d As Double)
If (Double.IsNegativeInfinity(d) OrElse Double.IsPositiveInfinity(d) OrElse Double.IsNaN(d)) Then
Throw New Exception("Illegal value")
End If
End Sub
Private Sub DisplayMemory()
If (_mem_val <> String.Empty) Then
BMemBox.Text = "Memory: " + _mem_val
Else
BMemBox.Text = "Memory: [empty]"
End If
End Sub
Private Sub CalcResults()
Dim d As Double
If (LastOper = Operation.None) Then Return
d = Calc(LastOper)
Display = d.ToString()
UpdateDisplay()
End Sub
Private Sub UpdateDisplay()
If (Display = String.Empty) Then
DisplayBox.Text = "0"
Else
DisplayBox.Text = Display
End If
End Sub
Private Sub AddToDisplay(ByVal c As Char)
If (c = "."c) Then
If (Display.IndexOf("."c, 0) >= 0) Then Return 'already exists
Display = Display + c
Else
If (AscW(c) >= AscW("0"c) AndAlso AscW(c) <= AscW("9"c)) Then
Display = Display + c
Else
If (c = vbBack) Then 'backspace ?
If (Display.Length <= 1) Then
Display = String.Empty
Else
Dim i As Int32 = Display.Length
Display = Display.Remove(i - 1, 1) 'remove last char
End If
End If
End If
End If
UpdateDisplay()
End Sub
Sub OnMenuAbout(ByVal sender As Object, ByVal e As RoutedEventArgs)
Dim parent As Window = DirectCast(MyPanel.Parent, Window)
MessageBox.Show(Parent, Parent.Title + " - By Jossef Goldberg ", Parent.Title, MessageBoxButton.OK, MessageBoxImage.Information)
End Sub
Sub OnMenuExit(ByVal sender As Object, ByVal e As RoutedEventArgs)
Me.Close()
End Sub
Sub OnMenuStandard(ByVal sender As Object, ByVal e As RoutedEventArgs)
DirectCast(StandardMenu, MenuItem).IsChecked = True 'for now always Standard
End Sub
Sub OnMenuScientific(ByVal sender As Object, ByVal e As RoutedEventArgs)
'((MenuItem)StandardMenu).IsChecked = false
End Sub
Private Class PaperTrail
Private args As String
Public Sub AddArguments(ByVal a As String)
args = a
End Sub
Public Sub AddResult(ByVal r As String)
PaperBox.Text += args + " = " + r + vbNewLine
End Sub
Public Sub Clear()
PaperBox.Text = String.Empty
args = String.Empty
End Sub
End Class
End Class

複製代碼

<Page
xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
xmlns:my="clr-namespace"
x:Class="Page1"
Title="3D Cube Animation Demo"
Loaded="OnLoaded"
>
<Page.Resources>
<Storyboard x:Key="RotateStoryboard">
<ParallelTimeline RepeatBehavior="Forever" Storyboard.TargetName="myRotate" Storyboard.TargetProperty="Angle" >
<DoubleAnimation From="0" To="360" Duration="0:0:30"/>
</ParallelTimeline>
</Storyboard>
<MeshGeometry3D x:Key="PlaneMesh"
Positions="-1 -1 0 1 -1 0 -1 1 0 1 1 0"
Normals="0 0 1 0 0 1 0 0 1 0 0 1"
TextureCoordinates="0 1 1 1 0 0 1 0 "
TriangleIndices="0 1 2 1 3 2" />
<MeshGeometry3D x:Key="CubeMesh"
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 "
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 "
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 "
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 "
/>
<MeshGeometry3D x:Key="CubeInvertedMesh"
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 "
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 "
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 "
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 "
/>
<Transform3DGroup x:Key="CubeMeshTransform">
<Transform3DGroup.Children>
<ScaleTransform3D ScaleX="10" ScaleY="10" ScaleZ="10" />
</Transform3DGroup.Children>
</Transform3DGroup>
<Transform3DGroup x:Key="CubeMeshTransform2">
<Transform3DGroup.Children>
<ScaleTransform3D ScaleX="12" ScaleY="12" ScaleZ="12" />
</Transform3DGroup.Children>
</Transform3DGroup>
</Page.Resources>
<Grid Background="maroon" >
<Grid.ColumnDefinitions>
<ColumnDefinition Width="100"/>
<ColumnDefinition Width="*" />
</Grid.ColumnDefinitions>
<StackPanel>
<Button Click="OnImage1Animate" Height="50" Grid.Column="0" Grid.Row="0">Image 1 animate</Button>
</StackPanel>
<Viewport3D Focusable="true" Name="myViewport3D" ClipToBounds="true" Grid.Column="1" Grid.Row="0" >
<Viewport3D.Camera>
<PerspectiveCamera
Position="0,0,3.0"
LookDirection="0,0,-1"
UpDirection="0,1,0"
NearPlaneDistance="0.25"
FarPlaneDistance="20"
FieldOfView="60" />
</Viewport3D.Camera>
<ModelVisual3D>
<ModelVisual3D.Transform>
<Transform3DGroup>
<Transform3DGroup.Children>
<Transform3DCollection >
<ScaleTransform3D ScaleX="1" ScaleY="1" ScaleZ="1" />
<RotateTransform3D>
<RotateTransform3D.Rotation>
<AxisAngleRotation3D Axis="0 1 0" Angle="0" />
</RotateTransform3D.Rotation>
</RotateTransform3D>
<TranslateTransform3D OffsetX="0" OffsetY="0" OffsetZ="0" />
</Transform3DCollection>
</Transform3DGroup.Children>
</Transform3DGroup>
</ModelVisual3D.Transform>
<ModelVisual3D.Content>
<Model3DGroup >
<Model3DGroup.Transform>
<Transform3DGroup>
<Transform3DGroup.Children>
<Transform3DCollection >
<ScaleTransform3D ScaleX="0.1" ScaleY="0.1" ScaleZ="0.1" />
<RotateTransform3D>
<RotateTransform3D.Rotation>
<AxisAngleRotation3D Axis="0 1 0" Angle="0" />
</RotateTransform3D.Rotation>
</RotateTransform3D>
<TranslateTransform3D OffsetX="0" OffsetY="0" OffsetZ="0" />
</Transform3DCollection>
</Transform3DGroup.Children>
</Transform3DGroup>
</Model3DGroup.Transform>
<Model3DGroup.Children>
<Model3DGroup >
<Model3DGroup.Transform>
<Transform3DGroup>
<Transform3DGroup.Children>
<Transform3DCollection >
<ScaleTransform3D ScaleX="1" ScaleY="1" ScaleZ="1" />
<RotateTransform3D >
<RotateTransform3D.Rotation >
<AxisAngleRotation3D x:Name="myRotate" Axis="1 0 0" Angle="0" />
</RotateTransform3D.Rotation>
</RotateTransform3D>
<TranslateTransform3D OffsetX="0" OffsetY="0" OffsetZ="0" />
</Transform3DCollection>
</Transform3DGroup.Children>
</Transform3DGroup>
</Model3DGroup.Transform>
<Model3DGroup.Children>
<GeometryModel3D Transform="{StaticResource CubeMeshTransform}" Geometry="{StaticResource CubeMesh}" >
<GeometryModel3D.Material>
<MaterialGroup>
<MaterialGroup.Children>
<EmissiveMaterial>
<EmissiveMaterial.Brush>
<ImageBrush ImageSource="roundcornersheet.png">
<ImageBrush.Transform>
<TransformGroup>
<TransformGroup.Children>
<RotateTransform CenterX="0.5" CenterY="0.5" Angle="0" />
</TransformGroup.Children>
</TransformGroup>
</ImageBrush.Transform>
</ImageBrush>
</EmissiveMaterial.Brush>
</EmissiveMaterial>
</MaterialGroup.Children>
</MaterialGroup>
</GeometryModel3D.Material>
<GeometryModel3D.BackMaterial>
<MaterialGroup>
<MaterialGroup.Children>
<EmissiveMaterial>
<EmissiveMaterial.Brush>
<ImageBrush ImageSource="roundcornersheet.png">
<ImageBrush.Transform>
<TransformGroup>
<TransformGroup.Children>
<RotateTransform CenterX="0.5" CenterY="0.5" Angle="0" />
</TransformGroup.Children>
</TransformGroup>
</ImageBrush.Transform>
</ImageBrush>
</EmissiveMaterial.Brush>
</EmissiveMaterial>
</MaterialGroup.Children>
</MaterialGroup>
</GeometryModel3D.BackMaterial>
</GeometryModel3D>
<GeometryModel3D Transform="{StaticResource CubeMeshTransform2}" Geometry="{StaticResource CubeMesh}" >
<GeometryModel3D.Material>
<MaterialGroup>
<MaterialGroup.Children>
<EmissiveMaterial>
<EmissiveMaterial.Brush>
<ImageBrush ImageSource="roundcornersheet.png">
<ImageBrush.Transform>
<TransformGroup>
<TransformGroup.Children>
<RotateTransform CenterX="0.5" CenterY="0.5" Angle="0" />
</TransformGroup.Children>
</TransformGroup>
</ImageBrush.Transform>
</ImageBrush>
</EmissiveMaterial.Brush>
</EmissiveMaterial>
</MaterialGroup.Children>
</MaterialGroup>
</GeometryModel3D.Material>
<GeometryModel3D.BackMaterial>
<MaterialGroup>
<MaterialGroup.Children>
<EmissiveMaterial>
<EmissiveMaterial.Brush>
<ImageBrush ImageSource="roundcornersheet.png">
<ImageBrush.Transform>
<TransformGroup>
<TransformGroup.Children>
<RotateTransform CenterX="0.5" CenterY="0.5" Angle="0" />
</TransformGroup.Children>
</TransformGroup>
</ImageBrush.Transform>
</ImageBrush>
</EmissiveMaterial.Brush>
</EmissiveMaterial>
</MaterialGroup.Children>
</MaterialGroup>
</GeometryModel3D.BackMaterial>
</GeometryModel3D>
</Model3DGroup.Children>
</Model3DGroup>
<Model3DGroup>
<Model3DGroup.Children>
<AmbientLight Color="#ffcccccc"/>
<DirectionalLight Color="LightGray" Direction="-1,-1,-1" />
</Model3DGroup.Children>
</Model3DGroup>
</Model3DGroup.Children>
</Model3DGroup>
</ModelVisual3D.Content>
</ModelVisual3D>
</Viewport3D>
</Grid>
</Page>

複製代碼

Option Strict On
Option Explicit On
Imports System
Imports System.Collections.Generic
Imports System.Windows
Imports System.Windows.Input
Imports System.Windows.Controls
Imports System.Windows.Media
Imports System.Windows.Media.Media3D
Public Class Trackball
Public Sub New()
Dim _translate As Vector3D = New Vector3D(0, 0, 0)
Dim _translateDelta As Vector3D = New Vector3D(0, 0, 0)
Reset()
End Sub
Private _center As Vector3D
Private _centered As Boolean
Private _scale As Double
Private _translate As Vector3D
Private _rotation As Quaternion
Private _slaves As List(Of Viewport3D)
Private _scaling As Boolean
Private _scaleDelta As Double
Private _rotationDelta As Quaternion
Private _point As Point
Private _translateDelta As Vector3D
Private _rotating As Boolean
Private _translating As Boolean
Public Sub Attach(ByVal element As FrameworkElement)
With element
AddHandler .MouseMove, AddressOf Me.MouseMoveHandler
AddHandler .MouseRightButtonDown, AddressOf Me.MouseDownHandler
AddHandler .MouseRightButtonUp, AddressOf Me.MouseUpHandler
AddHandler .MouseWheel, AddressOf Me.OnMouseWheel
End With
End Sub
Public Sub Detach(ByVal element As FrameworkElement)
With element
RemoveHandler .MouseMove, AddressOf Me.MouseMoveHandler
RemoveHandler .MouseRightButtonDown, AddressOf Me.MouseDownHandler
RemoveHandler .MouseRightButtonUp, AddressOf Me.MouseUpHandler
RemoveHandler .MouseWheel, AddressOf Me.OnMouseWheel
End With
End Sub
Public Property slaves() As List(Of Viewport3D)
Get
If (_slaves Is Nothing) Then _slaves = New List(Of Viewport3D)
Return _slaves
End Get
Set(ByVal value As List(Of Viewport3D))
_slaves = value
End Set
End Property
Private _enabled As Boolean
Public Property Enabled() As Boolean
Get
Return _enabled AndAlso (_slaves IsNot Nothing) AndAlso (_slaves.Count > 0)
End Get
Set(ByVal value As Boolean)
_enabled = value
End Set
End Property
Private Sub UpdateSlaves(ByVal q As Quaternion, ByVal s As Double, ByVal t As Vector3D)
If (_slaves IsNot Nothing) Then
For Each i As Viewport3D In _slaves
Dim mv As ModelVisual3D = DirectCast(i.Children(0), ModelVisual3D)
Dim t3dg As Transform3DGroup = DirectCast(mv.Transform, Transform3DGroup)
Dim _GroupScaleTransform As ScaleTransform3D = DirectCast(t3dg.Children(0), ScaleTransform3D)
Dim _GroupRotateTransform As RotateTransform3D = DirectCast(t3dg.Children(1), RotateTransform3D)
Dim _GroupTranslateTransform As TranslateTransform3D = DirectCast(t3dg.Children(2), TranslateTransform3D)
_GroupScaleTransform.ScaleX = s
_GroupScaleTransform.ScaleY = s
_GroupScaleTransform.ScaleZ = s
_GroupRotateTransform.Rotation = New AxisAngleRotation3D(q.Axis, q.Angle)
_GroupTranslateTransform.OffsetX = t.X
_GroupTranslateTransform.OffsetY = t.Y
_GroupTranslateTransform.OffsetZ = t.Z
Next i
End If
End Sub
Private Sub Reset()
_rotation = New Quaternion(0, 0, 0, 1)
_scale = 1
_translate.X = 0
_translate.Y = 0
_translate.Z = 0
_translateDelta.X = 0
_translateDelta.Y = 0
_translateDelta.Z = 0
_rotationDelta = Quaternion.Identity
_scaleDelta = 1
UpdateSlaves(_rotation, _scale, _translate)
End Sub
Private Sub MouseMoveHandler(ByVal sender As Object, ByVal e As System.Windows.Input.MouseEventArgs)
If Not Enabled Then Return
e.Handled = True
Dim el As UIElement = DirectCast(sender, UIElement)
If el.IsMouseCaptured Then
Dim delta As Vector = _point - e.MouseDevice.GetPosition(el)
Dim t As Vector3D = New Vector3D
delta /= 2
Dim q As Quaternion = _rotation
If (_rotating = True) Then
Dim mouse As Vector3D = New Vector3D(delta.X, -delta.Y, 0)
Dim axis As Vector3D = Vector3D.CrossProduct(mouse, New Vector3D(0, 0, 1))
Dim len As Double = axis.Length
If (len < 0.00001 OrElse _scaling) Then
_rotationDelta = New Quaternion(New Vector3D(0, 0, 1), 0)
Else
_rotationDelta = New Quaternion(axis, len)
End If
q = _rotationDelta * _rotation
Else
delta /= 20
_translateDelta.X = delta.X * -1
_translateDelta.Y = delta.Y
End If
t = _translate + _translateDelta
UpdateSlaves(q, _scale * _scaleDelta, t)
End If
End Sub
Private Sub MouseDoubleClickHandler(ByVal sender As Object, ByVal e As MouseButtonEventArgs)
Reset()
End Sub
Private Sub MouseUpHandler(ByVal sender As Object, ByVal e As MouseButtonEventArgs)
If (Not _enabled) Then Return
e.Handled = True
If (_rotating = True) Then
_rotation = _rotationDelta * _rotation
Else
_translate += _translateDelta
_translateDelta.X = 0
_translateDelta.Y = 0
End If
Dim el As UIElement = DirectCast(sender, UIElement)
el.ReleaseMouseCapture()
End Sub
Sub OnMouseWheel(ByVal sender As Object, ByVal e As System.Windows.Input.MouseWheelEventArgs)
e.Handled = True
_scaleDelta += (e.Delta / 1000)
Dim q As Quaternion = _rotation
UpdateSlaves(q, _scale * _scaleDelta, _translate)
End Sub
Private Sub MouseDownHandler(ByVal sender As Object, ByVal e As MouseButtonEventArgs)
If Not Enabled Then Return
e.Handled = True
If (Keyboard.IsKeyDown(Key.F1) = True) Then
Reset()
Return
End If
Dim el As UIElement = DirectCast(sender, UIElement)
_point = e.MouseDevice.GetPosition(el)
If (Not _centered) Then
Dim camera As ProjectionCamera = DirectCast(_slaves(0).Camera, ProjectionCamera)
_center = camera.LookDirection
_centered = True
End If
_scaling = (e.MiddleButton = MouseButtonState.Pressed)
If (Keyboard.IsKeyDown(Key.Space) = False) Then
_rotating = True
Else
_rotating = False
End If
el.CaptureMouse()
End Sub
End Class

複製代碼

Option Strict On
Option Explicit On
Imports System
Imports System.Data
Imports System.Windows
Imports System.Windows.Data
Imports System.Configuration
Imports System.Windows.Media
Imports System.Windows.Media.Media3D
Imports System.Windows.Media.Animation
Imports System.Windows.Media.Imaging
Imports System.Reflection
Imports System.Windows.Controls
Imports System.Windows.Input
Imports System.Windows.Threading
Imports System.IO
Public Class Page1
Dim _trackball As Trackball
Private Sub OnLoaded(ByVal sender As Object, ByVal e As EventArgs)
_trackball = New Trackball()
_trackball.Attach(Me)
_trackball.Slaves.Add(myViewport3D)
_trackball.Enabled = True
End Sub
Private Sub OnImage1Animate(ByVal sender As Object, ByVal e As RoutedEventArgs)
Dim s As Storyboard
s = DirectCast(Me.FindResource("RotateStoryboard"), Storyboard)
Me.BeginStoryboard(s)
End Sub
End Class

複製代碼

Dim gd As Grid
Private Sub Window1_Loaded(ByVal sender As Object, ByVal e As System.Windows.RoutedEventArgs) Handles Me.Loaded
gd = New Grid
Me.Title = "Grid Test"
''設定Form的大小跟Content的長、寬是一樣的
Me.SizeToContent = Windows.SizeToContent.WidthAndHeight
Me.Content = gd
''為了方面觀看變化，我們把隔線設定為顯示
gd.ShowGridLines = True
''為了範例需要我們把新增欄、列的新增跟按鈕的新增分開處理
For iRow As Integer = 0 To 4
''新增Grid的列
Dim rd = New RowDefinition
If iRow = 4 Then
''最後一列為了展示跨越欄位的button，這邊做特殊設定
''可以自行修改看看GridUnitType的部分看看有什麼不同
rd.Height = New GridLength(100, GridUnitType.Star)
Else
rd.Height = GridLength.Auto
End If
gd.RowDefinitions.Add(rd)
Next
For iCol As Integer = 0 To 4
''新增Grid的欄
Dim cd As New ColumnDefinition
If iCol = 4 Then
cd.Width = New GridLength(100, GridUnitType.Star)
Else
cd.Width = GridLength.Auto
End If
gd.ColumnDefinitions.Add(cd)
Next
For z As Integer = 0 To 3
For x As Integer = 0 To 3
Dim btn As New Button
btn.Name = "Button" & z & "_" & x
btn.Content = "Button " & z & "-" & x
btn.Margin = New Thickness(2)
Grid.SetColumn(btn, x)
Grid.SetRow(btn, z)
gd.Children.Add(btn)
Next
Next
Dim btnBig As New Button
btnBig.Name = "btnBig"
btnBig.Content = "Big Button"
btnBig.Margin = New Thickness(2)
Grid.SetRow(btnBig, 4)
Grid.SetColumn(btnBig, 0)
''設定跨越Grid的三格，如果是跨越Row的話是用SetRowSpan
Grid.SetColumnSpan(btnBig, 3)
gd.Children.Add(btnBig)
End Sub

複製代碼