silverlight 5开发【vb版】（6)-鼠标滚轮事件

最新推荐文章于 2024-09-21 10:43:41 发布

deepfuture

最新推荐文章于 2024-09-21 10:43:41 发布

阅读量191

点赞数

分类专栏： .net&silverlight

.net&silverlight 专栏收录该内容

58 篇文章

订阅专栏

本文介绍了一个使用Visual Basic编写的示例程序，演示了如何通过鼠标滚轮事件改变Label控件的内容。该程序还包含了处理鼠标点击和其他鼠标事件的方法。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

        If e.Delta > 0 Then
            Label3.Content = Label3.Content + 1
        Else
            Label3.Content = Label3.Content - 1
        End If

e.Delta > 0表示向上滚，否则为向下滚

接上节，完整代码如下：

Partial Public Class MainPage
    Inherits UserControl
    Private currentlocation As Point
    Public Sub New()
        InitializeComponent()
    End Sub

    Private Sub Button1_Click(sender As System.Object, e As System.Windows.RoutedEventArgs) Handles Button1.Click
        Label1.Content = "您好，" & TextBox1.Text & "!"
    End Sub

    Private Sub LayoutRoot_MouseMove(sender As System.Object, e As System.Windows.Input.MouseEventArgs) Handles LayoutRoot.MouseMove
        currentlocation = e.GetPosition(LayoutRoot)
        Label2.Content = "现在鼠标的坐标是:(" & currentlocation.X.ToString() & "," & currentlocation.Y.ToString() & ")"
    End Sub

    Private Sub LayoutRoot_MouseLeftButtonDown(sender As System.Object, e As System.Windows.Input.MouseButtonEventArgs) Handles LayoutRoot.MouseLeftButtonDown
        MessageBox.Show("您按了左键")
    End Sub

    Private Sub LayoutRoot_MouseRightButtonDown(sender As System.Object, e As System.Windows.Input.MouseButtonEventArgs) Handles LayoutRoot.MouseRightButtonDown
        MessageBox.Show("您按了右键")
    End Sub

    Private Sub Label3_MouseWheel(sender As System.Object, e As System.Windows.Input.MouseWheelEventArgs) Handles Label3.MouseWheel
        If e.Delta > 0 Then
            Label3.Content = Label3.Content + 1
        Else
            Label3.Content = Label3.Content - 1
        End If

    End Sub
End Class

截图如下：

当鼠标滚轮在label控件中活动时，事件发生，这里的例子是使label控件中的值变大或变小