Глупый вопрос

[Dread Icefist]

У меня вопрос: можно сделать так, чтоб кнопка от мышки убегала? Я с помощью MouseMove делал, она пару раз убегает, а потом глючит, шлейф за собой оставляет? Можно это как-нибудь реализовать в VB 6.0? Просто интересно...

[Viper]

и как она у тебя убегает? Код давай... В молодости делал такой прикол, кнопка разбегалась нориально

[AjaxVS]

Типа теста "Довольны ли вы своей зарплатой"? +_+
В принципе, трудностей быть не должно.. Следишь за координатами курсора и кнопки, при MouseMove делаешь Move кнопки, следишь за границами..

ЗЫ. Если 2 раза убегает - значит начинает работать. Правь алгоритм дальше.

[Хакер]

Код: Выделить всё


Dim IsMMFCascade as Boolean

Private Sub Command1_MouseMove(Button as Integer, Shift as integer, X as single, y as single)
   If Not IsMMFCascade Then
      IsMMFCascade = True
            'код убегания
      IsMMFCascade = False
   End If
End Sub



Шлейф из-за того, что код убегания двигает кнопку, что само-собой провоцирует события MouseMove а оно опять делает код убегания и так по кругу.

[Viper]

что-то добрый я седня
автор лови рабочий код сбегающей кнопки

[Dread Icefist]

Всем спасибо!

[vvs_adm]

что-то добрый я седня
автор лови рабочий код сбегающей кнопки

На твою кнопку можно "пробелом" нажать и не надо за ней мышкой гоняться

[Роман-вб]

vvs_adm

[vvs_adm]

Роман-вб
Ну во первых у меня XP, а во вторых на кнопку все равно нажать элементарно, просто по её нажатию ничего не выполняется Должно быть

Код: Выделить всё

Private Sub Command2_Click()
    End
End Sub


и программа закончится по нажатию

[Роман-вб]

vvs_adm
Если хочешь, чтобы на Commmand2 нельзя было нажать, пиши

Код: Выделить всё

Private Sub Command2_GotFocus()
  Command1.SetFocus
End Sub

[vvs_adm]

Роман-вб да я в курсе...

Код: Выделить всё

Option Explicit

Private Sub Command1_GotFocus()
    DoEvents
    Command2.SetFocus
End Sub

Private Sub Command2_GotFocus()
    DoEvents
    Command1.SetFocus
End Sub


[Хакер]

А как было бы хорошо если б КлипКурсор работал с регионами а не с ректом...

Хотя в принципе это можно реализовать...

[AjaxVS]

2 Хакер:
Разбей рект на кучу ректов - вот тебе и регион.

[Хакер]

Хотя в принципе это можно реализовать...

Вот именно это я и имел ввиду