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

[jiangqiaohua]

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 的值是正确的
没有效果?

应该怎么样改进?

[feng32tc]

常数要定义好，查看win32api.txt

[of123]

Private Const SW_MAXIMIZE = 3

[嗷嗷叫的老马]

Option Explicit真的非常有必要..........

真想不通,VB6IDE开发人员为什么要默认禁用!!

[用户 昵称]

跟着叹一声。

[zzyong00]

............