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


  共有1820人关注过本帖平板打印复制链接

主题: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


 回到顶部