1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44
|
FriendWithEvents SWFlash1 As _
AxShockwaveFlashObjects.AxShockwaveFlash
<System.Diagnostics.DebuggerStepThrough()> PublicSub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Form1))
Me.SWFlash1 = New AxShockwaveFlashObjects.AxShockwaveFlash
CType(Me.SWFlash1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'SWFlash1
'
Me.SWFlash1.Enabled = True
Me.SWFlash1.Location = New System.Drawing.Point(0, 0)
Me.SWFlash1.Name = "SWFlash1"
Me.SWFlash1.OcxState = CType(resources.GetObject("SWFlash1.OcxState"), System.Windows.Forms.AxHost.State)
Me.SWFlash1.Size = New System.Drawing.Size(192, 192)
Me.SWFlash1.TabIndex = 0
'
'Form1
'
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.BackColor = System.Drawing.SystemColors.Window
Me.ClientSize = New System.Drawing.Size(800, 600)
Me.Controls.Add(Me.SWFlash1)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
Me.Name = "Form1"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "SCAR"
CType(Me.SWFlash1, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
swf_test = SWFlash1
EndSub
PrivateSub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.Load
Try
SWFlash1.Width = 800
SWFlash1.Height = 600
SWFlash1.Movie = Application.StartupPath & "\scar.swf"
Catch ex As Exception
MsgBox(ex.ToString, MsgBoxStyle.Exclamation, "Chargement")
EndTry
EndSub |
Partager