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

Узнай цену своей работы

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

Как можно изменить вид указателя формы в зависимости от его положения на форме: если укуазатель выше диагонали (из верхнего правого угла к нижнему левому) он имеет одну форму, если выше - другую. Как-то надо найти координаты прямой (диагонали). Но как? По ур-нию прямой у=кх? Там коефициет к=Form1.Height / Form1.Width. Но как это и куда правильно применить? Вот что придумалось
Но с мышкой творятся ужасные вещи - она не меняется правильно. Что возможно вставить в условие?

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

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

Оцени полезность:

13   голосов , оценка 4.308 из 5
Похожие ответы