Вопрос по структуре WindowProc

[Pantalone]

Интересует вопрос почему многие, в том числе и тут на форуме пишут следующий код:

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

Public Function WindowProc(ByVal hwnd As Long, _
    ByVal uMsg As Long, ByVal wParam As Long, _
    ByVal lParam As Long) As Long

    Select Case uMsg

        Case A:

        Case B:

        Case Else
            WindowProc = (CallWindowProc(lpProcOrg, hwnd, uMsg, wParam, lParam))
    End Select

End Function

Разве не должна строка

WindowProc = (CallWindowProc(lpProcOrg, hwnd, uMsg, wParam, lParam))

выполняться в любом случае всегда? Т.е. не надо ли ее вынести из Case вообще?
И кстати насколько вредно писать в самом начале WindowProc

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

On Error Resume Next

[GSerg]

Нет и Очень вредно и о многом говорит, соответственно.

[Pantalone]

Не понятно.

[Viper]

Учи матчасть. Без вариантов. Все необходимое легко найти поиском. Для начала вдумайся в смысл вызова CallWindowProc и в смысл использования On Error Resume Next.

[Pantalone]

Спасибо за помощ, я знал к кому обратиться.

[ANDLL]

Pantalone
On Error Resume Next ни стоит писать нигде. Это тебе пытались намекнуть.

Разве не должна строка

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

[Pantalone]

Очередной глупый вопрос от панталоне, сколько можно таких хуков повесить например на форму? В смысе хуков где сообщения отлавливаются через WindowProc.
Т.е.
SetWindowLong(Me.hwnd, GWL_WNDPROC, AddressOf WindowProc)
Просто у меня кучка модулей с этими хуками, не хотелось бы все это в один модуль сваливать, так проще разбираться.
Пожалуйста если можно без подколок и намеков на тупость.
И выглядеть это будет так:
SetWindowLong(Me.hwnd, GWL_WNDPROC, AddressOf WindowProc1)
SetWindowLong(Me.hwnd, GWL_WNDPROC, AddressOf WindowProc2)
SetWindowLong(Me.hwnd, GWL_WNDPROC, AddressOf WindowProc3)

[Antonariy]

А зачем оно надо? Все сообщения можно обрабатывать в одном обработчике. В зависимости от сообщения вызывать ту или иную процедуру из любого модуля. Хотя бы ту же самую WindowProc()

[ANDLL]

сколько можно таких хуков повесить например на форму

В теории много. Хотя из вопроса следует, что вы едва ли на 10% представляете себе их принцип действия.

[Pantalone]

Да, с представлением пока не очень, поэтому такое вот стресс-тестирование

[Хакер]

On Error Resume Next ни стоит писать нигде.

А вот это, вот кстати, очень даже не правильно... стоит писать, и там где это действительно нужно.

[vvs_adm]

On Error Resume Next ни стоит писать нигде.

А вот это, вот кстати, очень даже не правильно... стоит писать, и там где это действительно нужно.

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

[Хакер]

Нет, это совсем не уникальный случай... 40 % таких

[ANDLL]

н-да?

[Хакер]

ын-да

[vvs_adm]

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

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

Private Sub Form_Resize()
    On Error Resume Next
    fProportion = Me.ScaleWidth / Me.ScaleHeight
End Sub

считать оправданным (а вдруг форму свернут и будет ошибка), то и то наверное 40% не наберется .

[Twister]

Да, действительно, единственный случай, где мне пришлось поставить On Error Resume Next - это обработка сворачивания формы при ресайзе.

[alibek]

Да, действительно, единственный случай, где мне пришлось поставить On Error Resume Next - это обработка сворачивания формы при ресайзе.

Защита, построенная на исключениях.
Инициализация переменных/массивов/коллекций, построенная на исключениях.
Ветвление и переход через один или несколько уровней стека процедур, построенных на исключениях.
Поиск в встроенных коллекциях.

Еще?

[Хакер]

Всё зависет от стиля кодинга.

И скажите мне что лучше?

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

On Error resume next
CreateLockedGPCBlock()
If err.number <> 0 Then ....
SomeOperation1()
If err.number <> 0 Then ....
SomeOperation2()
If err.number <> 0 Then ....


или

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

On Error Goto ErrHandler1
CreateLockedGPCBlock()
On Error Goto 0
On Error Goto ErrHandler2
SomeOperation1()
On Error Goto 0
On Error Goto ErrHandler3
SomeOperation2()

exit sub
ErrHandler1:
...
ErrHandler2:
...
ErrHandler3:
...


?

[Twister]

Да, действительно, единственный случай, где мне пришлось поставить On Error Resume Next - это обработка сворачивания формы при ресайзе.

Защита, построенная на исключениях.
Инициализация переменных/массивов/коллекций, построенная на исключениях.
Ветвление и переход через один или несколько уровней стека процедур, построенных на исключениях.
Поиск в встроенных коллекциях.

Еще?

Надо было сразу добавить - единственный мой случай в VB.

[GSerg]

А alibek говорил про VB...
А вот on error resume next в обработке сворачивания при resize - это очень дурной тон, как мне кажется...

[Antonariy]

А вот on error resume next в обработке сворачивания при resize - это очень дурной тон, как мне кажется...

Это как с ноги ниже пояса - некрасиво, зато просто и наверняка

[alibek]

Надо было сразу добавить - единственный мой случай в VB.

А в VBS это вообще единственный способ обрабатывать ошибки, синтаксис On Error GoTo Label там недопустим.

[Twister]

А в VBS это вообще единственный способ обрабатывать ошибки, синтаксис On Error GoTo Label там недопустим.

На нем не пишу.

А вот on error resume next в обработке сворачивания при resize - это очень дурной тон, как мне кажется...

Соглашусь с Antonariy - это просто и эффективно. Чего ж тут дурного. Впрочем, у каждого свой стиль кодинга...

[vvs_adm]

Чего ж тут дурного. Впрочем, у каждого свой стиль кодинга...

Дурного тут то, что если, к примеру, написать первой сторчкой в Form_Resize

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

If Me.WindowState = vbMinimized Then Exit Sub

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

[Twister]

error resume next получается короче...

[vvs_adm]

Я уже писал, в какой ступор я встал когда-то из за resume Next Нафик-нафик. Только, если действительно необходимо А так

Впрочем, у каждого свой стиль кодинга...

[Twister]

Я обычно пишу на делфях. Могу сказать одно - обработчики try-except-end приходится ставить только при работе с базами данных, да и то в редких случаях. Обычно можно обойтись простой проверкой нужных данных.

[tyomitch]

Я на работе пишу на делфях, и внутрифирменное соглашение -- не использовать try-except-end без крайней необходимости. Согласен я с этим или нет, но приходится обходиться без них.