c# - mouseposition - Ajustar a la rejilla del mouse bloqueando

mousemove visual basic

Question

Estoy trabajando en una aplicación que dibuja una cuadrícula de puntos simple. Me gustaría que el mouse se ajuste entre los puntos de la grilla, eventualmente para dibujar líneas en la grilla.

Tengo un método que toma la ubicación actual del mouse (X, Y) y calcula la coordenada de la cuadrícula más cercana.

Cuando creo un evento e intento mover el mouse a la nueva coordenada, todo el sistema se vuelve desigual. El mouse no se ajusta sin problemas entre los puntos de la grilla.

He copiado un ejemplo de código a continuación para ilustrar lo que intento hacer. ¿Alguien tiene algún consejo que puedan ofrecerme sobre cómo puedo eliminar el nerviosismo dentro del movimiento del mouse?

using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Linq;
using System.Text;
using System.Windows.Forms;

namespace GridTest
{
    public partial class Form1 : Form
    {
        Graphics g;
        const int gridsize = 20;

        public Form1()
        {
            InitializeComponent();
            g = splitContainer1.Panel2.CreateGraphics();
            splitContainer1.Panel2.Invalidate();
        }

        private void splitContainer1_Panel2_Paint(object sender, PaintEventArgs e)
        {
            Drawgrid();
        }

        private void Drawgrid()
        {
            for (int x = 0; x < splitContainer1.Panel2.ClientSize.Width; x += gridsize)
            {
                for (int y = 0; y < splitContainer1.Panel2.ClientSize.Height; y += gridsize)
                { g.DrawLine(Pens.Black, new Point(x, y), new Point(x + 1, y)); }
            }
        }

        private void splitContainer1_Panel2_MouseMove(object sender, MouseEventArgs e)
        {
            Point newPosition = new Point();
            newPosition = RoundToNearest(gridsize, e.Location);
            Cursor.Position = splitContainer1.Panel2.PointToScreen(newPosition);
        }

        private Point RoundToNearest(int nearestRoundValue, Point currentPoint)
        {
            Point newPoint = new Point();
            int lastDigit;

            lastDigit = currentPoint.X % nearestRoundValue;

            if (lastDigit >= (nearestRoundValue/2))
            { newPoint.X = currentPoint.X - lastDigit + nearestRoundValue; }
            else
            { newPoint.X = currentPoint.X - lastDigit; }

            lastDigit = currentPoint.Y % nearestRoundValue;
            if (lastDigit >= (nearestRoundValue / 2))
            { newPoint.Y = currentPoint.Y - lastDigit + nearestRoundValue; }
            else
            { newPoint.Y = currentPoint.Y - lastDigit; }

            return newPoint;
        }
    }
}

Answer 1

Estoy de acuerdo con ruijoel, no te metas con la posición del cursor. Es mejor tener una cruz o un anillo que se dibuja en el punto de inicio para mostrar al usuario qué punto es el que se ajustará en un evento de clic.

Para que esto funcione bien, es posible que desee ver xor-drawing para que ese elemento se borre una vez que se mueva a un nuevo punto de ajuste.

Answer 2

El mouse sigue moviéndose al mismo punto si intenta moverlo, porque aún está más cerca de ese punto ... Si mueve el mouse hacia la izquierda, mueva el cursor al punto a la izquierda del actual en lugar de volver a calcular la corriente. Solicite las otras 3 direcciones ...

Sin embargo, no recomendaría este comportamiento, causará mucha irritación. Ajuste sus controles a la cuadrícula, no al mouse.

Answer 3

Creo que entiendo de dónde vienes. Simplemente necesita estar fuera del punto de referencia original (el clic izquierdo del mouse) antes de ajustar al nuevo punto.

Aquí hay 50 líneas de código que ilustran lo que quiero decir: (Inicie un nuevo proyecto VB.NET, agregue un nuevo módulo, copie y pegue el código, agregue una referencia, a System, System.drawing y System.Windows.Forms)

Imports System
Imports System.Drawing
Imports System.Windows.Forms

Module modSnap

    Public Const strApplicationTitle As String = "Snap Demo"
    Public frmSnap As SnapForm
    Public ptSnap, ptStart, ptEnd As Point

    Public Class SnapForm
        Inherits Form
        Public Sub New()
            Me.Text = "Snap Demo"
            Me.ClientSize = New Size(800, 600)
            Me.FormBorderStyle = Windows.Forms.FormBorderStyle.FixedSingle
            Me.MaximizeBox = False
            Me.StartPosition = FormStartPosition.CenterScreen
            Me.DoubleBuffered = True
        End Sub
        Protected Overrides Sub OnPaint(ByVal e As System.Windows.Forms.PaintEventArgs)
            MyBase.OnPaint(e)
            e.Graphics.Clear(Color.Black)
            For row As Integer = 20 To 780 Step 20
                For col As Integer = 20 To 580 Step 20
                    e.Graphics.DrawEllipse(Pens.Blue, New Rectangle(row - 2, col - 2, 4, 4))
                Next
            Next
            e.Graphics.DrawLine(Pens.Red, ptStart, ptEnd)
        End Sub
        Protected Overrides Sub OnMouseDown(ByVal e As System.Windows.Forms.MouseEventArgs)
            MyBase.OnMouseDown(e)
            Dim x As Integer = CInt(e.X / 20) * 20
            Dim y As Integer = CInt(e.Y / 20) * 20
            ptStart = New Point(x, y)
            ptSnap = New Point(x, y)
            Windows.Forms.Cursor.Position = Me.PointToScreen(ptSnap)
        End Sub
        Protected Overrides Sub OnMouseMove(ByVal e As System.Windows.Forms.MouseEventArgs)
            MyBase.OnMouseMove(e)
            If e.Button = Windows.Forms.MouseButtons.Left Then
                Dim x As Integer = CInt(e.X / 20) * 20
                Dim y As Integer = CInt(e.Y / 20) * 20
                '' must be some delta away from original snap point
                If (x < ptSnap.X - 15 Or x > ptSnap.X + 15) Or (y < ptSnap.Y - 15 Or y > ptSnap.Y + 15) Then
                    ptSnap = New Point(x, y)
                    ptEnd = New Point(x, y)
                    Me.Invalidate(False)
                    Windows.Forms.Cursor.Position = Me.PointToScreen(ptSnap)
                End If
            End If
        End Sub
    End Class

    Public Sub main()
        Try
            frmSnap = New SnapForm
            Application.Run(frmSnap)
        Catch ex As Exception
            MessageBox.Show(ex.Message, strApplicationTitle, MessageBoxButtons.OK, MessageBoxIcon.Error)
        Finally
            frmSnap.Dispose()
        End Try
    End Sub

End Module

Answer 4

No modifique la posición del cursor. No es necesario.

En cambio, dibuja como si estuviera enganchado a la cuadrícula. Cuando el usuario hace clic en algún lugar, simplemente dibuje la línea desde los puntos de cuadrícula más cercanos.

Por ejemplo, si el usuario hace clic en (197,198), pero usted sabe que el punto más cercano en realidad es (200,200), simplemente trace una línea a (200,200) en lugar de (197,198).

Y por favor, no te metas con la posición actual del cursor.

No sé si hay alguna forma de ocultar el cursor del mouse. Si lo hay, puedes ocultarlo y dibujarlo tú mismo, sin modificar la posición real .