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

本例是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

总结

以上是内存溢出为你收集整理的VB.NET调用Windows API函数 方法 （实例）全部内容，希望文章能够帮你解决VB.NET调用Windows API函数 方法 （实例）所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。