RE: No sound with display

Tech-Archive recommends: Repair Windows Errors & Optimize Windows Performance

That is what is so confusing. The file plays ok on the media player, so the
only thing I could surmise was that, although it indicates that it is
initiating the execute command to play, in is not in fact executing. I was
just reviewing some of the recent automatic updates and can't see anything
that would directly affect the internal code execution. Most of the updates
were related to blocking external hackers into Windows system files.

Oh, well. Maybe somebody smarter than me will have the same problem and
figure it out. It is not in a critical system, but I like to have things
work after I spend a lot of time putting them together.

"Tom Ogilvy" wrote:

Have you tried playing the file with media player or similar? (To make sure
the sound isn't set to mute or the volumn is turned down.)

--
Regards,
Tom Ogilvy



"JLGWhiz" wrote:

The Public declare function for the mciExecute is at the top of the module as
is the other Public declare function which I use for .wav files. The sub
that turns the midi file on and off is titled PlayMidiFile. The last sub is
the one that calls the PlayMidiFile during normal code execution. I have
stepped through the code and it is finding the midi file and is telling it to
execute. The problem is that there is no sound. I have to assume that it
does not execute. There have been several automatic downloads to my system
lately and I have no idea what they might have affected, but this code was
working perfectly until I tried it today. I can play the midi file using the
Windows Media Player, so the midi file is not corrupt.

Does anybody have a clue? It has me snowed.



Public Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" _
(ByVal lpszName As String, hModule As Long, ByVal dwFlags _
As Long) As Long

Public Declare Function mciExecute Lib "winmm.dll" _
(ByVal lpstrCommand As String) As Long

Sub PlayMidiFile(MidiFileName As String, Play As Boolean) 'Function for
calling midi files
If Dir(MidiFileName) = "" Then Exit Sub ' no file to play
If Play Then
mciExecute "play " & MidiFileName ' start playing
Else
mciExecute "stop " & MidiFileName ' stop playing
End If
End Sub

Sub x()
MidiStr = ""
On Error Resume Next
MidiStr = Dir("c:\windows\media\*.mid")
On Error GoTo 0
If MidiStr <> "" Then
Set fs = Application.FileSearch
With fs
.LookIn = "C:\Windows\Media"
.Filename = "*.mid"
If .Execute > 0 Then
MySnd = .FoundFiles(1)
End If
End With
PlayMidiFile (MySnd), True
End If
End Sub


.

Relevant Pages

  • Re: No sound with display
    ... that turns the midi file on and off is titled PlayMidiFile. ... The last sub ... I can play the midi file using ... (ByVal lpstrCommand As String) ...
    (microsoft.public.excel.programming)
  • Re: No sound with display
    ... Hi Nick, if I add PlaySound to the mci function, it throws a critical error. ... that turns the midi file on and off is titled PlayMidiFile. ... The last sub ... I can play the midi file using ...
    (microsoft.public.excel.programming)
  • RE: No sound with display
    ... that turns the midi file on and off is titled PlayMidiFile. ... The last sub is ... does not execute. ... I can play the midi file using the ...
    (microsoft.public.excel.programming)
  • Using .Execute Method of CurrentDB Object
    ... I'm starting to play with using the EXECUTE method of the DB object. ... In the current sub that I'm working on the statement ... I have confirmed that the .Execute statement isn't working as expected in that the .RecordsAffected property is 0 and the field values in the underlying table have not been altered. ...
    (microsoft.public.access.modulesdaovba)
  • Re: Playing an AVI file in a container
    ... I have an AVI file that I want to play on a spash screen. ... I can get the file to play automatically using the MM Control. ... String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long ... Private Sub CenterObject ...
    (microsoft.public.vb.general.discussion)