如何使一个程序只运行一个
来源:互联网 发布:两个表格查找相同数据 编辑:程序博客网 时间:2024/05/29 04:08
方法一:
If App.PrevInstance = True Then MsgBox "程序已经在运行中,不打开两个!", vbCritical + vbOKOnly, "友情提示"
方法二:
设计时把窗体的LinkMode设为1-Source;在窗体上添加一个PictureBox命名picDDE。(貌似文本框和标签也可以这么用,没试过)
'API函数,用于把制定窗口设为活动窗口
Private Declare Function SetActiveWindow Lib "user32" (ByVal hwnd As Long) As Long
Private Const sMsgToTop As String = "ToTop!" '自定义消息,随意改
Private Const sFormLT As String = "I AM UNIQUE" '链接主题,只要和别的程序不重名
'DDE链接, 处理信息
Private Sub Form_LinkExecute(CmdStr As String, Cancel As Integer)
Select Case CmdStr
Case "ToTop!" '我们发送的信息
'调用API把自己设为活动
SetActiveWindow Me.hwnd
End Select
Cancel = 0
End Sub
Private Sub Form_Load()
If App.PrevInstance Then
Me.LinkTopic = ""
MsgBox ("程序已运行!")
'向已存在的窗体发送信息
picDDE.LinkTopic = App.ProductName & "|" & sFormLT
picDDE.LinkMode = 2
picDDE.LinkExecute sMsgToTop
End
Else
Me.LinkTopic = sFormLT
End If
End Sub
- 如何使一个程序只运行一个
- 如何使程序只运行一个实例
- 如何让程序只运行一个实例
- 如何让mfc程序只运行一个
- 只运行一个程序
- 怎样使程序只运行一个实例
- 使Qt程序只运行一个实例
- 如何使应用程序只运行一个实例
- 如何使应用程序只运行一个实例
- 如何使应用程序只运行一个实例
- 如何使应用程序只运行一个实例
- 如何使应用程序只运行一个实例
- 如何使应用程序只运行一个实例
- 只运行一个程序实例
- 只运行一个实例程序
- delphi 只运行一个程序
- 程序只运行一个实例
- 只运行一个程序实例
- COM 组件设计与应用(二)——GUID 和 接口
- 一个研究生毕业以后的人生规划(转自天涯虚拟社区)
- COM 组件设计与应用(三)——数据类型
- 外国专家听课后一句话 顿时让中国教育蒙羞!
- 以人為本的地圖,啥時才出現?
- 如何使一个程序只运行一个
- COM 组件设计与应用(四)——简单调用组件
- Linux下FTP命令行使用精萃
- COM 组件设计与应用(五)——用 ATL 写第一个组件
- COM 组件设计与应用(六)——用 ATL 写第一个组件
- Linux高手之路---SVN使用笔记
- 自己的IE——用VB制作浏览器
- COM 组件设计与应用(七)——编译、注册、调用
- [BKM]Solaris系统安装指南