Breadcrumbs

[RunarM]

How can i get ShockwavePlayer for Vb?

[Nery]

Open VB, Start or open a new project, in the toolbox right click with your mouse, press Choose Items..., a new window will pop up, find ShockWave Flash Player in the list, check it, press OK, it'll appear in the toolbox, pick it, drag it onto your form and you're done!

[RunarM]

There are no option that says ShochWave Flash Player..


btw, here is my Youtube Downloader ^^:

And when you click "Video Preview" comes this up with a cool slide effect xD:

[Nery]

its "Shockwave Flash Object" and it is in the COM tab.
Sorry, I told you to look for "Shockwave Flash Player" because I have a custom component with that name.

Check the screenshot:

[RunarM]

I've added that and now this happens when i run the software:




If you cant see the pic:
http://i700.photobucket.com/albums/ww4/Runarm/this.png

[Nery]

I don't know, it works fine for me... It plays .swf files.

[RunarM]

Test mine:

[Nery]

When I press the button "Preview" it doesn't show up the SWF link I've put in the textbox.

SWF Link I've used: http://www.freegame168.com/flash-game-n ... g/4146.swf

I guess youtube neither uses .flv nor .swf so you can't use a ShockWave Flash Player to play Youtube videos.

SWF = ShockWave Flash

[RunarM]

This is for you who want an converter:

You need:
2 Buttons [Name button 1 'Open' - Name button 2 'Convert'.]
1 Textbox
1 Combobox [This will be used to choose what you want to convert it to]
1 OpenFileDialog (OpenFileDialog Name to "SelectVid")

Button 1 [Open]

Code: Select all

Selectvid.showdialog()

Button 2 [Convert]

Code: Select all

Dim type As String = ComboBox1.Text
        If ComboBox1.Text = "" Then
            MsgBox("No file type selected")
        Else
        End If
        MsgBox(TextBox1.Text + " shall be converted into a " + type + " file.")
        Dim oldFile As String = Mid(TextBox1.Text, 1, Len(TextBox1.Text) - 4)
        FileCopy(TextBox1.Text, oldFile + type)

OpenFileDialog

Code: Select all

Dim file As String = SelectVid.FileName
        TextBox1.Text = file

Edit the Combo box:
Right click and click on Edit items then write this:
.avi
.mp3
.mov
.mp4


^You can choose =)




And if you just want to add them to this youtube downloader just add:
2 Buttons [Name button 1 'Open' - Name button 2 'Convert'.]
1 Textbox
1 Combobox [This will be used to choose what you want to convert it to]
1 OpenFileDialog (OpenFileDialog Name to "SelectVid")


Here is the code, add it above End Class

Code: Select all

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        SelectVid.ShowDialog()
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Dim type As String = ComboBox1.Text
        If ComboBox1.Text = "" Then
            MsgBox("No file type selected")
        Else
        End If
        MsgBox(TextBox3.Text + " shall be converted into a " + type + " file.")
        Dim oldFile As String = Mid(TextBox3.Text, 1, Len(TextBox3.Text) - 4)
        FileCopy(TextBox3.Text, oldFile + type)
    End Sub

    Private Sub OpenFileDialog1_FileOk(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles SelectVid.FileOk
        Dim file As String = SelectVid.FileName
        TextBox3.Text = file
    End Sub

    Private Sub TextBox3_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox3.TextChanged

    End Sub

[TheET]

wo...so many replies lol