изменение указателя мыши

Тема в разделе "Visual Basic", создана пользователем sappho, 1 дек 2010.

  1. sappho

    sappho Гость

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

Поделиться этой страницей