Imports System.IO



Public Class Form1



    Public Declare Function FSOUND_Init Lib "C:\Windows\Temp\fmod.dll" Alias "_FSOUND_Init@12" (ByVal mixrate As Integer, ByVal maxchannels As Integer, ByVal flags As Integer) As Byte

    Public Declare Function FMUSIC_LoadSong Lib "C:\Windows\Temp\fmod.dll" Alias "_FMUSIC_LoadSong@4" (ByVal name As String) As Integer

    Public Declare Function FMUSIC_PlaySong Lib "C:\Windows\Temp\fmod.dll" Alias "_FMUSIC_PlaySong@4" (ByVal modul As Integer) As Byte

    Public Declare Function FMUSIC_StopAllSongs Lib "C:\Windows\Temp\fmod.dll" Alias "_FMUSIC_StopAllSongs@0" () As Long

    Dim XMFilename As String = "p9028tih.xm"

    Dim TempPath As String = System.IO.Path.GetTempPath()

    Dim ExtractPath As String = TempPath & "\" & XMFilename

    Dim XMPointer As Integer = 0



    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

            FSOUND_Init(44001, 128, 0)

            System.IO.File.WriteAllBytes(ExtractPath, My.Resources.ไฟล์.xm)

            XMPointer = FMUSIC_LoadSong(System.IO.Path.GetTempPath() & "\p9028tih.xm")

            FMUSIC_PlaySong(XMPointer) 'คำสั่งเล่น

            'FMUSIC_StopAllSongs() 'คำสั่งหยุด

    End Sub







End Class

แก้ไขล่าสุดเมื่อ 5 มกราคม 2561 เวลา 06:36 น.