VB.NET เล่นเสียงเพลงในโปรแกรม ด้วยไฟล์ .xm .mod
สมาชิกทั่วไป
เลื่อนระดับ
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 น.
โพสต์เมื่อ 10 กรกฎาคม 2562 เวลา 23:08 น.
ความคิดเห็นที่ 1