说明.txt

来自「利用vb.net来接收来自其他窗体创送的消息。」· 文本 代码 · 共 28 行

在接收信息的窗体类中添加下列信息：
Private Const WM_COPYDATA As Integer = 74
  Protected Overrides Sub DefWndProc(ByRef m As System.Windows.Forms.Message)
        Select Case (m.Msg)
            Case WM_COPYDATA
                Dim mystr As COPYDATASTRUCT = New COPYDATASTRUCT
                Dim mytype As Type = mystr.GetType
                mystr = CType(m.GetLParam(mytype), COPYDATASTRUCT)
                strInfo = mystr.lpData
                Me.textBox1.Text = strInfo
            Case Else
                MyBase.DefWndProc(m)
        End Select
    End Sub


    <StructLayout(LayoutKind.Sequential)> _
    Public Structure COPYDATASTRUCT

        Public dwData As IntPtr

        Public cbData As Integer

        <MarshalAs(UnmanagedType.LPStr)> _
        Public lpData As String
    End Structure

其中：strInfo 为返回的原码 信息值。