Обработка События В Событии

[pbnoob]

Доброго дня!

Создаю простейшее приложение. Одна форма (Form1), на ней 1 объект - рамка (Frame1). При наведении на него возникает событие Frame1_MouseMove, при нажатии кнопкой мыши - Frame1_Click.
Как в событии Frame1_MouseMove обработать возникновение события Frame1_Click?

 

[alex77755]

Написать в событии Frame1_Click код

 

[pbnoob]

Private Sub Frame1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
' меняю заголовок формы
Form1.Caption = "x=" + CStr(X / 15) + "  y=" + CStr(Y / 15) + "  s=" + CStr(status)
' некий код
...
' подскажите плиз, что нужно здесь прописать для обработки события клика на фрэйме?
End Sub

Private Sub Frame1_Click()
' некий код
...
End Sub

 

[alex77755]

' подскажите плиз, что нужно здесь прописать для обработки события клика на фрэйме?

Frame1_Click

 

[pbnoob]

прописывая просто Frame_Click1 в событии Frame1_MouseMove я его просто инициирую.

Private Sub Frame1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
MySection.Caption = "x=" + CStr(X / 15) + "  y=" + CStr(Y / 15) + "  s=" + CStr(status)

If (10 * 15 <= X And X <= 43 * 15) And (2 * 15 <= Y And Y <= 10 * 15) Then
Frame1_Click ' выполняется код написанный в процедуре
End If
End Sub

а как правильно изменить код, чтобы было соответсвие алгоритму

Private Sub Frame1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
MySection.Caption = "x=" + CStr(X / 15) + "  y=" + CStr(Y / 15) + "  s=" + CStr(status)

If (10 * 15 <= X And X <= 43 * 15) And (2 * 15 <= Y And Y <= 10 * 15) Then
' если возникло событие Frame1_Click то
'	  тут код того что делать
' конец если
End If
End Sub

 

[alex77755]

если возникло событие Frame1_Click то

то оно будет обработано процедурой, написанной в этом событии.
Если должно зависеть от того где клик произошёл - передавай в процедуру координаты и обрабатывай

 

[pbnoob]

Я предполагаю, что возможно неточно или неправильно формулирую свой вопрос, поэтому прилагаю архив со своими файла и картинкой, а так же переформулирую вопрос.
В своей программке я хочу сделать следующее действие. При нажатии на надпись "Frame1" фрэйм должен увеличивать/уменьшать свою высоту (то есть если фрэйм имеет высоту 200 пикселей, кликаем ЛКМ на надписи "Frame1" - получаем высоту 50 пикселей и наоборот).