Visual-Basic-Forum VB-Paradise.de

Visual Basic Quellcode

Dim Länge As String = TimeSpan.FromSeconds(AudioDatei.Duration).Minutes.ToString("00") & ":" & 

Trackbar1.Maximum = Länge
Trackbar1.Value = Audiodatei.Currentposition

Visual Basic Quellcode

AudioDatei = New Audio(My.Resources.musik)
        	AudioDatei.Play()

Visual Basic Quellcode

Imports Microsoft.DirectX
Imports Microsoft.DirectX.AudioVideoPlayback

Public Class Form1

Private WithEvents AudioDatei As Audio

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
AudioDatei = New Audio("E:\song.mp3")

AudioDatei.Play()
End Sub
End Class

Visual Basic Quellcode

Imports Microsoft.DirectX
Imports Microsoft.DirectX.AudioVideoPlayback
Public Class Form1
   
	Private WithEvents AudioDatei As Audio
	Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

    	AudioDatei.Play()
	End Sub

	Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    	AudioDatei.Pause() 'Pausieren
	End Sub

	Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    	AudioDatei.Stop() 'Stoppen
	End Sub

	Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    	
	End Sub

	Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
    	AudioDatei = New Audio("C:\Klaas - Going Insane (House 2008).mp3")
	End Sub
End Class

Visual Basic Quellcode

AudioDatei = New Audio("C:\Klaas - Going Insane (House 2008).mp3")

Visual Basic Quellcode

Dim Länge As String = TimeSpan.FromSeconds(VideoDatei.Duration).Minutes.ToString("00") & ":" & CStr(TimeSpan.FromSeconds(VideoDatei.Duration).Seconds)