| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 播放声音的列子 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=26198) |
| -- 作者：kmzb56 -- 发布时间：2012/11/27 8:56:00 -- 播放声音的列子 我想在追载数据成功后加播放一段声音，像QQ发送了消息后可以有提示消息一样，以下代码我是放在计划任务里的，Dim qkid As Integer = DataTables("情况发布").Compute("Max(_Identify)") Dim Filter As String = "[_Identify] > " & qkid If Forms("任务查询").Opened() Then Dim cnt As Integer = Tables("任务查询_table3").Rows.Count DataTables("情况发布").AppendLoad(Filter, False) If Tables("任务查询_table3").Rows.Count > cnt Then Tables("任务查询_table3").Position = cnt End If Else DataTables("情况发布").AppendLoad(Filter, False) Audio.Play("C:\\music\\test.wav") End If 这样就会造成每2秒播放时声音，反复得复，我想比较qkid 和indetyfy来比较值再来决定是否播放声音，但不行，不知有什么方法没？只有发布了新的消息成功了才播放，请问有什么方法？
|
| -- 作者：lin_hailun -- 发布时间：2012/11/27 9:01:00 -- AppendLoad会返回一个追加的行的集合。 Dim drs As List(Of DataRow) = DataTables("情况发布").AppendLoad(Filter, False) If drs.Count > 0 Then Audio.Play("C:\\music\\test.wav") End If |
| -- 作者：kmzb56 -- 发布时间：2012/11/27 9:04:00 -- 哈哈，可以了：Dim qkid As Integer = DataTables("情况发布").Compute("Max(_Identify)") Dim Filter As String = "[_Identify] > " & qkid If Forms("任务查询").Opened() Then Dim cnt As Integer = Tables("任务查询_table3").Rows.Count DataTables("情况发布").AppendLoad(Filter, False) If Tables("任务查询_table3").Rows.Count > cnt Then Tables("任务查询_table3").Position = cnt End If Else DataTables("情况发布").AppendLoad(Filter, False) End If Dim qkid2 As Integer = DataTables("情况发布").Compute("Max(_Identify)") If qkid2>qkid Audio.Play("D:\\zbddt\\Project\\sound\\Ring.wav") End If 可以了，不知有漏洞没？
|