如何在VB.NET中做到这一点? [英] how to do this in VB.NET?

问题描述

我刚刚遇到了un4seen，我使用Visual Basic 2008试了一下.
我找到了一些教程，但由于我不知道的原因而无法正常工作，因为在视频中它可以工作.我已经试过两次了.有人可以告诉我我是否错过了什么，或者那里还有其他教程或资源吗?
这个家伙做到了，但是它是德语的，对他来说很完美:
http://www.youtube.com/embed/XWg5oazzRSk

谢谢

I just came across un4seen and I gave it a go using visual basic 2008.
I found a few tutorials but it''s not working for reasons I do not know, because in the video it works. I''ve tried it twice. Could anyone tell me if I have missed something or if there are other tutorials or sources out there?
This guy does it but it''s in German and it works perfect for him:
http://www.youtube.com/embed/XWg5oazzRSk

Thanks

Imports Un4seen.Bass
Public Class Form1
Public stream As Integer

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Bass.BASS_Init(+1, 44100, BASSInit.BASS_DEVICE_CPSPEAKERS, IntPtr.Zero, Nothing)

End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim open As New OpenFileDialog
If open.ShowDialog = Windows.Forms.DialogResult.OK Then
TextBox1.Text = open.FileName


End If
End Sub

Public Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
stream = Bass.BASS_StreamCreateFile(TextBox1.Text, 0, 0, BASSFlag.BASS_STREAM_AUTOFREE Or BASSFlag.BASS_STREAM_PRESCAN)
Bass.BASS_ChannelPlay(stream, False)

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Bass.BASS_ChannelStop(stream)
End Sub

Public spectrem As New Un4seen.Bass.Misc.Visuals
Public peek(2) As Single

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Bass.BASS_ChannelGetLevel(stream, peek)
Dim ProgressBar2_value As Integer = (Math.Round(peek(1), 3) = 100)
Dim ProgressBar1_value As Integer = (Math.Round(peek(2), 3) = 100)
ProgressBar2.Value = ProgressBar2_value
ProgressBar1.Value = ProgressBar1_value

PictureBox1.Image = spectrem.CreateSpectrumLine(stream, PictureBox1.Width, PictureBox1.Height, Color.CornflowerBlue, Color.HotPink, Color.Black, 0, 5, False, True, True)

End Sub

End Class

[kschuler-进行拼写等编辑，并添加了代码块]

[kschuler - Edited for spelling, etc. and added code block]

推荐答案

在这里，几乎没有人会对此库一无所知.您最好的信息来源将是位于 http://www.un4seen.com [

It''s etremely unlikely anyone here is going to know anything about that library. Your best source of information is going to be the Forums link at http://www.un4seen.com[^].

这篇关于如何在VB.NET中做到这一点?的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！