hur.cn - 华软网

 热门搜索

pb中如何当检测到某条记录的状态为0时 播放一段mp3的音乐!!

  作者:未知    来源:网络    更新时间:2018/4/16
time 事件中
检测到某条记录的状态为0时 
用什么方法能 播放一段mp3或者wav格式的音乐!!
pb6.5 pb6.0 pb5.0
beep 函数是声音太小了
------华软网友回答------
我有播放mp3的例子,不过这样做的必要性值得商榷,因为不是商务机型应该是不能播放音乐的。楼主应该重新考虑一下。

------华软网友回复------
我有播放mp3的例子,不过这样做的必要性值得商榷,因为商务机型应该是不能播放音乐的。楼主应该重新考虑一下。
------华软网友回复------
用 api 的  beep


呵呵,可调频率等参数,什么样的声音都调得出来
------华软网友回复------
放mp3和wmv不是很简单么?插入一个嵌入media player控件的ole,并设置为不可见啊,只需要调用一个play函数就可以了啊
------华软网友回复------
聪明

------华软网友回复------
123
------华软网友回复------
li_d_s(我是小鬼):你好,可以说的具体些么,最好有个例子
------华软网友回复------
用API,播放MDI
f_startmusic(string as_music) return none

String  ls_status, &
ls_open, &
ls_play, &
ls_stop, &
ls_rtn, &
ls_null

ls_rtn = Space(256)
SetNull(ls_null)

ls_status = "status NN mode"
MCISendString(ls_status,ls_rtn,len(ls_rtn),0)

if LeftW(ls_rtn,7)="stopped" Or LeftW(ls_rtn,2)="Í£Ö¹" Or trim(ls_rtn)="" Then
ls_stop = "Close NN"
mciSendString (ls_stop,ls_Null,0,0)
ls_open = "OPEN "+ as_music + " TYPE SEQUENCER ALIAS NN"
   mciSendString (ls_open,ls_Null,0,0)
ls_play = "play NN from 0"
   mciSendString (ls_play , ls_Null , 0 , 0)
end if
------华软网友回复------
用API终止MDI音乐

f_stopmusic() return none

String  ls_status, &
ls_open, &
ls_play, &
ls_stop, &
ls_rtn, &
ls_null

ls_rtn = Space(256)
SetNull(ls_null)

ls_status = "status NN mode"
MCISendString(ls_status,ls_rtn,len(ls_rtn),0)

if LeftW(ls_rtn,7)="playing" Or LeftW(ls_rtn,2)="²¥·Å" Then
ls_stop = "Close NN"
mciSendString (ls_stop,ls_Null,0,0)
end if
------华软网友回复------
String  ls_status, &
ls_open, &
ls_play, &
ls_stop, &
ls_rtn, &
ls_null

ls_rtn = Space(256)
SetNull(ls_null)

ls_status = "status NN mode"
MCISendString(ls_status,ls_rtn,len(ls_rtn),0)

if LeftW(ls_rtn,7)="stopped" Or LeftW(ls_rtn,2)="停止" Or trim(ls_rtn)="" Then
ls_stop = "Close NN"
mciSendString (ls_stop,ls_Null,0,0)
ls_open = "OPEN "+ as_music + " TYPE SEQUENCER ALIAS NN"
   mciSendString (ls_open,ls_Null,0,0)
ls_play = "play NN from 0"
   mciSendString (ls_play , ls_Null , 0 , 0)
end if

上面COPY时有乱码,重发一下



------华软网友回复------
我把低码:
String ls_status, &
ls_open, &
ls_play, &
ls_stop, &
ls_rtn, &
ls_null

ls_rtn = Space(256)
SetNull(ls_null)

ls_status = "status NN mode"
MCISendString(ls_status,ls_rtn,len(ls_rtn),0)

if LeftW(ls_rtn,7)="stopped" Or LeftW(ls_rtn,2)="Í£Ö¹" Or trim(ls_rtn)="" Then
ls_stop = "Close NN"
mciSendString (ls_stop,ls_Null,0,0)
ls_open = "OPEN "+ as_music + " TYPE SEQUENCER ALIAS NN"
   mciSendString (ls_open,ls_Null,0,0)
ls_play = "play NN from 0"
   mciSendString (ls_play , ls_Null , 0 , 0)
end if

放入我的function 当中,可是无法识别函数:mciSendString ,请问这个函数从哪来,能否提供下
     
华软声明:本内容来自网络,如有侵犯您版权请来信指出,本站立即删除。