将这两个dll复制到vb.net生成的 \bin\debug目录，并在vb.net项目里添加引用，如下代码可以正常运行请问如何转换到FT里使用
Imports Un4seen.Bass
Public Class Form1
Dim filename As String
Dim stream, level, lft, rht As Integer
Dim len, pos As Long
Dim totaltime, elapsedtime, remainingtime As Double
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
If Bass.BASS_Init(-1, 44100, BASSInit.BASS_DEVICE_DEFAULT, IntPtr.Zero) = False Then
MessageBox.Show("初始化失败" & Bass.BASS_ErrorGetCode.ToString)
End If
End Sub
Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As FormClosingEventArgs) Handles Me.FormClosing
Timer1.Stop()
Bass.BASS_ChannelStop(stream) '停止播放
Bass.BASS_StreamFree(stream) '释放音频流
Bass.BASS_Stop() '停止所有输出
Bass.BASS_Free() '释放所有的资源
End Sub
End Class
[此贴子已经被作者于2019/11/19 14:53:44编辑过]
加好友 
发短信
Post By：2019/11/19 14:53:00 [显示全部帖子]
