🚀 go-pugleaf

Cofke wrote:
> Ik had men licht nog eens opgestoken bij www.allapi.net.
> Mijn test-projectje schrijft gewoon met de ene form text in de
> textbox van de andere form.(2 verschillende projecten).
>
> Bij de zender ga je ;-opvragen de handle van het windowchild
> (textbox) waar je naar wil schrijven.
>                -sendmessage(handle etc..) uMsg=2000
>
> Bij de ontvanger -CallWindowProc
> **********************************
> Public Sub HookForm(F As Form)
> PrevProc = SetWindowLong(F.hwnd, GWL_WNDPROC, AddressOf WindowProc)
> End Sub
>
> Public Sub UnHookForm(F As Form)
> SetWindowLong F.hwnd, GWL_WNDPROC, PrevProc
> End Sub
>
> Public Function WindowProc(ByVal hwnd As Long, ByVal uMsg As Long,
> ByVal wParam As Long, ByVal lParam As Long) As Long
> WindowProc = CallWindowProc(PrevProc, hwnd, uMsg, wParam, lParam)
> If uMsg = 2000 Then
> Form1.Text1 = Form1.Text1 & Str(uMsg) & vbCrLf & Str(lParam)
> End If
> End Function
> ************************************
>
> Als wilt stuur ik de 2 projecten wel eens door.

Nee, dat hoeft niet. Ik ben wel met subclassing e.d. bekend. Ik vroeg me
alleen af waarom je godsnaam subclassing zou gebruiken om zoiets op te
lossen :-)

Ik was eerst in de veronderstelling dat je geen toegang tot de broncode van
de applicatie waarvan je de caption wilde wijzigen. In dat geval zou je
namelijk wel van de SendMessage(hWnd, WM_SETTEXT, ... , ...) constructie
gebruik moeten maken. In jouw geval levert dat weinig voordeel op omdat je
toch op de 1/andere manier die handle moet doorgeven danwel op moet vragen.
En dan maakt het niet veel meer uit of dat je dat met subclassing of op een
andere manier doet.

--
www.zenobits.com