老虎抢亲程序代码 - 洛阳翼展电脑


老虎抢亲程序代码

2019-7-29 乱云飞

'被抢窗口需要提前启动
Private Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Sub Form_Load()
SetParent FindWindow(vbNullString, "新建文本文档 - 记事本"), Me.hWnd
Me.WindowState = 0
End Sub

本文链接:http://80c.cc/ez/225.html

发表评论:

预ICP备10086-001号 © 翼展网/80C.CC 技术支持/洛阳翼展科技
TEL / 13213610060 QQ / 345794501
Powered by emlog