Codenstuff.com

Posted: **Sun Feb 06, 2011 8:45 am**

I have seen these around but I thought I would make a simple tutorial.

Add a panel and dock fill it Top
Put a textbox and a button inside.
Add a web browser and dock it to fill

First, Add this code to the button1.Click

Code: Select all

    If TextBox1.Text.Contains("swf") = True Then
        WebBrowser1.Navigate(TextBox1.Text)
        Else
            MsgBox("You can only load SWF Files!")
        End If

Next, lets make it so the Enter key will also load the SWF, click the Textbox and in the properties click the Event button scroll down to KeyUp and double click it.

Add this code:

Code: Select all

   If e.KeyCode = Keys.Enter Then
            If TextBox1.Text.Contains("swf") = True Then
                WebBrowser1.Navigate(TextBox1.Text)
            Else
                MsgBox("You can only load SWF files!")
            End If
        End If

Pretty simple

tell me what you think

Posted: **Sun Feb 06, 2011 9:09 am**

I think its great for newbies, but there is other ways too. Like right clicking the toolbox, press 'Choose Items' And find a component named 'AxShockwaveFlash' or something like that.
And you forgot an end parentheses in the first code box:

Code: Select all

If TextBox1.Text.Contains("swf") = True Then
        WebBrowser1.Navigate(TextBox1.Text    '<-------- There it is
Else
        MsgBox("You can only load SWF Files!")
End If

Posted: **Sun Feb 06, 2011 9:21 am**

yeah I do know the Flash Component but I left it as a WebBrowser because then you make it so it loads web pages too if you wanted too

Posted: **Sun Feb 06, 2011 9:30 am**

Yeah i know. But you should fix that code, else you will get many posts its not working

Posted: **Sun Feb 06, 2011 9:44 am**

Fixed thanks didn't see that

Posted: **Sun Feb 06, 2011 10:15 am**

I think it would be better if you used endswith , there might be a website called "www.swfthings.com"

so

Code: Select all

If TextBox1.Text.endswith(".swf") Then

'true' isn't needed

Posted: **Sun Feb 06, 2011 10:31 am**

Pretty new to VB, thanks

Codenstuff.com

Simple SWF Loader

Simple SWF Loader

Re: Simple SWF Loader

Re: Simple SWF Loader

Re: Simple SWF Loader

Re: Simple SWF Loader

Re: Simple SWF Loader

Re: Simple SWF Loader