Отследить скролл на панели

[sergey-911]

Доброго времени суток уважаемые. Прошу прощение за беспокойство.
Есть форма (Frm1) с панелью (Panel1), занимющей 2/3 формы. Панель отрисовывает CAD-овский чертеж, путем библиотеки "CAD Image DLL". При наведении мышки на Panel1 пользователю должна быть представлена возможность масштабировать чертеж. При переходе курсора мыши за пределы Panel1 такую возможность нужно отключить.
Вопрос - как?
Попытался реализовать через событие "MouseWheel" панели, не получилось. При вращении скроллом - ничего не происходит, видимо Panel1 не может перехватить это событие, т.к. не фокусируется.
Поэтому я отслеживаю "MouseWheel" формой и ставлю дополнительно проверку на нахождение курсора в области панели.

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


    Private Sub Form1_MouseWheel(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseWheel
        'Скролл
        'Проверяем наведение курсора на область
        If e.X < 0 Or e.Y < 0 Then Exit Sub
        If panel1.Location.X + panel1.Size.Width < e.X Then Exit Sub
        If panel1.Location.y + panel1.Size.Width < e.y Then Exit Sub
        'Масштабируем
        If FScale < 0 And e.Delta < 0 Then Exit Sub
        FScale = Convert.ToInt32(FScale + e.Delta / 7)
        panel1.Invalidate()
    End Sub


Но, думаю, есть более грамотное решение. Не подскажите?

[Mleha]

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

    Private Structure POINTAPI
        Public x As Int32
        Public y As Int32
    End Structure

    Private Declare Function GetCursorPos Lib "user32.dll" (ByRef lpPoint As POINTAPI) As Int32
    Private Declare Function WindowFromPoint Lib "user32.dll" (ByVal xPoint As Int32, ByVal yPoint As Int32) As Int32


Юзай эти функции, и проверяй совпадает ли возвращаемое значение WindowFromPoint с хендлом панели

[Sebas]

Mleha
вот не надо советовать, что не очень понимаете...

sergey-911
а события Mouse_Enter и MouseLeave срабатывают?

[sergey-911]

Спасибо всем.
Да Sebas, события Mouse_Enter и MouseLeave срабатывают, соответственно при наведении \ покидании Panel1 курсора мыши.

Неужели нужно использовать:

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


Public Class Form1
   Dim fp As Boolean   'True - курсор на Panel1, False - нет

    Private Sub panel1_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles panel1.MouseEnter
        fp = True
    End Sub

    Private Sub panel1_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles panel1.MouseLeave
        fp = False
    End Sub

    Private Sub Form1_MouseWheel(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseWheel
        'Скролл
        'Проверяем наведение курсора на область
        If fp = False Then Exit Sub
        'Масштабируем
        If FScale < 0 And e.Delta < 0 Then Exit Sub
        FScale = Convert.ToInt32(FScale + e.Delta / 7)
        panel1.Invalidate()
    End Sub
End Class


?
Почему не срабанывает panel1_MouseWheel?

[Sebas]

скорее всего форма не получает сообщений. Их берёт на себя твой кадовский контрол. нужно избавить его от фокуса)

[sergey-911]

Не Sebas, форма сообщения получает. Сообщения не получает панель. Ведь, если работает

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


    Private Sub Form1_MouseWheel(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseWheel
        'Скролл
        'Проверяем наведение курсора на область
        If fp = False Then Exit Sub
        'Масштабируем
        If FScale < 0 And e.Delta < 0 Then Exit Sub
        FScale = Convert.ToInt32(FScale + e.Delta / 7)
        panel1.Invalidate()
    End Sub


, то форма события получает? Или ошибаюсь?

В аттач прикрепил проект, для большей наглядности. Правда весит он почти мегабайт.

[Sebas]

Если на панеле есть объект который в фокусе, то панель получает событие.

[sergey-911]

Да Sebas, действительно работает, только в том случае, если на панеле есть объект в фокусе.
Но в моем примере на панеле отображается чертеж, картинка и т.п., т.е. на пенеле нет объекта в фокусе.
Значит ли это, что нужно поступить так:

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

Public Class Form1
        Dim fp As Boolean   'True - курсор на Panel1, False - нет

    Private Sub panel1_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles panel1.MouseEnter
        fp = True
    End Sub

    Private Sub panel1_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles panel1.MouseLeave
        fp = False
    End Sub

    Private Sub Form1_MouseWheel(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseWheel
        'Скролл
        'Проверяем наведение курсора на область
        If fp = False Then Exit Sub
        'Масштабируем
        If FScale < 0 And e.Delta < 0 Then Exit Sub
        FScale = Convert.ToInt32(FScale + e.Delta / 7)
        panel1.Invalidate()
    End Sub
End Class

, или же есть другой выход, более правильный?

[Atoman]

Мне кажется так попроще.

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

Public Class PanelMouseWheel
    Inherits Panel '  ScrollableControl

    Public Sub New()
        MyBase.New()
        Me.TabStop = True
        MyBase.SetStyle(ControlStyles.Selectable, True)
    End Sub

    Protected Overrides Sub OnMouseWheel(ByVal e As MouseEventArgs)
        If (e.X >= 0 And e.X <= Me.Width) And (e.Y >= 0 And e.Y <= Me.Height) Then
            MyBase.OnMouseWheel(e)
        End If
    End Sub
End Class

[sergey-911]

Мне кажется так попроще.

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

Public Class PanelMouseWheel
    Inherits Panel '  ScrollableControl

    Public Sub New()
        MyBase.New()
        Me.TabStop = True
        MyBase.SetStyle(ControlStyles.Selectable, True)
    End Sub

    Protected Overrides Sub OnMouseWheel(ByVal e As MouseEventArgs)
        If (e.X >= 0 And e.X <= Me.Width) And (e.Y >= 0 And e.Y <= Me.Height) Then
            MyBase.OnMouseWheel(e)
        End If
    End Sub
End Class

Извини Atoman, как данной класс применить к остальному коду? Никак не могу понять... Поясни плиз. Что в нем к чему и как заюзать.

[Atoman]

Это класс унаследованный от Panel'и, и юзается как контрол.

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

    Private WithEvents MyPanel As PanelMouseWheel
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.MyPanel = New PanelMouseWheel
        Me.MyPanel.Location = New Point(20, 20)
        Me.MyPanel.Size = New Size(300, 300)
        Me.Controls.Add(Me.MyPanel)
    End Sub

    Private Sub MyPanel_MouseWheel(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyPanel.MouseWheel
        '...
    End Sub

[sergey-911]

Это класс унаследованный от Panel'и, и юзается как контрол.

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

    Private WithEvents MyPanel As PanelMouseWheel
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.MyPanel = New PanelMouseWheel
        Me.MyPanel.Location = New Point(20, 20)
        Me.MyPanel.Size = New Size(300, 300)
        Me.Controls.Add(Me.MyPanel)
    End Sub

    Private Sub MyPanel_MouseWheel(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyPanel.MouseWheel
        '...
    End Sub

Попробовал - ничего.
Atoman, зачем унаследовать у панели свойство "MouseWheel", если оно в моем случае не срабатывает?
Спасибо.

[Atoman]

Создай новый контрол унаследованный от панели,
в конструктор добавь:

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

        Me.TabStop = True
        MyBase.SetStyle(ControlStyles.Selectable, True)

переопредели метод OnMouseWheel:

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

    Protected Overrides Sub OnMouseWheel(ByVal e As MouseEventArgs)
        If (e.X >= 0 And e.X <= Me.Width) And (e.Y >= 0 And e.Y <= Me.Height) Then
            MyBase.OnMouseWheel(e)
        End If
    End Sub

и замени свою панель на этот контрол.
Усё.

Ну а если ещё не понятно, вот пример.

[sergey-911]

Спасибо Atoman, спасибо всем. В понедельник попробую.

[sergey-911]

Создай новый контрол унаследованный от панели,
в конструктор добавь:

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

        Me.TabStop = True
        MyBase.SetStyle(ControlStyles.Selectable, True)

переопредели метод OnMouseWheel:

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

    Protected Overrides Sub OnMouseWheel(ByVal e As MouseEventArgs)
        If (e.X >= 0 And e.X <= Me.Width) And (e.Y >= 0 And e.Y <= Me.Height) Then
            MyBase.OnMouseWheel(e)
        End If
    End Sub

и замени свою панель на этот контрол.
Усё.
Ну а если ещё не понятно, вот пример.

Atoman, если я правильно понял, ты создал свой контрол "PanelMouseWheel" и использовал его в тестовом проекте "TestPanelMouseWheel", причем "PanelMouseWheel.dll" в проекте нет, но есть класс "PanelMouseWheel.vb". Прокомментируй плиз, что значит "PanelMouseWheel.vb"? И, если компонент "PanelMouseWheel" предворительно был создан, выложи его исходник плиз.
В книгах очень мало освещается проблемам создания собственных компонентов.

В общем, я совсем запутался...
Буду рад любой информации.
Прошу прощения за вопрос.

[Atoman]

PanelMouseWheel.vb, PanelMouseWheel.Designer.vb это файлы проекта, в которых содержится один класс унаследованный от панели.
Про создание собственных компонентов можешь почитать здесь:
http://vbstreets.ru/VBdotNET/Articles/default.aspx
http://www.progs.biz/vbnet/vbnet01.aspx

[sergey-911]

Спасибо Atoman.

[sergey-911]

Создай новый контрол унаследованный от панели, замени свою панель на этот контрол.

Прошу прощения Atoman.
Как создать новый контрол, унаследованный от панели?

Пробовал создать поект, далее ADD=>ADD New Item=>Component Class
Получаю класс, наследованный от System.Windows.Forms.UserControl, а не от System.Windows.Forms.Panel.
Пытался добавить Inherited User Control, тоже не то.

[Atoman]

А что тебе мешает заменить System.Windows.Forms.UserControl на System.Windows.Forms.Panel.

[sergey-911]

А что тебе мешает заменить System.Windows.Forms.UserControl на System.Windows.Forms.Panel.

Atoman, плиз, подскажи, как?
Сегодня весь день убил, так и не смог...

[Viper]

А что тебе мешает заменить System.Windows.Forms.UserControl на System.Windows.Forms.Panel.

Atoman, плиз, подскажи, как?
Сегодня весь день убил, так и не смог...

Нет слов! Ну как,как... буквами... Заменяешь

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

Inherits System.Windows.Forms.UserControl

на

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

Inherits System.Windows.Forms.Panel

[sergey-911]

Нет слов! Ну как,как... буквами... Заменяешь

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

Inherits System.Windows.Forms.UserControl

на

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

Inherits System.Windows.Forms.Panel

Каюсь, с компонентами раньше не работал, а в книжках написано очень мало... В дизайнер контрола зайти не додумался.

Но дело не в этом. Хочу уточнить оставшиеся неясности.
Правильно ли я делаю:
1) Создаю проект "Windows Forms", с формой, соответственно.
2) Добавляю контрол следующим образом:
ADD=>New Item=>Custom Control
3) Поиском ищу "Inherits System.Windows.Forms.UserControl", попадаю в дизайнер и правлю на "Inherits System.Windows.Forms.Panel"

Ну, по 3-у пункту и так ясно, должен путь покороче. Как открыть Component.Designer.vb?

По 2-у хочу уточнить, тот ли контрол я добавляю в проект, чтобы cоздать новый контрол, унаследованный от панели? В студии всевозможных контролов целая куча...

Где нибудь есть описание (желательно на русском) всех доступных в VS2008 форм, компонентов и т.п...? Можно, конечно, сослаться на MSDN, но не разбирусь.

[Atoman]

2) Всё верно.
3) В окне Solution Explorer выбери Show All Files

[sergey-911]

Спасибо Atoman.
А по поводу

Где нибудь есть описание (желательно на русском) всех доступных в VS2008 форм, компонентов и т.п...? Можно, конечно, сослаться на MSDN, но не разбирусь.

?