Блог

В следующем примере кода рисуются три прямоугольника и изменяется тип курсора на ручной/по умолчанию, если мышь находится внутри/снаружи прямоугольных областей соответственно. Программа выполняется по назначению, за одним исключением: при нахождении внутри области мышь мигает при перемещении.

Проведя расследование, кажется, что проблема может быть связана с противоречием между моим кодом и базовым элементом управления в отношении того, какой тип мыши следует отображать, что приводит к мерцанию. Правильно это или нет, к сожалению, я не смог решить эту проблему. Пожалуйста, вы можете помочь?

 Imports System.Drawing.Drawing2D

Public Class Form1
    Private myRectangles() As Rectangle
    Private myRegions(2) As Region

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        ' Write an array of rectangles.
        myRectangles = {New Rectangle(100, 100, 50, 50), New Rectangle(200, 200, 50, 50), New Rectangle(300, 300, 50, 50)}

        ' Write an array of rectangle regions.
        For i As Integer = 0 To myRegions.length - 1
            Dim myPath As New GraphicsPath
            myPath.AddRectangle(myRectangles(i))

            Dim myRegion As New Region(myPath)
            myRegions(i) = myRegion
        Next
    End Sub

    Private Sub Form1_MouseMove(sender As Object, e As MouseEventArgs) Handles Me.MouseMove
        ' Iterate myRegions to check if the mouse is over a region.
        For i As Integer = 0 To myRegions.Count - 1
            Dim IsHit As Boolean = myRegions(i).IsVisible(e.Location)

            If IsHit Then
                Cursor.Current = Cursors.Hand
                Exit For
            Else
                Cursor.Current = Cursors.Default
            End If
        Next
    End Sub

    Private Sub Form1_Paint(sender As Object, e As PaintEventArgs) Handles Me.Paint
        ' Paint myRectangles.
        For i As Integer = 0 To myRegions.Length - 1
            e.Graphics.DrawRectangle(New Pen(Color.Black, 1), myRectangles(i))
        Next
    End Sub
End Class
 

EDIT1: Вышеприведенный подраздел MouseMove можно упростить до следующего:

 Private Sub Form1_MouseMove(sender As Object, e As MouseEventArgs) Handles Me.MouseMove
    ' Check if the mouse is located within any region.
    Dim isHit As Boolean = myRegions.Any(Function(p) p.IsVisible(e.Location))

    If isHit Then
        Cursor.Current = Cursors.Hand
    Else
        Cursor.Current = Cursors.Default
    End If
End Sub
 

ПРАВКА2: Пересмотренный полный код:

 Imports System.Drawing.Drawing2D

Public Class Form1
    Private myRectangles() As Rectangle
    Private myGraphicsPaths As New List(Of GraphicsPath)

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        ' Write a graphics path list of rectangles.
        myRectangles = {New Rectangle(100, 100, 50, 50), New Rectangle(200, 200, 50, 50), New Rectangle(300, 300, 50, 50)}

        For i As Integer = 0 To myRectangles.Length - 1
            Dim myPath As New GraphicsPath
            myPath.AddRectangle(myRectangles(i))
            myGraphicsPaths.Add(myPath)
        Next
    End Sub

    Private Sub Form1_MouseMove(sender As Object, e As MouseEventArgs) Handles Me.MouseMove
        ' Check if the mouse is located within any graphicspath.
        Dim isHit As Boolean = myGraphicsPaths.Any(Function(p) p.IsVisible(e.Location))

        If isHit And Cursor.Current IsNot Cursors.Hand Then
            Cursor.Current = Cursors.Hand
        Else
            Cursor.Current = Cursors.Default
        End If
    End Sub

    Private Sub Form1_Paint(sender As Object, e As PaintEventArgs) Handles Me.Paint
        ' Paint myRectangles.
        For i As Integer = 0 To myRectangles.Length - 1
            e.Graphics.DrawRectangle(New Pen(Color.Black, 1), myRectangles(i))
        Next
    End Sub
End Class