API 函數(shù) midiOutShortMsg() 和 Excel97 Windows 98您用過 API 函數(shù) midiOutShortMsg() 嗎？請(qǐng)問它能不能用在 Excel97 + Windows 98？如果你不知道，能不能幫我在Excel97 + Windows 98 (我沒有)試試下面的VBA代碼，聽聽有沒有聲音發(fā)出來。如果沒有聲音，請(qǐng)問在Excel97 + Windows 98 下用什么代碼能發(fā)出給定的頻率和長(zhǎng)度的聲音。Private Declare Function midiOutClose Lib "winmm.dll" (ByVal hMidiOut As Long) As LongPrivate Declare Function midiOutOpen Lib "winmm.dll" (lphMidiOut As Long, ByVal uDeviceID As Long, ByVal dwCallback As Long, ByVal dwInstance As Long, ByVal dwFlags As Long) As LongPrivate Declare Function midiOutShortMsg Lib "winmm.dll" (ByVal hMidiOut As Long, ByVal dwMsg As Long) As LongPrivate Sub Test()Dim hMidiOut As Long, i As LongmidiOutOpen hMidiOut, 0, 0, 0, 0 midiOutShortMsg hMidiOut, &HA00000 + &H3C00 + &H90 For i = 1 To 100000 DoEvents Next i midiOutClose hMidiOutEnd Sub

熱心網(wǎng)友

這編的好象是個(gè)宏病毒代碼，不要害人噢！！！