Как изменить вид курсора - VB

Формулировка задачи:

Как можно изменить вид указателя формы в зависимости от его положения на форме: если укуазатель выше диагонали (из верхнего правого угла к нижнему левому) он имеет одну форму, если выше - другую. Как-то надо найти координаты прямой (диагонали). Но как? По ур-нию прямой у=кх? Там коефициет к=Form1.Height / Form1.Width. Но как это и куда правильно применить? Вот что придумалось
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Y > (Form1.Height / Form1.Width) * X Then Form1.MousePointer = 15
If Y < (Form1.Height / Form1.Width) * X Then Form1.MousePointer = 11
End Sub
Но с мышкой творятся ужасные вещи - она не меняется правильно. Что возможно вставить в условие?

Код к задаче: «Как изменить вид курсора - VB»

textual
Private Sub Form_Load()
'Коэффициент диагонали клиентской области формы. ~550 - высота заголовка в твипах 
k = Me.Width / (Me.Height - 550)
End Sub
 
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
On Error Resume Next
If X / Y < k Then
Me.MousePointer = 11
Else
Me.MousePointer = 15
End If
End Sub
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

13   голосов, оценка 4.308 из 5


СДЕЛАЙТЕ РЕПОСТ