播放声音的列子 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 播放声音的列子

共有8823人关注过本帖树形打印复制链接主题：播放声音的列子

kmzb56

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：二尾狐帖子：528 积分：5034 威望：0 精华：0 注册：2012/4/6 19:31:00

播放声音的列子 发帖心情

Post By：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

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐神帖子：6708 积分：34304 威望：0 精华：11 注册：2012/8/18 23:10:00

Post By：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

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：二尾狐帖子：528 积分：5034 威望：0 精华：0 注册：2012/4/6 19:31:00

Post By：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

可以了，不知有漏洞没？

下一主题 >> << 上一主题

主题：播放声音的列子