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


  共有318人关注过本帖树形打印复制链接

主题:1.发布后的软件提示已运行;2.循环播放录音文件

美女呀,离线,留言给我吧!
漂亮美眉vszh
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:393 积分:3741 威望: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


加好友 发短信
等级:版主 帖子:62660 积分:314398 威望: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


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:62660 积分:314398 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/3/14 11:14:00 [只看该作者]


 回到顶部
美女呀,离线,留言给我吧!
漂亮美眉vszh
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:393 积分:3741 威望:0 精华:0 注册:2013/5/30 11:27:00
  发帖心情 Post By:2018/3/14 12:36:00 [只看该作者]

1.老师,真不好意思。第一个问题我经过测试后,我们老板说同一个用户不能登陆进去,不同用户还是能在同一台计算机上打开同一个软件的;获取打开着程序的用户名,能实现吗?
2.下面的行,但程度在循环期间,我点击停止没办法停止,按钮在程序执行时无法关闭
  Audio.Stop()

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:62660 积分:314398 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/3/14 14:44:00 [只看该作者]

1、看看

 

http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=21615&page=9

 

做一个【在线用户】表,登陆之后把当前用户名记录起来。再打开项目的时候,登陆的时候,查询是否已经登陆过了。

 

2、用多线程做。

 

全局代码

 

Public Sub thread_sub1(ByVal e As object)
Do While(True)
Audio.play("d:\test.wav", AudioPlayMode.WaitToComplete)
Loop
End Sub

 

调用代码

 

Dim t0 As Threading.Thread
t0 = New Threading.Thread(AddressOf thread_sub1)
vars("t0") = t0
t0.Start()

 

暂停、停止

 

vars("t0").Suspend

 

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=115467&skin=0

 

[此贴子已经被作者于2018/3/14 14:44:29编辑过]

 回到顶部