- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- VB.net代码如何转换到FT里使用 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=143280)
-- 发布时间：2019/11/19 14:53:00
-- VB.net代码如何转换到FT里使用
将这两个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编辑过]
-- 发布时间：2019/11/19 14:58:00
--
把dll复制到Foxtable的安装目录，然后添加引用http://www.foxtable.com/webhelp/topics/1936.htm
对应的代码放到窗口afterload，或者按钮事件即可
-- 发布时间：2019/11/19 15:02:00
--
有添加引用
放在Afterload里，点确定时，会提示：编译错误:语法错误。错误代码：Imports Un4seen.Bass[此贴子已经被作者于2019/11/19 15:04:11编辑过]
-- 发布时间：2019/11/19 15:04:00
--
代码改改，不能照搬的。把在vb.net项目发上来看看
-- 发布时间：2019/11/19 15:06:00
--
项目见附件
-- 发布时间：2019/11/19 15:31:00
--
全局代码
Public filename As String
Public stream, level, lft, rht As Integer
Public len, pos As Long
Public totaltime, elapsedtime, remainingtime As Double
If Un4seen.Bass.Bass.BASS_Init(-1, 44100, Un4seen.Bass.BASSInit.BASS_DEVICE_DEFAULT, IntPtr.Zero) = False Then
MessageBox.Show("初始化失败" & Un4seen.Bass.Bass.BASS_ErrorGetCode.ToString)
End If
afterclose事件
Un4seen.Bass.Bass.BASS_ChannelStop(stream) \'停止播放
Un4seen.Bass.Bass.BASS_StreamFree(stream) \'释放音频流
Un4seen.Bass.Bass.BASS_Stop() \'停止所有输出
Un4seen.Bass.Bass.BASS_Free() \'释放所有的资源
按钮1
Dim dlg As New OpenFileDialog
If dlg.ShowDialog = DialogResult.OK Then
filename = dlg.FileName
End If
If dlg.ShowDialog = DialogResult.OK Then
filename = dlg.FileName
End If
……其它参考自己处理
-- 发布时间：2019/11/19 15:57:00
--
运行通过，感谢!
-- 发布时间：2019/11/19 17:00:00
--
老师，在开发版中可以运行，编译后，运行编译文件，会出现如下错误提示：
错误所在事件：窗口,窗口1,AfterLoad
详细错误信息：
“Un4seen.Bass.Bass”的类型初始值设定项引发异常。
无法加载 DLL“bass”: 找不到指定的模块。 (异常来自 HRESULT:0x8007007E)。
-- 发布时间：2019/11/19 17:15:00
--
发现了问题，发布时添加附件bass.dll,会自动生成在发布项目的Publish\\project目录下，如果将其复制到发布生成的Publish目录下，就可正常运行。问题是如何让它自动发布到Publish目录下呢
-- 发布时间：2019/11/19 17:24:00
--
完全不需要添加附件。只要添加引用http://www.foxtable.com/webhelp/topics/1936.htm
发布就会自动复制到Publish目录的，其它没有添加引用的dll只能手工复制了