interaction activeX

Question

Bonjour &#224; tous,
J'ai r&#233;alis&#233; une petite animation dans un activeX.
Cette animation simple consiste &#224; d&#233;placer une barre depuis une position initiale jusq'&#224; une position finale.
Je souhaite r&#233;cup&#233;rer l'information de fin de position dans le code de ma feuille.

J'ai essayer en passant par des &#233;v&#232;nements, &#231;a fonctionne mais &#231;a repr&#233;sente pas mal de code dans la feuille.

J'ai aussi essayer de passer par 2 propri&#233;t&#233;s. (position initiale et position finale).
Cette solution est plus simple, par contre comme VB est une programmation 
&#233;v&#232;nementielle, je ne sais pas de quelle mani&#232;re exploiter un changement de propri&#233;t&#233; 
du contr&#244;le dans ma feuille.
Est ce quelqu'un pourrait m'&#233;claicir sur ce point?
Merci d'avance.

jpleroisse · Answer

Je ne sait pas si j'ai bien compris, donc je te donne un code qui peut peut-&#234;tre t'aider.
Essaye-le, place un control Timer sur la Form.

Private Sub Command1_Click()
Call Timer1_Timer
Timer1.Enabled = TrueMsgBox "X1 " & Line1.X1 & Chr(13) & "X2 " & Line1.X2 _& Chr(13) & "Y1 " & Line1.Y1 & Chr(13) & "Y2 " & Line1.Y2
End Sub


Private Sub Form_Load()
Timer1.Enabled = False
Timer1.Interval = 10
End Sub

Private Sub Timer1_Timer()
    Line1.X1 = 3980
    Line1.X2 = 1580
    Line1.Y1 = 2500
    Line1.Y2 = 1350
End Sub

jpleroisse

jpleroisse · Answer

Oubli: place &#233;videmment un control Line

Interaction activeX

2 réponses

Discussions similaires