[VB.NET] Interazione Flash VB.NET

[cassano]

ho trovato questo

1 Imports ShockwaveFlashObjects

    2 Imports AxShockwaveFlashObjects

    3 

    4 Imports System.IO

    5 Public Class Form1

    6 

    7     Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

    8         Dim flash As New AxShockwaveFlash

    9         Dim percorso As String

   10         percorso = Path.Combine(Directory.GetCurrentDirectory, "logo_tre_hp.swf")

   11         Dim startupSize = New System.Drawing.Size(1024, 768)

   12         Dim startupsize2 = New System.Drawing.Size(640, 480)

   13         'Start

   14         flash.BeginInit()

   15         flash.Location = New Point(50, 80)

   16         flash.Name = "Testina"

   17         flash.TabIndex = 0

   18         Controls.Add(flash)

   19         flash.Size = startupsize2

   20         flash.EndInit()

   21         flash.LoadMovie(0, percorso)

   22         flash.Play()

   23         FormBorderStyle = 1

   24         ClientSize = startupSize

   25 

   26     End Sub

   27 End Class