daily pastebin goal
69%
SHARE
TWEET

Untitled

a guest Aug 12th, 2017 51 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
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top