VB6.0 - Basic Flash Player

[Nightwalker83]

Hi,

Here is a basic flash player I made in VB6.0 you can download the source code below.

Below is the current code!

'By Aaron "Nightwalker83" Spehr
Dim n As Integer

Private Sub File1_Click()
File1.Drag
End Sub

Private Sub Form_Load()
'Set the background colour, etc
Me.BackColor = &H80000008
Me.BorderStyle = Sizable
File1.Pattern = "*.swf"
File1.DragMode = 0
End Sub

Private Sub Form_Unload(Cancel As Integer)
'Close the program
Unload Me
End
End Sub

Private Sub ShockwaveFlash1_DragDrop(Source As Control, X As Single, Y As Single)
'This loads the movie
Call ShockwaveFlash1.LoadMovie(0, File1.Path + "\" + File1.FileName)
End Sub


Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub

Private Sub Drive1_Change()
On Error GoTo err:
Dir1.Path = Drive1.Drive
Exit Sub
err:
MsgBox ("Please choose another drive!")
End Sub

I can't get the keyboard to interact with the flash control. However, I have noticed that if the screen is big enough you can use the control inside the flash movie to start, stop, etc.

Check link below for any problems relating to getting the project to work correctly.

Nightwalker

Edit:

Just a word of warning though, use the above code with flash 10e or earlier, the other versions of flash 10 seem to have problems which, can be talked about in this thread.