XAML
'===================================================
xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
Title="Window1" Height="600" Width="600" MouseWheel="Window_MouseWheel" >
程式碼
'===================================================
Private Sub Window_MouseWheel(ByVal sender As System.Object, ByVal e As System.Windows.Input.MouseWheelEventArgs)
If e.Delta > 0 Then
Me.Title = "往上滾動"
Else
Me.Title = "往下滾動"
End If
End Sub
沒有留言:
張貼留言