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

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

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

 

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