SHARE
TWEET

Untitled

a guest Aug 12th, 2017 50 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1.  
  2. Private Function LoadMidi(ByVal file As String) As Boolean
  3. '***************************************************
  4. 'Author: Juan Martín Sotuyo Dodero (Maraxus)
  5. 'Last Modification: 16/03/04
  6. 'Loads a midi to memory
  7. '***************************************************
  8. On Error GoTo ErrHandler
  9.     If Not FileExist(file, vbArchive) Then Exit Function
  10.    
  11.     Call StopMidi
  12.    
  13.     'Destroy old object
  14.     Set Segment = Nothing
  15.    
  16.     Set Segment = Loader.LoadSegment(file)
  17.    
  18.     If Segment Is Nothing Then
  19.         Exit Function
  20.     End If
  21.    
  22.     Segment.SetStandardMidiFile
  23.    
  24.     LoadMidi = True
  25. Exit Function
  26.  
  27. ErrHandler:
  28. End Function
RAW Paste Data
Top