vb2008关闭消息框终于实现了，可以…

概述感谢不知名的网友提示： .net 和vb不一样。 窗口句柄之类的要声明称interger 32位的才行 如果在。net中 声明成long 那就执行不成功 Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName A

感谢不知名的网友提示：

.net 和vb不一样。 窗口句柄之类的要声明称interger 32位的才行 如果在。net中 声明成long 那就执行不成功 Private Declare Function FinDWindow lib "user32" Alias "FinDWindowA" (ByVal lpClassname As String,ByVal lpWindowname As String) As Integer    Private Declare Function PostMessage lib "user32" Alias "PostMessageA" (ByVal hwnd As Integer,ByVal wMsg As Integer,ByVal wParam As Integer,ByVal lParam As Integer) As Integer-----------------------------------------------------------------------------

'以下是我的测试程序，form1窗体里放了个button1,点击button1d出消息，定时程序，自动关闭消息框。

'接下来关闭网页d出消息应该就没问题了。
 Private Sub button1_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles button1.Click
 Call run_timer()
 MsgBox("test")
 End Sub
 Sub Close_win()
 Const WM_CLOSE = &H10
 Dim hwnd As Long
 hwnd = FinDWindow("#32770","windowsApplication1") ‘如果不知道窗体类,#32770，可以’用vbNullString 代替 ，可以用vs2008 的SPy++来查找类,"windowsApplication1"是消息框的名称，自己灵活处理。

 If hwnd > 0 Then PostMessage(hwnd,WM_CLOSE,0&,0&) End If End Sub Sub run_timer() Dim mytimer As Timer = New Timer mytimer.Interval = 1000 mytimer.Start() AddHandler mytimer.Tick,AddressOf Close_win End SubEnd Class

总结

以上是内存溢出为你收集整理的vb2008关闭消息框终于实现了，可以…全部内容，希望文章能够帮你解决vb2008关闭消息框终于实现了，可以…所遇到的程序开发问题。

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