VB.NET调用Windows API函数 方法 （实例）

本例是Form中有一个按钮。

点击按钮，Form的Title会显示指定的文字。

Public Class Form3

Private Declare Auto Function SendMessage Lib "user32" Alias "SendMessageW" (ByVal hwnd As Integer,ByVal wMsg As Integer,ByVal wParam As Integer,ByVal lParam As String) As Integer

Private Const EM_SETTEXT = &HC ' VB中&H表示16进制
'Private Const WM_GETTEXT = &HC

Private Sub Button1_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles Button1.Click

Dim hwnd As IntPtr = CType(Me.Handle,IntPtr)

'Sendmessage(目标控件句柄,自定义消息类型,参数个数,消息内容)
SendMessage(hwnd,EM_SETTEXT,"myTest")

End Sub

End Class

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!