If your code is run, then the control is just left where it is and made visible. I also resize the media player control to fill most of the form horizontally in case a video file is dragged onto the form. I just added all the controls you needed for yours into a panel that I set invisible when my code is running. I added your code to the top, put in a conditional compilation variable to either compile your code (colossus1958 = True), or my code (colossus1958 = false). You can drag on the label indicating position to change the position. If you select Stop, the current file is stopped and it starts playing the next from the queue. You drag files over from Windows Explorer and drop them on the form to put them in a queue, and they are played automatically. Net but never did anything further with it. I have a program that I used to briefly test using the wmp from. That is where the visualization and video playback should occur. On my form it shows as a large black rectangle. How large is your control on your form? Is it large enough that you see the window? I guess in my post I had the question about how large your Media Player Control window was, but then must have deleted it before the final posting. Private Sub Main_Load(sender As Object, e As EventArgs) Handles MyBase.Load MessageBox.Show("You have reached the beginning.", "WARNING", MessageBoxButtons.OK) Private Sub lbtnPlayPrevious_Click(sender As Object, e As EventArgs) Handles lbtnPlayPrevious.Click Private Sub lbtnPauseResume_Click(sender As Object, e As EventArgs) Handles lbtnPauseResume.Click Private Sub lbtnStop_Click(sender As Object, e As EventArgs) Handles lbtnStop.Click RTB.Text = currSong & vbCrLf & vbCrLf & strrdr If My.(STRG) Thenĭim sr As System.IO.StreamReader = My.(STRG) (pl.Item(counter))ĭim currSong As String = ĭim path As String = My.ĭim STRG As String = path + "\MyTextFiles\" + currSong + extension Private Sub lbtnPlayNext_Click(sender As Object, e As EventArgs) Handles lbtnPlayNext.Clickįor Each item As String In lboxAddSongs.Items Private Sub lbtnShuffle_Click(sender As Object, e As EventArgs) Handles lbtnShuffle.Clickĭim alist As New ArrayList(lboxAddSongs.Items)ĭim idx As Integer = rnd.Next(0, alist.Count) If OFD.ShowDialog = Thenĭim ReadFile As New System.IO.StreamReader(OFD.FileName)ĭim content As String = ReadFile.ReadToEnd() OFD.InitialDirectory = My. & "\Playlists\" Private Sub lbtnSelect_Click(sender As Object, e As EventArgs) Handles lbtnSelect.Click SFD.InitialDirectory = My. & "\Playlists\"ĭim WriteFile As New System.IO.StreamWriter(SFD.FileName)įor i As Integer = 0 To - 1 Private Sub lbtnCreate_Click(sender As Object, e As EventArgs) Handles lbtnCreate.Click MessageBox.Show("SELECT A SONG TO REMOVE") Private Sub lbtnRemove_Click(sender As Object, e As EventArgs) Handles lbtnRemove.Click OFD.Filter = "Audio Files |*.mp3|Other Media Files |*.m4a" Private Sub lbtnAddSongs_Click(sender As Object, e As EventArgs) Handles lbtnAddSongs.Click Me.WindowState = FormWindowState.Minimized Private Sub btnMinimize_Click(sender As Object, e As EventArgs) Handles btnMinimize.Click Private Sub btnClose_Click(sender As Object, e As EventArgs) Handles btnClose.Click
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |