Re: Api SetWindowsText

Article View: be.comp.programming

Article #5422

Back to be.comp.programming Previous Next

#5422

From: Cofke
Date: Wed, 23 Apr 2003 19:59

32 lines
2098 bytes


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.
Greetz
Cofke

Technical Details

Message-ID: <Xns9366E0A80832cofke@195.130.132.69>

Path:

arc1-ca.pugleaf.net!archiver1.google.com!news1.google.com!sn-xit-02!sn-xit-04!sn-xit-06!sn-xit-08!supernews.com!newsfeed.news2me.com!newsfeed2.easynews.com!newsfeed1.easynews.com!easynews.com!easynews!news-out.cwix.com!newsfeed.cwix.com!ossa.telenet-ops.be!hestia.telenet-ops.be.POSTED!not-for-mail

References:

<Xns9365999A4EADEcofke@195.130.132.68> <uqfpa.2933$KF1.86438@amstwist00> <Xns9365ECC3D80C1cofke@195.130.132.68> <g8zpa.3070$KF1.86722@amstwist00>

Show Full Headers

Complete Article Headers

X-Google-Language: DUTCH,ASCII-7-bit
X-Google-Thread: fcea4,2329ec1b170e6455
X-Google-Attributes: gidfcea4,public
X-Google-ArrivalTime: 2003-04-23 13:03:54 PST
Path: arc1-ca.pugleaf.net!archiver1.google.com!news1.google.com!sn-xit-02!sn-xit-04!sn-xit-06!sn-xit-08!supernews.com!newsfeed.news2me.com!newsfeed2.easynews.com!newsfeed1.easynews.com!easynews.com!easynews!news-out.cwix.com!newsfeed.cwix.com!ossa.telenet-ops.be!hestia.telenet-ops.be.POSTED!not-for-mail
Newsgroups: be.comp.programming
Subject: Re: Api SetWindowsText
From: Cofke <cofke-nospam-@hotmail.com>
References: <Xns9365999A4EADEcofke@195.130.132.68> <uqfpa.2933$KF1.86438@amstwist00> <Xns9365ECC3D80C1cofke@195.130.132.68> <g8zpa.3070$KF1.86722@amstwist00>
Organization: Your Company
Message-ID: <Xns9366E0A80832cofke@195.130.132.69>
User-Agent: Xnews/5.04.25
Lines: 33
Date: Wed, 23 Apr 2003 19:59:17 GMT
NNTP-Posting-Host: 81.82.152.117
X-Complaints-To: abuse@telenet.be
X-Trace: hestia.telenet-ops.be 1051127957 81.82.152.117 (Wed, 23 Apr 2003 21:59:17 CEST)
NNTP-Posting-Date: Wed, 23 Apr 2003 21:59:17 CEST

Reply to Parent Message