Visual Basic-Quellcode
- Function WndProc(ByVal hwnd As Long, ByVal msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
- 'Depending on the message that is being sent, we decide how to deal with it...
- Select Case msg
- 'Is it the message sent from the server form?
- Case 3074 'call from homeputer studio
- If wParam <> 0 Then
- If MessagePointer < 100 Then
- MessagePointer = MessagePointer + 1
- End If
- Message(MessagePointer) = wParam
- End If
- Case Else
- 'All other messages we don't care about, so we want to send
- 'it on to it's normal location (which is stored in ProcPrev)
- WndProc = CallWindowProc(ProcPrev, hwnd, msg, wParam, lParam)
- End Select
- End Function
Du leitest die Nachricht nur weiter, wenn Sie nicht 3074 ist. Daher wird kein anderes Window diese 3074er Nachricht mehr erhalten.
LG
Das ist meine Signatur und sie wird wunderbar sein!