Как изменить вид курсора - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д