小问题,高手帮下

icake 2007-07-19 11:34:10
shell 一个程序,并且获得它的HWND.
...全文
166 点赞 收藏 4
写回复
4 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
icake 2007-07-20
我用SETWINDOWPOS 怎么切换不过去呢?
lngww = GetWindowLong(hwdApp, -16)
If lngww And &H20000000 Then
x = ShowWindow(hwdApp, 9)
End If
x = SetWindowPos(hwdApp, 0, 0, 0, 0, 0, &H40)
回复
icake 2007-07-20
这么简单么? 我试下.
回复
Saytoyou 2007-07-20
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Const SW_SHOWNORMAL = 1

Private Sub Form_Load()
Dim hwdApp As Long

hwdApp = ShellExecute(0, vbNullString, "Notepad.exe", vbNullString, "C:\", SW_SHOWNORMAL)
MsgBox hwdApp
End Sub
回复
icake 2007-07-19
upmyself
回复
发帖
VB基础类
创建于2007-09-28

7479

社区成员

VB 基础类
申请成为版主
帖子事件
创建了帖子
2007-07-19 11:34
社区公告
暂无公告