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

Тема в разделе "Visual Basic", создана пользователем pbnoob, 7 окт 2011.

  1. pbnoob

    pbnoob Well-Known Member

    Регистрация:
    25 авг 2006
    Сообщения:
    135
    Симпатии:
    0
    Доброго дня!

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

    alex77755 Well-Known Member

    Регистрация:
    15 фев 2009
    Сообщения:
    128
    Симпатии:
    0
    Написать в событии Frame1_Click код
     
  3. pbnoob

    pbnoob Well-Known Member

    Регистрация:
    25 авг 2006
    Сообщения:
    135
    Симпатии:
    0
    Код (Text):
    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
     
  4. alex77755

    alex77755 Well-Known Member

    Регистрация:
    15 фев 2009
    Сообщения:
    128
    Симпатии:
    0
    Код (LotusScript):
    Frame1_Click
     
  5. pbnoob

    pbnoob Well-Known Member

    Регистрация:
    25 авг 2006
    Сообщения:
    135
    Симпатии:
    0
    прописывая просто Frame_Click1 в событии Frame1_MouseMove я его просто инициирую.

    Код (Text):
    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
    а как правильно изменить код, чтобы было соответсвие алгоритму
    Код (Text):
    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
     
  6. alex77755

    alex77755 Well-Known Member

    Регистрация:
    15 фев 2009
    Сообщения:
    128
    Симпатии:
    0
    то оно будет обработано процедурой, написанной в этом событии.
    Если должно зависеть от того где клик произошёл - передавай в процедуру координаты и обрабатывай
     
  7. pbnoob

    pbnoob Well-Known Member

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

    Вложения:

    • section1.rar
      Размер файла:
      3,7 КБ
      Просмотров:
      5
Загрузка...
Похожие Темы - Обработка События Событии
  1. kolka
    Ответов:
    6
    Просмотров:
    253
  2. anna
    Ответов:
    9
    Просмотров:
    884
  3. FaRReLL
    Ответов:
    0
    Просмотров:
    868
  4. crow1986
    Ответов:
    8
    Просмотров:
    1.874
  5. Dazzel
    Ответов:
    1
    Просмотров:
    948

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