vb中如何向另外一个实例发送消息并且使他最大化?

jiangqiaohua jiangqiaohua 墨衍会员 · AI 创作全网分发 墨衍智能分发 通过墨衍一键同步至各平台 可同步平台 CSDN微信公众号微博知乎掘金百家号博客园抖音小红书 你的文章也可以这样分发 墨衍会员 ¥399起/年,写一次发全网 我也要 + 加入社区
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long


Private Sub Command2_Click()

'SW_MAXIMIZE '最大化
'SW_MINIMIZE '最小化
'SW_SHOW '显示
'SW_HIDE '隐藏

Dim WinWnd As Long
WinWnd = FindWindow("ThunderRT6Main", "飞腾浏览器(FlyIe)")

ShowWindow WinWnd, SW_MAXIMIZE


End Sub

显示 WinWnd 的值是正确的
没有效果?

应该怎么样改进?
...全文

相关推荐

评论 5
收藏 已收藏
分享
返回顶部
jiangqiaohua
VB基础类 7,788 成员 197,583 内容