Well my friends, here once again. 4th quarter, score: VS 51 Me 27, second down and a .swf file to be played!
The last four days I have been trying to get a .swf file played from app. I have writen different codes, but they did not work, that means: I DID NOT. I have tryed from a directory, then as a resource ... I could not get it.
Then I have been doing, not some, but all the research I have been able to do, but VS 2010 is still winning the game.
Of course, I need help. The last time I tried a code, which I do not remember to whom it belongs, all a can say is: IT IS NOT MINE. I hope the author excuses that omission. I feel that code could do the job, eventhough it is not. Anyway here it is. Maybe the helper could make it work or give me another option. Thanks a lot.
Thanks again.
Nelson
The last four days I have been trying to get a .swf file played from app. I have writen different codes, but they did not work, that means: I DID NOT. I have tryed from a directory, then as a resource ... I could not get it.
Then I have been doing, not some, but all the research I have been able to do, but VS 2010 is still winning the game.
Of course, I need help. The last time I tried a code, which I do not remember to whom it belongs, all a can say is: IT IS NOT MINE. I hope the author excuses that omission. I feel that code could do the job, eventhough it is not. Anyway here it is. Maybe the helper could make it work or give me another option. Thanks a lot.
HTML Code:
Imports ShockwaveFlashObjects
Imports AxShockwaveFlashObjects
Imports System.IO
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim flash As AxShockwaveFlash, a As String
flash = New AxShockwaveFlash
Dim percorso As String
percorso = Path.Combine(Directory.GetCurrentDirectory, "caminando.swf") ' In the original code
'percorso = "C:\1 APLICACIONES\ASEGURIDAD\entrada\entrada\entrada\caminando.swf" ' I tryed with this too.
Dim startupSize = New System.Drawing.Size(1024, 768)
Dim startupsize2 = New System.Drawing.Size(640, 480)
'Start
flash.BeginInit()
flash.Location = New Point(50, 80)
flash.Name = "AxShockwaveFlash1"
flash.TabIndex = 0
Controls.Add(flash)
flash.Size = startupsize2
flash.EndInit()
flash.LoadMovie(0, percorso)
FormBorderStyle = 1
ClientSize = startupSize
flash.Play()
End Sub
End ClassThanks again.
Nelson