当前位置:编程学习 > VB >>

鍏充簬鍔犲叆鎶ヨ澹伴煶锛屾眰缁欎釜鎬濊矾锛岃阿璋紒

鎴戠洰鍓嶅凡缁忓疄鐜颁簡杈惧埌鏉′欢锛孡abel鏍囩鑳屾櫙鑹查棯鐑佺殑鍔熻兘锛岀幇鍦ㄦ兂鍦ㄩ棯鐑佺殑鍚屾椂鍔犲叆鎶ヨ澹伴煶銆傚ぇ姒?鍒嗛挓鍒ゆ柇涓€娆★紝鎵€浠ュ0闊充笉闇€瑕佹寔缁緢闀匡紝鍙璧峰埌鎻愰啋浣滅敤锛?0绉掑唴鍗冲彲銆傛垜灏濊瘯杩囩敤PlaySound鍑芥暟锛屽彂鐜板湪鎾斁澹伴煶鏃讹紝鍏朵粬鍔熻兘灏变細鏆傚仠锛岃€屾垜闇€瑕佺殑鏄姤璀﹀0闊冲拰鐢婚潰鑳藉悓鏃惰繘琛屻€傛垜鐪嬪埌缃戜笂鍏充簬VB鎾斁澹伴煶鏂囦欢鐨勬柟娉曚篃寰堝锛屾湁浜涜糠鑼笉鐭ラ亾璇ョ敤鍝釜濂姐€傜幇鍦ㄦ湁鐐规兂鐢―irectX鏉ュ仛锛屼絾涓嶇煡閬撲粠浣曞璧凤紝鐪嬪摢浜涜祫鏂欍€傛湁浜鸿兘缁欐垜涓€浜涙€濊矾鍚楋紵 --------------------编程问答-------------------- playSound,鎸囧畾绗笁涓弬鏁颁负SND_ASYNC 锛屽嵆鍙紓姝ユ挱鏀撅紝涓嶄細鏆傚仠 --------------------编程问答-------------------- 妤间笂姝hВ锛岃繖涓凡璇曡繃銆? --------------------编程问答-------------------- Beep璇彞灏卞彲浠ヤ簡銆? --------------------编程问答--------------------
寮曠敤 3 妤?nbsp; 鐨勫洖澶?
Beep璇彞灏卞彲浠ヤ簡銆?/blockquote>

鏄殑锛岀敤杩欎釜灏卞彲浠ヤ簡銆傞棶棰樻槸浣犺灏嗚皟鐢˙eep鐨勪唬鐮佹斁鍒板悎閫傜殑浣嶇疆銆?br />

'杩欐槸鎴戜釜浜虹殑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
--------------------编程问答-------------------- playSound,鎸囧畾绗笁涓弬鏁颁负SND_ASYNC 锛屽嵆鍙紓姝ユ挱鏀撅紝涓嶄細鏆傚仠 --------------------编程问答-------------------- 鍙互閲囩敤涓€涓渹楦e櫒锛屽伐鎺ц涓氱敤鏉垮崱鎴朠LC椹卞姩锛屽鏋滀綘娌℃湁锛屼綘鍙互鑰冭檻閲囩敤骞跺彛鎺у埗鍙戝0銆傚伐鎺ц涓氶兘杩欎箞鍋? --------------------编程问答--------------------
寮曠敤 6 妤?nbsp; 鐨勫洖澶?
鍙互閲囩敤涓€涓渹楦e櫒锛屽伐鎺ц涓氱敤鏉垮崱鎴朠LC椹卞姩锛屽鏋滀綘娌℃湁锛屼綘鍙互鑰冭檻閲囩敤骞跺彛鎺у埗鍙戝0銆傚伐鎺ц涓氶兘杩欎箞鍋?/blockquote>


鎬庝箞鎺у埗骞跺彛锛燂紵  鎵撳嵃鏈烘帴鍙o紵锛?nbsp; 澶氬皯鐢靛帇銆佸姛鐜囧晩锛燂紵 --------------------编程问答--------------------
寮曠敤 7 妤?nbsp; 鐨勫洖澶?
寮曠敤 6 妤?nbsp;鐨勫洖澶?

鍙互閲囩敤涓€涓渹楦e櫒锛屽伐鎺ц涓氱敤鏉垮崱鎴朠LC椹卞姩锛屽鏋滀綘娌℃湁锛屼綘鍙互鑰冭檻閲囩敤骞跺彛鎺у埗鍙戝0銆傚伐鎺ц涓氶兘杩欎箞鍋?br />

鎬庝箞鎺у埗骞跺彛锛燂紵 鎵撳嵃鏈烘帴鍙o紵锛?nbsp;澶氬皯鐢靛帇銆佸姛鐜囧晩锛燂紵

骞跺彛鏄疶TL鐢靛钩锛屽彲浠ラ┍鍔ㄥ鎺ョ數婧愮殑缁х數鍣紝浠庤€岄┍鍔ㄨ渹楦e櫒銆傝繖涓槸鍙互瀹炵幇鐨勩€?br /> 鍏充簬濡備綍鎺у埗骞跺彛锛屽弬闃咃細
http://download.csdn.net/detail/veron_04/3152172
鎴戝嚑骞村墠鍋氳繃绫讳技寮€鍙戯紝鏁堟灉杩樿銆?br /> 闂鐨勫叧閿湪浜庤繖涓户鐢靛櫒涓€瀹氳閫夊ソ锛岄€氬父鏄浐鎬佺户鐢靛櫒 --------------------编程问答-------------------- beep鏈変簩绉嶅舰寮?LZ鐩存帴浣跨敤beep()鏉ュ緱鐩存帴鐐?
CopyRight © 2022 站长资源库 编程知识问答 zzzyk.com All Rights Reserved
部分文章来自网络,