[VB.NET] comment récupérer un objet flash de la classe form1 dans une autre class ?
salut tt le monde .
mon Pb c'est que je veux récupérer un objet flash (SWFlash1) qui fait réference à une animation flash généré par la class Form1 dans une autre classe.
Comme ça je peux créer une seule nouvelle variable ou objet flash dans la nouvelle classe qui récupère l'objet (SWFlash1) ainsi que l'animation à laquelle il fait référence dans form1.
code dans form1:
Code:
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 |
Le code de l'autre classe :
Code:
1
2
3
4
5
6
7
|
Public swf As AxShockwaveFlashObjects.AxShockwaveFlash
PublicSubNew(ByVal SWFlash1 As AxShockwaveFlashObjects.AxShockwaveFlash)
Me.swf = New AxShockwaveFlashObjects.AxShockwaveFlash
Me.swf = SWFlash1
EndSub |
et la par exemple si je veux récupérer une vitesse que l'objet SWFlash1 envoi sur l'animation flash afin de l'afficher :
j'ecri juste le code :
Citation:
swf.SetVariable("VITESSE", VITESSE)
et ça doit marcher sachant que la déclaration et son initialisation est faite .
par contre j'ai rien sur l'animation.
j'attends votre aide et merci d'avance ! ;)
