Welcome to Dream.In.Code
Become a VB.NET Expert!

Join 150,085 VB.NET Programmers for FREE! Get instant access to thousands of VB.NET experts, tutorials, code snippets, and more! There are 1,786 people online right now. Registration is fast and FREE... Join Now!




fade in/out music

 
Reply to this topicStart new topic

fade in/out music, how to fade song true timer

IDIS
6 May, 2008 - 05:15 AM
Post #1

New D.I.C Head
*

Joined: 30 Apr, 2008
Posts: 13

Hello,

Can anybody help me with using the timer comtrol to fade in/out music.
For example a song is playing and true a trackbar or any other control a user can set time of the fade. i have seacrhed, found nothing and don't know where to begin.

code to play song/playlist
add wmp control to your form

CODE
Dim Info(1) As String
        Dim wmp As WMPLib.WindowsMediaPlayer = New WMPLib.WindowsMediaPlayerClass
        Dim playlist As WMPLib.IWMPPlaylist
        Dim itm As ListViewItem

        Dim bestandsnaam As String
        playlist = wmp.newPlaylist(bestandsnaam, Pad & bestandsnaam & "RNB MUZIEK.wpl") 'change this for your playlist

        ListView1.Items.Clear()

        For i As Integer = 0 To playlist.count - 1
            Info(0) = playlist.Item(i).getItemInfo("Title")
            Info(1) = playlist.Item(i).getItemInfo("SourceUrl")
            itm = New ListViewItem(Info)
            ListView1.Items.Add(itm)
        Next
        ListView1.Items(0).Selected = True
        Label11.Text = Info(0)
        Player.URL = System.Environment.GetFolderPath(typeSpecialFolder.MyMusic) + "\Mijn Afspeellijsten\" + "RNB MUZIEK.wpl"
        Player.Ctlcontrols.play() ' i think in englisg mijn afspeellijsten is my playlist so change the path here


User is offlineProfile CardPM
+Quote Post

Fast ReplyReply to this topicStart new topic
Time is now: 1/8/09 11:45PM

Be Social

Dream.In.Code RSS Feed Dream.In.Code LinkedIn Group Follow Us On Twitter

Live VB.NET Help!

VB.NET Tutorials

Reference Sheets

VB.NET Snippets

DIC Chatroom

Bye Bye Ads

Monthly Drawing

Thumb Drive

Top Contributors

Top 10 Kudos This Month