vb.net使用postmessage发送自定义消息解决思路

vb.net使用postmessage发送自定义消息
VB.NET中如何向VC中使用postmessage发送自定义消息，现在我要处理接收的数据，希望用POSTMESSAGE来处理这些数据，
------解决思路----------------------
你可以定义自己的消息，WM_USER作为基数，往上你就自己定义了。

比如 const WM_妈妈喊你吃饭 = WM_USER + 100
------解决思路----------------------

引用:

那要怎么与处理函数关联起来呢，我以前是有用VC写过，postmessage(this,wm_user+100,1,0),这样就会跳转会与WM_USER+100相关联的函数中去执行，那这一步在VB中是要如何实现呢？

VB无法直接控制消息循环，需要一种称之为SubClass（子类化）的技法。

思路就是通过SetWindowLong修改窗口函数，然后挂钩自己的消息处理程序去处理自己的消息。

具体 google VB 子类化 setwindowlong
------解决思路----------------------

引用:

那要怎么与处理函数关联起来呢，我以前是有用VC写过，postmessage(this,wm_user+100,1,0),这样就会跳转会与WM_USER+100相关联的函数中去执行，那这一步在VB中是要如何实现呢？

不好意思，看错了，你用的是VB.NET。那就简单了。

重写窗体的 WndProc 虚函数就可以了。
------解决思路----------------------
http://bbs.****.net/topics/290028692
------解决思路----------------------

Public Const WM_CHAR = &H102

Public Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, _

    ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long

'将一个字符串通过PostMessage传送出去

Public Sub subPostString(ByVal lngHandle As Long, ByVal strP As String)

    Dim intP As Integer

    Dim intK As Integer

    Dim lngAsc As Long

    Dim lngP As Long

    Dim strT As String

On Error GoTo errSub

    For intP = 0 To Len(strP) - 1

        strT = Mid(strP, intP + 1, 1)

        If Asc(strT) <= 0 Then

            lngAsc = AscW(StrConv(strT, 128))

            If lngAsc < 0 Then

                lngAsc = lngAsc + 65536 '2^16

            End If

        Else

            lngAsc = Asc(strT)

        End If

        lngP = PostMessage(lngHandle, WM_CHAR, lngAsc, 0)

    Next intP

'    Call subDelay(10)

'    lngP = PostMessage(lngActiveWindow, WM_LBUTTONDOWN, MK_LBUTTON, 0)

    Exit Sub

errSub:


End Sub