在看書的過程中，好幾次看到"run"這個東西，還滿有趣的，可以將文字切割開來，而且各自擁有其對應的"事件"，簡單測試一下當滑鼠移動到字的上方改變字的顏色以及大小，執行結果像是這樣
在看書的過程中，好幾次看到"run"這個東西，還滿有趣的，可以將文字切割開來，而且各自擁有其對應的"事件"，簡單測試一下當滑鼠移動到字的上方改變字的顏色以及大小，執行結果像是這樣
下面就來看看測試的程式碼吧
Class Window1
Dim sp As StackPanel
Dim txtBlock As TextBlock
Private Sub Window1_Loaded(ByVal sender As System.Object, ByVal e As System.Windows.RoutedEventArgs) Handles MyBase.Loaded
sp = New StackPanel
Me.Content = sp
txtBlock = New TextBlock
txtBlock.Height = 300
txtBlock.Width = 300
txtBlock.HorizontalAlignment = Windows.HorizontalAlignment.Center
txtBlock.Background = Brushes.AliceBlue
txtBlock.FontSize = 32
sp.Children.Add(txtBlock)
Dim strArr() As String = {"T", "H", "I", "S", " ", "A", " ", "B", "O", "O", "K"}
For Each s As String In strArr
Dim runTmp As New Run(s)
runTmp.TextDecorations = New TextDecorationCollection
txtBlock.Inlines.Add(runTmp)
txtBlock.Inlines.Add(" ")
AddHandler runTmp.MouseEnter, AddressOf Run_OnMouseEnter
AddHandler runTmp.MouseLeave, AddressOf Run_OnMouseLeave
Next
AddHandler txtBlock.MouseDown, AddressOf TxtBlock_OnClick
End Sub
Protected Sub TxtBlock_OnClick(ByVal sender As Object, ByVal e As MouseButtonEventArgs)
Dim tmpR As Run
tmpR = CType(e.Source, Run)
If tmpR.FontStyle = FontStyles.Italic Then
tmpR.FontStyle = FontStyles.Normal
Else
tmpR.FontStyle = FontStyles.Italic
End If
End Sub
Protected Sub Run_OnMouseEnter(ByVal sender As Object, ByVal e As MouseEventArgs)
CType(e.Source, Run).FontSize = 48
CType(e.Source, Run).Foreground = Brushes.DeepPink
End Sub
Protected Sub Run_OnMouseLeave(ByVal sender As Object, ByVal e As MouseEventArgs)
CType(e.Source, Run).FontSize = 32
CType(e.Source, Run).Foreground = Me.Foreground
End Sub
End Class
