如何当程序被重复启动时激活已启动的窗口并结束自身。

funing 2003-11-01 12:02:33
描述:假如我们我们编译好了一个test.exe,运行之并且处于未结束状态。若此时手动再次启动test.exe
问题1 如何判断程序以及运行?
可用 app.preinstance 判断
2 当发觉自身已经被运行时,如何使先前已经运行的程序窗口被激活,并最大化,然后结束自身。
拜托大家了!
...全文
170 9 打赏 收藏 转发到动态 举报
写回复
用AI写文章
9 条回复
切换为时间正序
请发表友善的回复…
发表回复
planetike 2003-11-03
  • 打赏
  • 举报
回复
也可以用DDE实现,请参考:http://wlbookwl.myrice.com/jck/1027dde.htm
planetike 2003-11-03
  • 打赏
  • 举报
回复
我这里有一个,只是麻烦一点。如果要的话,来信:planetike@hotmail.com
dapha 2003-11-03
  • 打赏
  • 举报
回复
用DDE的方法会更简单。
rainstormmaster 2003-11-01
  • 打赏
  • 举报
回复
http://expert.csdn.net/Expert/topic/2325/2325686.xml?temp=.5716364
funing 2003-11-01
  • 打赏
  • 举报
回复
有没有更好的方法,大家再帮忙想想
funing 2003-11-01
  • 打赏
  • 举报
回复
???
palmkey 2003-11-01
  • 打赏
  • 举报
回复
Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
(ByVal lpClassName As Any, ByVal lpWindowName As String) As Long
Declare Function SetActiveWindow Lib "user32" _
(ByVal hwnd As Long) As Long
Declare Function ShowWindow Lib "user32" _
(ByVal hwnd As Long, ByVal nCmdShow As Long) As Long


If App.PrevInstance = True Then
MsgBox sExit, vbCritical, "提示..."
If FindWindow(0&, "主窗体名称") > 0 Then
AppActivate "主窗体名称
ShowWindow FindWindow(0&, "主窗体名称"), 9
End If
End
End If
wachel 2003-11-01
  • 打赏
  • 举报
回复
可以用api来实现

用findwindow方法查找,看是否有已启动的窗口。

再用showwindow方法将窗体最大化


ShowWindow

VB声明
Declare Function ShowWindow Lib "user32" Alias "ShowWindow" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
说明
控制窗口的可见性(在vb里使用:针对vb窗体及控件,请使用对应的vb属性)
返回值
Long,如窗口之前是可见的,则返回TRUE(非零),否则返回FALSE(零)
参数表
参数 类型及说明
hwnd Long,窗口句柄,要向这个窗口应用由nCmdShow指定的命令
nCmdShow Long,为窗口指定可视性方面的一个命令。请用下述任何一个常数
SW_HIDE 隐藏窗口,活动状态给令一个窗口
SW_MINIMIZE 最小化窗口,活动状态给令一个窗口
SW_RESTORE 用原来的大小和位置显示一个窗口,同时令其进入活动状态
SW_SHOW 用当前的大小和位置显示一个窗口,同时令其进入活动状态
SW_SHOWMAXIMIZED 最大化窗口,并将其激活
SW_SHOWMINIMIZED 最小化窗口,并将其激活
SW_SHOWMINNOACTIVE 最小化一个窗口,同时不改变活动窗口
SW_SHOWNA 用当前的大小和位置显示一个窗口,不改变活动窗口
SW_SHOWNOACTIVATE 用最近的大小和位置显示一个窗口,同时不改变活动窗口
SW_SHOWNORMAL 与SW_RESTORE相同

flc 2003-11-01
  • 打赏
  • 举报
回复
也可以打开该程序,把已打开的关闭

7,732

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧