1.发布后的软件提示已运行；2.循环播放录音文件 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 1.发布后的软件提示已运行；2.循环播放录音文件

共有1821人关注过本帖树形打印复制链接主题：1.发布后的软件提示已运行；2.循环播放录音文件

漂亮美眉vszh

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：869 积分：7854 威望：0 精华：0 注册：2013/5/30 11:27:00

1.发布后的软件提示已运行；2.循环播放录音文件 发帖心情

Post By：2018/3/14 11:04:00 [只看该作者]

老师：1.发布后的软件已运行时，如果打开了，就提示软件已运行，而不是再打开一个软件；

2.录音后，需求循环播放，可是循环时，没等语音播放完毕，又继续下一个；所以想等第一个播放完毕后再进行下一个操作，贴上我写的代码，如何修改？

For Each File As String In FileSys.GetFiles("D:\循环录间播放")

    Dim Proc As New Process '定义一个新的Process
    MessageBox.Show(File)

Proc.File = file '指定要打开的文件
Proc.Start()
'Proc.WaitForExit()

Proc.WaitForInputIdle() '等程序自动结束并进入空闲状态
'Proc.Close()
Next

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/3/14 11:11:00 [只看该作者]

1、beforeOpenProject事件

static mu As object
Dim sucess As Boolean = False
mu = new System.Threading.Mutex(True, "dsdfhdfghf", sucess)
If not sucess Then
MessageBox.Show("程序已经在运行,不能重复打开!", "提示",MessageBoxButtons.Ok,MessageBoxIcon.Warning,0, Windows.forms.MessageBoxOptions.ServiceNotification)
e.Cancel = True
End If