vb中判断是否重复启动某个程序,如果是则显示上次启动的当前程序
一个vb程序有一个快捷方式,第一次点击快捷方式为运行,第二次点击则显示第一次运行的当前程序而不是重复运行一遍当前程序,怎么做就像360杀毒软件一样,没有运行时点击该快捷方...
一个vb程序有一个快捷方式,第一次点击快捷方式为运行,第二次点击则显示第一次运行的当前程序而不是重复运行一遍当前程序,怎么做
就像360杀毒软件一样,没有运行时点击该快捷方式会运行它,如果360已经后台运行了,则点击该快捷方式会把后台运行的360显示出来 展开
就像360杀毒软件一样,没有运行时点击该快捷方式会运行它,如果360已经后台运行了,则点击该快捷方式会把后台运行的360显示出来 展开
2个回答
展开全部
新建一个VB6的工程1,在Form1上创建一个PictureBox对象Picture1,将Picture1的Visible属性设为False(即运行时不显示),将Form1的LinkMode属性设为1-Source,在Form1的代码窗口中输入如下代码:
Private Sub Form_Initialize()
If App.PrevInstance Then
Picture1.LinkTopic = "工程1|Form1"
Picture1.LinkMode = 2
Picture1.LinkExecute ""
End
End If
End Sub
Private Sub Form_LinkExecute(CmdStr As String, Cancel As Integer)
If Me.WindowState = 1 Then Me.WindowState = 0
Me.SetFocus
Cancel = 0
End Sub
编译工程,生成EXE文件,试一试效果:第一次点击时运行,第二次点击则显示第一次运行的当前程序而不是重复运行一遍当前程序
Private Sub Form_Initialize()
If App.PrevInstance Then
Picture1.LinkTopic = "工程1|Form1"
Picture1.LinkMode = 2
Picture1.LinkExecute ""
End
End If
End Sub
Private Sub Form_LinkExecute(CmdStr As String, Cancel As Integer)
If Me.WindowState = 1 Then Me.WindowState = 0
Me.SetFocus
Cancel = 0
End Sub
编译工程,生成EXE文件,试一试效果:第一次点击时运行,第二次点击则显示第一次运行的当前程序而不是重复运行一遍当前程序
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询