鍏充簬鍔犲叆鎶ヨ澹伴煶锛屾眰缁欎釜鎬濊矾锛岃阿璋紒
鎴戠洰鍓嶅凡缁忓疄鐜颁簡杈惧埌鏉′欢锛孡abel鏍囩鑳屾櫙鑹查棯鐑佺殑鍔熻兘锛岀幇鍦ㄦ兂鍦ㄩ棯鐑佺殑鍚屾椂鍔犲叆鎶ヨ澹伴煶銆傚ぇ姒?鍒嗛挓鍒ゆ柇涓€娆★紝鎵€浠ュ０闊充笉闇€瑕佹寔缁緢闀匡紝鍙璧峰埌鎻愰啋浣滅敤锛?0绉掑唴鍗冲彲銆傛垜灏濊瘯杩囩敤PlaySound鍑芥暟锛屽彂鐜板湪鎾斁澹伴煶鏃讹紝鍏朵粬鍔熻兘灏变細鏆傚仠锛岃€屾垜闇€瑕佺殑鏄姤璀﹀０闊冲拰鐢婚潰鑳藉悓鏃惰繘琛屻€傛垜鐪嬪埌缃戜笂鍏充簬VB鎾斁澹伴煶鏂囦欢鐨勬柟娉曚篃寰堝锛屾湁浜涜糠鑼笉鐭ラ亾璇ョ敤鍝釜濂姐€傜幇鍦ㄦ湁鐐规兂鐢―irectX鏉ュ仛锛屼絾涓嶇煡閬撲粠浣曞璧凤紝鐪嬪摢浜涜祫鏂欍€傛湁浜鸿兘缁欐垜涓€浜涙€濊矾鍚楋紵 --------------------编程问答-------------------- playSound,鎸囧畾绗笁涓弬鏁颁负SND_ASYNC 锛屽嵆鍙紓姝ユ挱鏀撅紝涓嶄細鏆傚仠 --------------------编程问答-------------------- 妤间笂姝ｈВ锛岃繖涓凡璇曡繃銆? --------------------编程问答-------------------- Beep璇彞灏卞彲浠ヤ簡銆? --------------------编程问答--------------------鏄殑锛岀敤杩欎釜灏卞彲浠ヤ簡銆傞棶棰樻槸浣犺灏嗚皟鐢˙eep鐨勪唬鐮佹斁鍒板悎閫傜殑浣嶇疆銆?br />
--------------------编程问答-------------------- playSound,鎸囧畾绗笁涓弬鏁颁负SND_ASYNC 锛屽嵆鍙紓姝ユ挱鏀撅紝涓嶄細鏆傚仠 --------------------编程问答-------------------- 鍙互閲囩敤涓€涓渹楦ｅ櫒锛屽伐鎺ц涓氱敤鏉垮崱鎴朠LC椹卞姩锛屽鏋滀綘娌℃湁锛屼綘鍙互鑰冭檻閲囩敤骞跺彛鎺у埗鍙戝０銆傚伐鎺ц涓氶兘杩欎箞鍋? --------------------编程问答--------------------
'杩欐槸鎴戜釜浜虹殑dll鐨勪唬鐮侊紝涓€娈甸煶涔愶紝涓嶅埡鑰筹紝鍚潃鏁堟灉杩樿銆?br /> Private Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long
Public Sub PlaySoundByBeep()
Dim i As Long
For i = 0 To 4
Call Beep(1000 * i, 100 * (5 - i))
Call Beep(1000 * (5 - i), 100 * i)
DoEvents
Next
End Sub
鎬庝箞鎺у埗骞跺彛锛燂紵 鎵撳嵃鏈烘帴鍙ｏ紵锛?nbsp; 澶氬皯鐢靛帇銆佸姛鐜囧晩锛燂紵 --------------------编程问答--------------------
骞跺彛鏄疶TL鐢靛钩锛屽彲浠ラ┍鍔ㄥ鎺ョ數婧愮殑缁х數鍣紝浠庤€岄┍鍔ㄨ渹楦ｅ櫒銆傝繖涓槸鍙互瀹炵幇鐨勩€?br /> 鍏充簬濡備綍鎺у埗骞跺彛锛屽弬闃咃細
http://download.csdn.net/detail/veron_04/3152172
鎴戝嚑骞村墠鍋氳繃绫讳技寮€鍙戯紝鏁堟灉杩樿銆?br /> 闂鐨勫叧閿湪浜庤繖涓户鐢靛櫒涓€瀹氳閫夊ソ锛岄€氬父鏄浐鎬佺户鐢靛櫒 --------------------编程问答-------------------- beep鏈変簩绉嶅舰寮?LZ鐩存帴浣跨敤beep()鏉ュ緱鐩存帴鐐?
