Событие Mousedown не работает

[VB-constructor]

Поставил на форму picture1, положил в неё ActiveX Control. Который реагирет в программе на mousedown и mousemove. Первый раз он на mousedown реагирует, и всё, сколько ни щелкай. А mousemove пашет, бегает по монитору. Ничё не пойму.

[vvs_adm]

Хакер хоть и телепат, но и тут он по ходу не в силах...

[Хакер]

Текст:

Поставил на форму picture1, положил в неё ActiveX Control. Который реагирет в программе на mousedown и mousemove. Первый раз он на mousedown реагирует, и всё, сколько ни щелкай. А mousemove пашет, бегает по монитору.

А это автор о своём тексте:

Ничё не пойму.

[vvs_adm]

сколько ни щелкай.

А чем собственно щелкали? Уж не тем ли, чем щелкать строго не рекомендуется, особенно в большой семье?

[Хакер]

Вб-конструктор, можно тебя перефразировать:

На форму положил Picture1, а в неё (может быть "в него" ?) положил объект. У этого объекта вызываю некоторый метод, и появляется какая-то ошибка. Вопрос - почему так и как исправить?

[VB-constructor]

Ну впрочем я подозревал, что понятно мало чё будет. Просто не знаю с чего начать, поэтому расказываю подробно:
ActiveX - (саму форму. На ней помещены графические объекты) сделал прозразрачной. Она полностью закрывает picture. Событии клика/mousedown'a должны, по задумке, устанавливать положение той графики, кот. установлена на контроле, согласно текущим координатам. Далее запускаю прогу, всё ок: щелкаю по picture, далее (работает), вожу по монитору мышкой - работает. Щелкаю - для след. раза - никакой реакции, он вообще не обращает внимания.

Может быть я опять плохо объяснил?

[Viper]

то ли форма закрывает picture, то ли ActiveX что-то закрывает, то ли одно из трех... Ждем попытку номер три, или может быть Телепат уже в рабочем состоянии?

[keks-n]

Дело в том, что автор сам не очень-то осмысливает то, что хотел выразить словами... Так что телепатия не поможет. Код в студию.

[VB-constructor]

то ли форма закрывает picture, то ли ActiveX что-то закрывает, то ли одно из трех

Я тоже думал, что что-то что-то закрывает, но как объяснить следующее: picture1_mousemove работает, а picture1_mousedown - нет! Другими словами, почему для mousrdown перекрывает, а для mousemove - нет?

Код в студию.

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

public x1,x2,y1,y2 as single

Private Sub Picture1_Mousedown(Button As Integer, Shift As Integer, X As Single, Y As Single)
x=x2:y=y2
    If Option1(3).Value = True Then ini(0) = 1
end sub

Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If ini(0) = 1 Then
   
x1=x:y1=y
        With Form1.UserControl11
           
            .Visible = True
            .Width = Picture1.Width
            .Height = Picture1.Height
            .Left = 0
            .Top = 0
            .X1 = Form1.X2
            .Y1 = Form1.Y2
            .X2 = Form1.X1
            .Y2 = Form1.Y1
           
        End With
     
    End If

end sub


ну вроде все.

Повторяюсь, ActiveX - прозрачный (filestyle = 1), и растянут на всю форму:)

Дело в том, что автор сам не очень-то осмысливает то, что хотел выразить словами

Давай уже без намёков

[GB826]

Судя по коду
UserControl лежит выше всех и когда он отображается - все перекрывает, попробуй в маузмув юзерконтрола запихни что-нить и убедишся.

При первом щелчке по пикчербоксу ини(0)=1 потом сразу при маузмув - перекрытие :оР

[Хакер]

Автор, так оно потому, что так устроен мир. MouseDown будет ловить UserControl хоть он и прозрачный.

[VB-constructor]

Судя по коду
UserControl лежит выше всех и когда он отображается - все перекрывает, попробуй в маузмув юзерконтрола запихни что-нить и убедишся.

При первом щелчке по пикчербоксу ини(0)=1 потом сразу при маузмув - перекрытие :оР

MouseDown будет ловить UserControl хоть он и прозрачный.

Мда, я уже понял. Просто я думал, что оно не так потому что mousemove picture работает. Почему, никто не скажет?
Полтергейст!
Скажу больше: скопировал этот код в другой проект, там перестал работать. (и цвет серый, что в свойствах, свой, а то в предыдущем - белым прикидывался - ' а то я думал из-за прозрачности. ) Проверил св-ва visiиду = правда и там и там.

Вобщем забейте и не берите в голову. Я уж без этого контрола обошёлся.
Тема закрыта

[Viper]

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

public x1,x2,y1,y2 as single

Private Sub Picture1_Mousedown(Button As Integer, Shift As Integer, X As Single, Y As Single)
x=x2:y=y2
    If Option1(3).Value = True Then ini(0) = 1
end sub

Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If ini(0) = 1 Then
   
x1=x:y1=y
        With Form1.UserControl11
           
            .Visible = True
            .Width = Picture1.Width
            .Height = Picture1.Height
            .Left = 0
            .Top = 0
            .X1 = Form1.X2
            .Y1 = Form1.Y2
            .X2 = Form1.X1
            .Y2 = Form1.Y1
           
        End With
     
    End If

end sub

Начиная с этого места:

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

Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If ini(0) = 1 Then
   
x1=x:y1=y
        With Form1.UserControl11
           
            .Visible = True

ActiveX становится видимым, после чего ловить что-либо с лежащего под ним PictureBox бесполезно

[VB-constructor]

Точно! Спасибо, !Viper!/ я как-то об этом не подумал...