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

jiangqiaohua 2008-03-20 06:23:53
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 的值是正确的
没有效果?

应该怎么样改进?
...全文
48 点赞 收藏 5
写回复
5 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
zzyong00 2008-03-20
............
回复
跟着叹一声。
回复
Option Explicit真的非常有必要..........

真想不通,VB6IDE开发人员为什么要默认禁用!!
回复
of123 2008-03-20
Private Const SW_MAXIMIZE = 3
回复
feng32tc 2008-03-20
常数要定义好,查看win32api.txt
回复
相关推荐
发帖
VB基础类
创建于2007-09-28

7489

社区成员

VB 基础类
申请成为版主
帖子事件
创建了帖子
2008-03-20 06:23
社区公告
暂无公告