You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
19 lines
291 B
QBasic
19 lines
291 B
QBasic
2 years ago
|
Attribute VB_Name = "modEffect"
|
||
|
|
Option Explicit
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
Public Sub Play(File As String, MC As Control)
|
||
|
|
|
||
|
|
MC.Command = "Close"
|
||
|
|
MC.Notify = False
|
||
|
|
MC.Wait = True
|
||
|
|
MC.DeviceType = "WaveAudio"
|
||
|
|
MC.FileName = File
|
||
|
|
MC.Command = "Open"
|
||
|
|
MC.Command = "Play"
|
||
|
|
|
||
|
|
|
||
|
|
End Sub
|
||
|
|
|