以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  1.发布后的软件提示已运行；2.循环播放录音文件  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=115765)
--  作者：漂亮美眉vszh
--  发布时间：2018/3/14 11:04:00
--  1.发布后的软件提示已运行；2.循环播放录音文件
老师：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
--  作者：有点甜
--  发布时间：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
--  作者：有点甜
--  发布时间：2018/3/14 11:14:00
--  

2、

 

方法一：http://www.foxtable.com/webhelp/scr/0330.htm

 

方法二：http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=50545

 

方法三：http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=93517&skin=0

 
--  作者：漂亮美眉vszh
--  发布时间：2018/3/14 12:36:00
--  
1.老师，真不好意思。第一个问题我经过测试后，我们老板说同一个用户不能登陆进去，不同用户还是能在同一台计算机上打开同一个软件的；获取打开着程序的用户名，能实现吗？
2.下面的行，但程度在循环期间，我点击停止没办法停止，按钮在程序执行时无法关闭
  Audio.Stop()
--  作者：有点甜
--  发布时间：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编辑过]