VB Tip: Entendendo e utilizando subclassing e mensagens WM.
Autor: Diego Silva | Publicado: 2011-07-21T19:31:00-03:00

Olá.

Hoje estive vendo e estudando sobre subclassing, e estarei ensinando de um modo fácil a entender e usar subclassing.

Subclassing serve para receber os comandos de uma janela em uma função específica;nessa função o programador pode, por exemplo, criar menus personalizados, limitar o tamanho ou posição de uma janela, enfim, o que ser possível, através das variáveis que tal função recebe.

Criando um subclassing local

Para se criar um subclassing, use a API SetWindowLong com a constante GWL_WNDPROC = (-4), sendo o terceiro parâmetro o endereço da função que irá receber as mensagens do subclassing, como mostrado abaixo:

Dim OldProcAddr as Long
Private Const GWL_WNDPROC = (-4)
Sub SubclassTo(ByVal hWnd As Long)
OldProcAddr = SetWindowLong(hWnd, GWL_WNDPROC, AddressOf WndProc)
End Sub


OBSERVAÇÕES IMPORTANTES: antes de definir um subclassing, é necessário obter o endereço da função de subclassing padrão. Para isso, simplismente atribua o SetWindowLong com tais parâmetros acima, à uma variável do tipo Long. A variável, então, receberá o valor antigo do endereço que processa por padrão as mensagens da janela. Isso é importante para quando finalizarmos o formulário, restaurarmos a função padrão, para não ocorrer um crash no sistema.

Recebendo dados através do subclassing
Na seção acima aprendemos a configurar o formulário para enviar as mensagens para nossa função. Nesta seção aprenderemos a MONTAR essa função.

A função, seja ela com qual nome for (isso vai do gosto do programador), tem obrigatoriamente QUATRO parâmetros, entre eles:

ByVal Hwnd as Long: irá retornar a handle do formulário
ByVal wMsg as Long: irá retornar o WM relacionado ao comando atual da janela (explicarei na próxima seção)
ByVal wParam as Long: irá retornar um valor relacionado ao wmsg, tipo como um parâmetro
ByVal lParam as Long: dependendo do wMsg, retorna o endereço de uma estrutura, seja ela WINDOWPOS ou KBDSTRUCT. Só temos de declarar o tipo que será usado para a finalidade desejada.


A função deve ter essa estrutura: 

[Private/Public] Function [NomeDaFunção] (ByVal hWnd as Long, ByVal wMsg as Long, ByVal wParam as Long, ByVal lParam as Long)
'Aqui serão feitas as condições para executar determinada ação
If wMsg = WM_MENSAGEMDESEJADA then
'executa uma ação caso o wmsg seja a constante desejada
NomeDaFunção=1 'Continua recebendo os valores, entretanto, executa a própria ação definida pelo programador
Else
NomeDaFunção = CallWindowProc(OldProcAddr, hWnd, wMsg, wParam, lParam) 'necessário para fazer a ação padrão relacionada ao wMsg.
End If 
End Function

Hwnd, wParam, wmsg e lparam podem receber outros nomes, mas tem necessariamente que estarem na mesma posição padrão.

Entendendo o wMsg e as constantes WM_
Como vimos na seção anterior, o wMsg (ou seja lá qual for o nome escolhido pelo programador para declarar tal variável na função) recebe um valor oriundo das constantes iniciadas por "WM_". Irei explicar algumas delas e pra que servem.


WM_ACTIVATE (&H6): mensagem executada quando o formulário é ativado.
WM_SHOWWINDOW (&H18): mensagem executada quando o formulário aparece. É o primeiro comando executado quando o formulário se inicia
WM_WINDOWPOSCHANGING (&H46): mensagem executada quando o sistema processa a posição e tamanho da janela. Sucedido por:
WM_WINDOWPOSCHANGED (&H47): mensagem executada após o sistema processar a posição e tamanho da janela. Ambos (WINDOWPOSCHANGING e WINDOWPOSCHANGED) recebem como lParam o endereço de uma estrutura WINDOWPOS.
WM_KILLFOCUS (&H8): mensagem executada quando o usuário deixa o formulário em questão.
WM_MOUSEMOVE (&H200): mensagem executada quando o usuário move o mouse dentro do formulário.
WM_NCPAINT (&H85): mensagem executada quando o sistema desenha a titlebar e os botões da janela em questão. Interceptar essa mensagem permite ao programador criar seu próprio titlebar.
WM_NCHITTEST (&H84): mensagem executada para determinar se o mouse está em um determinado ponto da janela (digo, das bordas e do título). O CallWindowProc retorna uma das constantes precedidas por "HT" (HTCaption=título da janela)
WM_CAPTURECHANGED (&h215): mensagem executada quando o formulário perde a captura do mouse (relacionado com SetCapture, ReleaseCapture e GetCapture)

Mais constantes de wMsg você encontra detalhado no site da Microsoft, aqui (em inglês).

No próximo artigo veremos um exemplo pronto de subclassing.
Até o próximo artigo.