Зафиксировать курсор в центре пересечения линий

~~Release~~ · 11.08.2012, 22:15. **Показов** 1934. **Ответов** 10

Author24 — интернет-сервис помощи студентам

Всем привет) Вот такая проблема. Кто знает программу FastStone Capture тот видел, при скрине выделенной области есть две линии, которые передвигаются за курсором.
Мне нужно создать такую же. Добавил два объекта LineShape. И написал такой код :

VB.NET

Dim a, b As Integer
    Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove
        a = MousePosition.X - Location.X
        b = MousePosition.Y - Location.Y
        LineShape1.Y1 = b
        LineShape1.Y2 = b
        LineShape2.X1 = a
        LineShape2.X2 = a
    End Sub

Все работает хорошо, только курсор выше этих линий. Возможно ли сделать, чтоб курсор был в середине пересечений этих линий, как в программе FastStone Capture.
Если вы меня не поняли то поглядите вложенный архив в котором сам экзешник , может тогда более поймете что я хочу сделать.
Прятать курсор не вариант.

@PAnT0P · 11.08.2012, 22:36

VB.NET

    Dim a, b As Integer
 
    Private Sub Form1_MouseMove(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove
        a = e.X
        b = e.Y
        LineShape1.Y1 = b
        LineShape1.Y2 = b
        LineShape2.X1 = a
        LineShape2.X2 = a
    End Sub
 
    Private Sub Form1_SizeChanged(sender As Object, e As System.EventArgs) Handles Me.SizeChanged
        LineShape1.X1 = 0
        LineShape1.X2 = Me.Width
        LineShape2.Y1 = 0
        LineShape2.Y2 = Me.Height
    End Sub
 
    Private Sub LineShape1_MouseMove(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles LineShape1.MouseMove
        Call Form1_MouseMove(sender, e)
    End Sub
 
    Private Sub LineShape2_MouseMove(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles LineShape2.MouseMove
        Call Form1_MouseMove(sender, e)
    End Sub

~~Release~~ · 11.08.2012, 22:46 **[ТС]**

Мало что изменилось. Курсор выше LineShape1. С LineShape2 он двигается вместе

Eugene22 · 11.08.2012, 22:58

Release, хочешь сделать наподобие что-то наподобие прицела?

@PAnT0P · 11.08.2012, 23:14

Сообщение от Release

Мало что изменилось. Курсор выше LineShape1. С LineShape2 он двигается вместе

Посмотри внимательней код, линии пересекаются точно под курсором, только слегка запаздывают при движении.
PS. Линии мерцают из-за видеозахвата.

~~Release~~ · 11.08.2012, 23:38 **[ТС]**

Eugene22, Ну да) Похоже, но не прицел.

Добавлено через 13 минут
PAnT0P, почему то не получается воспроизвести твое видео.

Добавлено через 5 минут
Погляди мое видео как у меня получается

@PAnT0P · 12.08.2012, 00:52

Посмотри мою форму

~~Release~~ · 12.08.2012, 01:12 **[ТС]**

Вооо) Спасибо большое!

@DenisWD94 · 12.08.2012, 03:15

Таймер установлен на 20 мс

VB.NET

Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        LineShape1.X1 = 0 : LineShape1.Y1 = 0 : LineShape1.X2 = 0 : LineShape1.Y2 = Me.Height
        LineShape2.X1 = 0 : LineShape2.Y1 = 0 : LineShape2.X2 = Me.Width : LineShape2.Y2 = 0
        Timer1.Enabled = True
    End Sub
    Private Sub Form1_SizeChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.SizeChanged
        LineShape1.Y2 = Me.Height : LineShape2.X2 = Me.Width 
    End Sub
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        LineShape1.X1 = Form1.MousePosition.X - Me.Left - 8 : LineShape1.X2 = LineShape1.X1
        LineShape2.Y1 = Form1.MousePosition.Y - Me.Top - 28 : LineShape2.Y2 = LineShape2.Y1
    End Sub
End Class

Значения (-8) , (-28) уже сам подрегулируешь

VB.NET

1 2	LineShape1.X1 = Form1.MousePosition.X - Me.Left - 8 : LineShape1.X2 = LineShape1.X1 LineShape2.Y1 = Form1.MousePosition.Y - Me.Top - 28 : LineShape2.Y2 = LineShape2.Y1

~~Release~~ · 13.08.2012, 16:26 **[ТС]**

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

@PAnT0P · 13.08.2012, 18:58

Ловкость рук и ни какого мошейничества

~~Release~~ Заблокирован
	11.08.2012, 22:46 [ТС]	3
	Мало что изменилось. Курсор выше LineShape1. С LineShape2 он двигается вместе 0

Eugene22 _ 2364 / 1243 / 78 Регистрация: 28.10.2009 Сообщений: 4,331
	11.08.2012, 22:58	4
	Release, хочешь сделать наподобие что-то наподобие прицела? 0

~~Release~~ Заблокирован
	11.08.2012, 23:38 [ТС]	6
	Eugene22, Ну да) Похоже, но не прицел. Добавлено через 13 минут PAnT0P, почему то не получается воспроизвести твое видео. Добавлено через 5 минут Погляди мое видео как у меня получается 0

~~Release~~ Заблокирован
	12.08.2012, 01:12 [ТС]	8
	Вооо) Спасибо большое! 0

~~Release~~ Заблокирован
	13.08.2012, 16:26 [ТС]	10
	PAnT0P, При быстро движении мышки получается не большое притормаживание. Возможно ли это исправить? 0

	13.08.2012, 18:58