老虎抢亲程序代码
2019-7-29 乱云飞 代码 评论(0) 浏览(628) 标签: 老虎抢亲 VB代码 抢窗口
'被抢窗口需要提前启动 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