{"id":257,"date":"2022-12-03T03:54:00","date_gmt":"2022-12-03T02:54:00","guid":{"rendered":"http:\/\/lesmrdtrucs.mataf35400.fr\/?page_id=257"},"modified":"2022-12-05T17:10:28","modified_gmt":"2022-12-05T16:10:28","slug":"creation-docx","status":"publish","type":"page","link":"https:\/\/lesmrdtrucs.mataf35400.fr\/index.php\/creation-docx\/","title":{"rendered":"Cr\u00e9ation d’OCX"},"content":{"rendered":"\t\t
\n\t\t\t\t\t\t
\n\t\t\t\t\t\t
\n\t\t\t\t\t
\n\t\t\t
\n\t\t\t\t\t\t
\n\t\t\t\t
\n\t\t\t

1) Cr\u00e9ation d'un nouveau Projet ActiveX.<\/h3>\t\t<\/div>\n\t\t\t\t<\/div>\n\t\t\t\t
\n\t\t\t\t
\n\t\t\t\t\t\t\t

Tout d’abord, commencez par cr\u00e9er un nouveau projet en faisant FICHIER|NOUVEAU Projet|Contr\u00f4le ActiveX & OK<\/p>

Vous vous trouvez \u00e0 pr\u00e9sent dans l’espace de cr\u00e9ation de contr\u00f4le ActiveX, le projet, qui porte pour l’instant le nom de projet1. Nous allons lui donner un nom qui permettra de l’identifier lors de son ouverture ou sa recherche sur le disque dur. Cliquez dans l’explorateur de Projet sur Projet1(Projet1), la Fen\u00eatre des propri\u00e9t\u00e9s affiche maintenant un tableau avec la propri\u00e9t\u00e9 (NAME) qui contient la valeut Projet1, faite un double-clique sur Projet1 et Entrez le nouveau nom du projet: \u00ab\u00a0DefileZone\u00a0\u00bb sans espace ni caract\u00e8re particulier.<\/p>

Dans ce projet, nous allons cr\u00e9er un contr\u00f4le qui servira \u00e0 faire d\u00e9filer du texte selon plusieurs options que l’utilisateur pourra modifier (Direction du d\u00e9filement, Texte \u00e0 afficher, Couleur de fond, du texte, ?). Pour cr\u00e9er le contr\u00f4le, il nous faut une fen\u00eatre vide, Visual Basic en a cr\u00e9\u00e9 une pour vous, elle se nomme UserControl1, nous allons renommer ce contr\u00f4le pour mieux l’identifier parmi tous les autres que poss\u00e8de d\u00e9j\u00e0 Visual Basic, pour cela, cliquez dans l’explorateur de projet sur UserControl1 (UserControl1) et modifier la propri\u00e9t\u00e9 (NAME) pour qu’elle affiche DefileText, en effet, le nom du contr\u00f4le doit \u00eatre diff\u00e9rent de celui du projet.<\/p>

Maintenant que le projet et le contr\u00f4le sont initialis\u00e9s, il est conseill\u00e9 de les enregistrer, faites donc un clic sur la disquette, une fen\u00eatre d’enregistrement s’affiche, choisissez un r\u00e9pertoire et cr\u00e9ez en un nouveau que vous appelez DefileZone, vous y enregistrer le contr\u00f4le qui prend l’extension .ctl et le Projet .vbp en cliquant sur Enregistrer \u00e0 deux reprises. D\u00e8s maintenant, lorsque vous verrez ce symbole vous enregistrerez votre projet pour ne pas perdre les donn\u00e9es (Panne ou plantage?) Voil\u00e0 le projet cr\u00e9\u00e9, nous allons maintenant passer \u00e0 la cr\u00e9ation du mod\u00e8le.<\/p>\t\t\t\t\t\t<\/div>\n\t\t\t\t<\/div>\n\t\t\t\t\t<\/div>\n\t\t<\/div>\n\t\t\t\t\t<\/div>\n\t\t<\/section>\n\t\t\t\t

\n\t\t\t\t\t\t
\n\t\t\t\t\t
\n\t\t\t
\n\t\t\t\t\t\t
\n\t\t\t\t
\n\t\t\t

2) La cr\u00e9ation du contr\u00f4le.<\/h3>\t\t<\/div>\n\t\t\t\t<\/div>\n\t\t\t\t
\n\t\t\t\t
\n\t\t\t\t\t\t\t

Pla\u00e7ons les contr\u00f4le dont nous aurons besoins pour r\u00e9aliser notre DefileText, placez donc un Label et un timer, peux importe la taille que vous donnez au label, mais placez le aux coordonn\u00e9es (0,0), soit manuellement en maintenant le bouton de la souris enfonc\u00e9 et en d\u00e9pla\u00e7ant le pointeur, soit dans la fen\u00eatre des propri\u00e9t\u00e9s, en mettant les propri\u00e9t\u00e9s TOP et LEFT \u00e0 0. R\u00e9glez aussi le nom du label \u00e0 \u00ab\u00a0Dtext\u00a0\u00bb et le nom du timer \u00e0 \u00ab\u00a0Dtimer\u00a0\u00bb, question de s’y retrouver si on ajoutait des timers et des labels. Voil\u00e0, les contr\u00f4les dont nous aurons besoins sont plac\u00e9s, nous allons entrer le code en commen\u00e7ant par celui qui va r\u00e9gler automatiquement la taille du lable, nous allons donc allez dans l’\u00e9v\u00e9nement Resize du contr\u00f4le, double-cliquez sur le fond gris du contr\u00f4le, vous arrivez dans la page de code de celui-ci., dans l’\u00e9v\u00e9nement UserControl_Initialize() , choisissez Resize dans la liste d\u00e9roulante en haut \u00e0 droite, vous voil\u00e0 alors dans l’\u00e9v\u00e9nement UserControl_Resize() qui va nous permettre de r\u00e9gler la taille du label. Il n’y a que deux possibilit\u00e9, soit la taille du contr\u00f4le est r\u00e9gl\u00e9e par l’utilisateur, soit il prend la taille du label, le choix se fera en fonction de la propri\u00e9t\u00e9 AutoSize du Label que l’utilisateur pourra modifier, voici le code en d\u00e9tail:<\/p>

Private Sub<\/em><\/span>
\u00a0\u00a0\u00a0 UserControl_Resize()<\/em><\/span>
\u00a0\u00a0 \u00a0If Dtext.AutoSize = True Then<\/em><\/span>
\u00a0\u00a0 \u00a0\u00a0\u00a0\u00a0 ‘La largeur du contr\u00f4le devient la largeur du Dtext<\/em><\/span>
\u00a0\u00a0 \u00a0\u00a0\u00a0\u00a0 UserControl.Width = Dtext.Width<\/em><\/span>
\u00a0\u00a0 \u00a0\u00a0\u00a0\u00a0 ‘La hauteur du contr\u00f4le devient la heuteur du Dtext<\/em><\/span>
\u00a0\u00a0 \u00a0\u00a0\u00a0\u00a0 UserControl.Height = Dtext.Height<\/em><\/span>
\u00a0\u00a0 \u00a0End If
<\/em><\/span>End Sub<\/em><\/span><\/p>

Apr\u00e8s le code de redimensionnement, il nous reste encore \u00e0 programmez le Timer et \u00e0 le configurer pour qu’il d\u00e9cale le texte dans une des 4 directions puis le fasse revenir par le c\u00f4t\u00e9 oppos\u00e9 pour qu’il d\u00e9file. Il va donc falloir que nous tenions compte de plusieurs arguments: la direction et la vitesse. Nous allons donc cr\u00e9er 2 variables gr\u00e2ce aux lignes de code plac\u00e9es tout en haut de la page de code (Car les d\u00e9clarations publiques doivent se trouver dans les premi\u00e8re lignes de code):<\/div>
\u00a0<\/div>

Public Direction As String ‘Direction est une chaine de caract\u00e8re donc String
Public Speed As Integer ‘Speed est un nombre de point, donc Integer<\/em><\/span><\/p>

Les variables sont d\u00e9clar\u00e9es et comment\u00e9es, donc nous allons nous occuper du Timer, en commen\u00e7ant par r\u00e9gler ses propri\u00e9t\u00e9s, r\u00e9glez donc Enabled sur False et Interval sur 100, cela signifie que le timer sera d\u00e9sactiv\u00e9 par d\u00e9faut et qu’il agira toutes les 100 millisecondes. Faites ensuite un double-clique sur le Timer pour passez en mode codage, vous arrivez dans l’\u00e9v\u00e9nement DTimer_Timer(), tout ce qui se trouve dans cet \u00e9v\u00e9nement se d\u00e9clanchera toutes les 100 millisecondes si le Timer est Enabled (Activ\u00e9). Nous allons utiliser le code suivant pour le d\u00e9filement:<\/p>

Private Sub DTimer_Timer()<\/span><\/em>
\u00a0\u00a0\u00a0 If Direction = \u00ab\u00a0right\u00a0\u00bb Then<\/span><\/em>
\u00a0\u00a0 \u00a0\u00a0\u00a0\u00a0 ‘On place le curseur en haut du contr\u00f4le<\/span><\/em>
\u00a0\u00a0 \u00a0\u00a0\u00a0\u00a0 DText.Top = 0<\/span><\/em>
\u00a0\u00a0 \u00a0\u00a0\u00a0\u00a0 ‘On d\u00e9cale Dtext de Speed vers la droite<\/span><\/em>
\u00a0\u00a0 \u00a0\u00a0\u00a0\u00a0 DText.Left = DText.Left + Speed<\/span><\/em>
\u00a0\u00a0 \u00a0\u00a0\u00a0\u00a0 ‘Si Dtext sort de l’\u00e9cran, on le remet \u00e0 droite de l’\u00e9cran<\/span><\/em>
\u00a0\u00a0 \u00a0\u00a0\u00a0\u00a0 If DText.Left > UserControl.Width Then DText.Left = -DText.Width<\/span><\/em>
\u00a0\u00a0 \u00a0ElseIf Direction = \u00ab\u00a0left\u00a0\u00bb Then<\/span><\/em>
\u00a0\u00a0 \u00a0\u00a0\u00a0\u00a0 ‘On place le curseur en haut du contr\u00f4le<\/span><\/em>
\u00a0\u00a0 \u00a0\u00a0\u00a0\u00a0 DText.Top = 0<\/span><\/em>
\u00a0\u00a0 \u00a0\u00a0\u00a0\u00a0 ‘On d\u00e9cale Dtext de Speed vers la gauche<\/span><\/em>
\u00a0\u00a0 \u00a0\u00a0\u00a0\u00a0 DText.Left = DText.Left – Speed<\/span><\/em>
\u00a0\u00a0 \u00a0\u00a0\u00a0\u00a0 ‘Si Dtext sort de l’\u00e9cran, on le remet \u00e0 gauche de l’\u00e9cran<\/span><\/em>
\u00a0\u00a0 \u00a0\u00a0\u00a0\u00a0 If DText.Left + DText.Width < 0 Then DText.Left = UserControl.Width<\/span><\/em>
\u00a0\u00a0 \u00a0ElseIf Direction = \u00ab\u00a0top\u00a0\u00bb Then<\/span><\/em>
\u00a0\u00a0 \u00a0\u00a0\u00a0\u00a0 ‘On place le curseur \u00e0 gauche du contr\u00f4le<\/span><\/em>
\u00a0\u00a0 \u00a0\u00a0\u00a0\u00a0 DText.Left = 0<\/span><\/em>
\u00a0\u00a0 \u00a0\u00a0\u00a0\u00a0 ‘On d\u00e9cale Dtext de Speed vers le haut<\/span><\/em>
\u00a0\u00a0 \u00a0\u00a0\u00a0\u00a0 DText.Top = DText.Top – Speed<\/span><\/em>
\u00a0\u00a0 \u00a0\u00a0\u00a0\u00a0 ‘Si Dtext sort de l’\u00e9cran, on le remet en bas de l’\u00e9cran<\/span><\/em>
\u00a0\u00a0 \u00a0\u00a0\u00a0\u00a0 If DText.Top + DText.Height < 0 Then DText.Top = UserControl.Height<\/span><\/em>
\u00a0\u00a0 \u00a0ElseIf Direction = \u00ab\u00a0bottom\u00a0\u00bb Then<\/span><\/em>
\u00a0\u00a0 \u00a0\u00a0\u00a0\u00a0 ‘On place le curseur \u00e0 gauche du contr\u00f4le<\/span><\/em>
\u00a0\u00a0 \u00a0\u00a0\u00a0\u00a0 DText.Left = 0<\/span><\/em>
\u00a0\u00a0 \u00a0\u00a0\u00a0\u00a0 ‘On d\u00e9cale Dtext de Speed vers le bas<\/span><\/em>
\u00a0\u00a0 \u00a0\u00a0\u00a0\u00a0 DText.Top = DText.Top + Speed<\/span><\/em>
\u00a0\u00a0 \u00a0\u00a0\u00a0\u00a0 ‘Si Dtext sort de l’\u00e9cran, on le remet en haut de l’\u00e9cran<\/span><\/em>
\u00a0\u00a0 \u00a0\u00a0\u00a0\u00a0 If DText.Top > UserControl.Height Then DText.Top = -DText.Height<\/span><\/em>
\u00a0\u00a0 \u00a0End If<\/span><\/em>
End Sub<\/span><\/em>

Et voil\u00e0, le contr\u00f4le en lui-m\u00eame est termin\u00e9.<\/p>\t\t\t\t\t\t<\/div>\n\t\t\t\t<\/div>\n\t\t\t\t\t<\/div>\n\t\t<\/div>\n\t\t\t\t\t<\/div>\n\t\t<\/section>\n\t\t\t\t

\n\t\t\t\t\t\t
\n\t\t\t\t\t
\n\t\t\t
\n\t\t\t\t\t\t
\n\t\t\t\t
\n\t\t\t

3) Les propri\u00e9t\u00e9s.<\/h3>\t\t<\/div>\n\t\t\t\t<\/div>\n\t\t\t\t
\n\t\t\t\t
\n\t\t\t\t\t\t\t

Nous allons passer \u00e0 la cr\u00e9ation des propri\u00e9t\u00e9s auxquelles l’utilisateur pourra acc\u00e9der. Nous allons les d\u00e9clarer publiques pour l’envoie et la r\u00e9ception de valeurs, gr\u00e2ce \u00e0 GET et LET. La premi\u00e8re propri\u00e9t\u00e9 \u00e0 laquelle l’utilisateur doit acc\u00e9der est le texte du Dtext, nous allons simplement appeler cette propri\u00e9t\u00e9 Text, voici les deux Properties que nous allons ajouter \u00e0 la suite du code, donc tout en bas (Ceci n’est pas une obligation mais il vaut mieux respecter toujours le m\u00eame ordre pour s’y retrouver: Code, Propri\u00e9t\u00e9s, M\u00e9thodes, Fonctions, Ev\u00e9nements). Donc nous allons cr\u00e9er la propri\u00e9t\u00e9 Text avec les lignes de codes suivantes:<\/p>

Public Property Get Text() As String<\/em><\/span>
\u00a0\u00a0 \u00a0‘Text renvoie le caption du Dtext<\/em><\/span>
\u00a0\u00a0 \u00a0Text = DText.Caption<\/em><\/span>
End Property<\/em><\/span><\/p>

Public Property Let Text(ByVal New_text As String)
\u00a0\u00a0 \u00a0‘DText prend la caption que l’utilisateur envoie
\u00a0\u00a0 \u00a0DText.Caption = New_text
\u00a0\u00a0 \u00a0‘Pour que le label prenne la taille du texte on le met pendant un instant en AutoSize = True
\u00a0\u00a0 \u00a0‘Puis on remet la valeur d’origine \u00e0 AutoSize
\u00a0\u00a0 \u00a0avant = DText.AutoSize: DText.AutoSize = True: DText.AutoSize = avant
\u00a0\u00a0 \u00a0‘On indique le changement au programme
\u00a0\u00a0 \u00a0PropertyChanged \u00ab\u00a0text\u00a0\u00bb
End Property
<\/em><\/span><\/p>

Nous allons faire le m\u00eame pour les autres propri\u00e9t\u00e9s: Direction, Speed, mais aussi BackColor, ForeColor, Font, AutoSize et ToolTipText:<\/p>

‘Pour BackColor<\/em><\/span>
Public Property Get BackColor() As OLE_COLOR<\/em><\/span>
\u00a0\u00a0 \u00a0BackColor = DText.BackColor<\/em><\/span>
End Property<\/em><\/span><\/p>

Public Property Let BackColor(ByVal New_BackColor As OLE_COLOR)<\/em><\/span>
\u00a0\u00a0 \u00a0DText.BackColor = New_BackColor<\/em><\/span>
\u00a0\u00a0 \u00a0UserControl.BackColor = New_BackColor<\/em><\/span>
\u00a0\u00a0 \u00a0PropertyChanged \u00ab\u00a0BackColor\u00a0\u00bb<\/em><\/span>
End Property<\/em><\/span><\/p>

‘Pour ForeColor<\/em><\/span>
Public Property Get ForeColor() As OLE_COLOR<\/em><\/span>
\u00a0\u00a0 \u00a0ForeColor = DText.ForeColor<\/em><\/span>
End Property<\/em><\/span><\/p>

Public Property Let ForeColor(ByVal New_ForeColor As OLE_COLOR)<\/em><\/span>
\u00a0\u00a0 \u00a0DText.ForeColor = New_ForeColor<\/em><\/span>
\u00a0\u00a0 \u00a0PropertyChanged \u00ab\u00a0ForeColor\u00a0\u00bb<\/em><\/span>
End Property<\/em><\/span><\/p>

‘Pour ToolTipText<\/em><\/span>
Public Property Get ToolTipText() As String<\/em><\/span>
\u00a0\u00a0 \u00a0ToolTipText = DText.ToolTipText<\/em><\/span>
End Property<\/em><\/span><\/p>

Public Property Let ToolTipText(ByVal New_ToolTipText As String)<\/em><\/span>
\u00a0\u00a0 \u00a0DText.ToolTipText = New_ToolTipText<\/em><\/span>
\u00a0\u00a0 \u00a0PropertyChanged \u00ab\u00a0ToolTipText\u00a0\u00bb<\/em><\/span>
End Property<\/em><\/span><\/p>

‘Pour Font<\/em><\/span>
Public Property Get Font() As Font<\/em><\/span>
\u00a0\u00a0 \u00a0Set Font = DText.Font<\/em><\/span>
End Property<\/em><\/span><\/p>

Public Property Set Font(ByVal New_Font As Font)<\/em><\/span>
\u00a0\u00a0 \u00a0Set DText.Font = New_Font<\/em><\/span>
\u00a0\u00a0 \u00a0PropertyChanged \u00ab\u00a0Font\u00a0\u00bb<\/em><\/span>
End Property<\/em><\/span><\/p>

‘Pour AutoSize<\/em><\/span>
Public Property Get AutoSize() As Boolean<\/em><\/span>
\u00a0\u00a0 \u00a0AutoSize = DText.AutoSize<\/em><\/span>
End Property<\/em><\/span><\/p>

Public Property Let AutoSize(ByVal New_AutoSize As Boolean)<\/span>
\u00a0\u00a0 \u00a0DText.AutoSize = New_AutoSize<\/span>
\u00a0\u00a0 \u00a0PropertyChanged \u00ab\u00a0AutoSize \u00ab\u00a0<\/span>
End Property <\/span>
<\/em><\/p>

Les propri\u00e9t\u00e9s sont maintenant presque termin\u00e9es. En effet elles ne sont pas m\u00e9moris\u00e9es lors du lancement du programme, donc nous allons les enregistrer en m\u00e9moire gr\u00e2ce \u00e0 la m\u00e9thode UserControl_WriteProperties. Nous devons cr\u00e9er un sac de propri\u00e9t\u00e9 et y enregistrer toutes les valeurs, en sp\u00e9cifiant le nom de la propri\u00e9t\u00e9. La valeur et la valeur par d\u00e9faut:<\/p>

\u00a0<\/p>

\u00a0Private Sub UserControl_WriteProperties(PropBag As PropertyBag)<\/span>
\u00a0\u00a0 \u00a0‘On utilise le sac de propri\u00e9t\u00e9s PropBag et on y enregistre les propri\u00e9t\u00e9s et leurs valeurs<\/span>
\u00a0\u00a0 \u00a0Call PropBag.WriteProperty(\u00ab\u00a0Direction\u00a0\u00bb, Direction, \u00ab\u00a0right\u00a0\u00bb)<\/span>
\u00a0\u00a0 \u00a0Call PropBag.WriteProperty(\u00ab\u00a0Speed\u00a0\u00bb, Speed, 12)<\/span>
\u00a0\u00a0 \u00a0Call PropBag.WriteProperty(\u00ab\u00a0BackColor\u00a0\u00bb, UserControl.BackColor, &H8000000F)<\/span>
\u00a0\u00a0 \u00a0Call PropBag.WriteProperty(\u00ab\u00a0ForeColor\u00a0\u00bb, DText.ForeColor, &H80000012)<\/span>
\u00a0\u00a0 \u00a0Call PropBag.WriteProperty(\u00ab\u00a0ToolTipText\u00a0\u00bb, DText.ToolTipText, \u00ab\u00a0\u00a0\u00bb)<\/span>
\u00a0\u00a0 \u00a0Call PropBag.WriteProperty(\u00ab\u00a0Text\u00a0\u00bb, DText.Caption, \u00ab\u00a0\u00a0\u00bb)<\/span>
\u00a0\u00a0 \u00a0Call PropBag.WriteProperty(\u00ab\u00a0AutoSize\u00a0\u00bb, DText.AutoSize, False)<\/span>
\u00a0\u00a0 \u00a0Call PropBag.WriteProperty(\u00ab\u00a0Font\u00a0\u00bb, DText.Font, Ambient.Font)<\/span>
End Sub <\/span>

<\/em>L’\u00e9tape suivante consiste \u00e0 lire les prpri\u00e9t\u00e9s lors du chargement du contr\u00f4le, cette fois gr\u00e2ce \u00e0 UserControl_ReadProperties:

Private Sub UserControl_ReadProperties(PropBag As PropertyBag)<\/span>
\u00a0\u00a0 \u00a0Direction = PropBag.ReadProperty(\u00ab\u00a0Direction\u00a0\u00bb, \u00ab\u00a0right\u00a0\u00bb)<\/span>
\u00a0\u00a0 \u00a0Speed = PropBag.ReadProperty(\u00ab\u00a0Speed\u00a0\u00bb, 12)<\/span>
\u00a0\u00a0 \u00a0UserControl.BackColor = PropBag.ReadProperty(\u00ab\u00a0BackColor\u00a0\u00bb, &H8000000F)<\/span>
\u00a0\u00a0 \u00a0DText.BackColor = PropBag.ReadProperty(\u00ab\u00a0BackColor\u00a0\u00bb, &H8000000F)<\/span>
\u00a0\u00a0 \u00a0DText.ForeColor = PropBag.ReadProperty(\u00ab\u00a0ForeColor\u00a0\u00bb, &H80000012)<\/span>
\u00a0\u00a0 \u00a0DText.ToolTipText = PropBag.ReadProperty(\u00ab\u00a0ToolTipText\u00a0\u00bb, \u00ab\u00a0\u00a0\u00bb)<\/span>
\u00a0\u00a0 \u00a0DText.Caption = PropBag.ReadProperty(\u00ab\u00a0Text\u00a0\u00bb, \u00ab\u00a0\u00a0\u00bb)<\/span>
\u00a0\u00a0 \u00a0DText.AutoSize = PropBag.ReadProperty(\u00ab\u00a0AutoSize\u00a0\u00bb, False)<\/span>
\u00a0\u00a0 \u00a0Set DText.Font = PropBag.ReadProperty(\u00ab\u00a0Font\u00a0\u00bb, Ambient.Font)<\/span>
\u00a0\u00a0 \u00a0‘Pour que le label prenne la taille du texte on le met pendant un instant en AutoSize = True<\/span>
\u00a0\u00a0 \u00a0‘Puis on remet la valeur d’origine \u00e0 AutoSize<\/span>
\u00a0\u00a0 \u00a0avant = DText.AutoSize: DText.AutoSize = True: DText.AutoSize = avant<\/span>
End Sub <\/span>

C’est fini pour les propri\u00e9t\u00e9s.<\/em><\/p>\t\t\t\t\t\t<\/div>\n\t\t\t\t<\/div>\n\t\t\t\t\t<\/div>\n\t\t<\/div>\n\t\t\t\t\t<\/div>\n\t\t<\/section>\n\t\t\t\t

\n\t\t\t\t\t\t
\n\t\t\t\t\t
\n\t\t\t
\n\t\t\t\t\t\t
\n\t\t\t\t
\n\t\t\t

4) Les m\u00e9thodes.<\/h3>\t\t<\/div>\n\t\t\t\t<\/div>\n\t\t\t\t
\n\t\t\t\t
\n\t\t\t\t\t\t\t

Apr\u00e8s les propri\u00e9t\u00e9s, nous allons ajouter une m\u00e9thode, Command, qui demandera un argument, et selon cet argument la m\u00e9thode executera une action. Les m\u00e9thodes sont des Sub mais Publiques, elles peuvent donc recevoir des arguments mais ne renvoient aucune valeur. Voici le code de la m\u00e9thode Command:

Public Sub Command(AExecuter As String)<\/em><\/span>
\u00a0\u00a0 \u00a0‘La m\u00e9thode Command demande un argument, \u00ab\u00a0AExecuter\u00a0\u00bb<\/em><\/span>
\u00a0\u00a0 \u00a0‘Si cet argument vaut start alors on lance le DTimer<\/em><\/span>
\u00a0\u00a0 \u00a0If LCase(AExecuter) = \u00ab\u00a0start\u00a0\u00bb Then DTimer.Enabled = True<\/em><\/span>
\u00a0\u00a0 \u00a0‘Si l’argument vaut stop on stop le DTimer<\/em><\/span>
\u00a0\u00a0 \u00a0If LCase(AExecuter) = \u00ab\u00a0stop\u00a0\u00bb Then DTimer.Enabled = False<\/em><\/span>
End Sub<\/em> <\/span>

C’est la seule m\u00e9thode que nous allons mettre, mais vous pouvez en ajouter. <\/p>\t\t\t\t\t\t<\/div>\n\t\t\t\t<\/div>\n\t\t\t\t\t<\/div>\n\t\t<\/div>\n\t\t\t\t\t<\/div>\n\t\t<\/section>\n\t\t\t\t

\n\t\t\t\t\t\t
\n\t\t\t\t\t
\n\t\t\t
\n\t\t\t\t\t\t
\n\t\t\t\t
\n\t\t\t

5) Les Fonctions.<\/h3>\t\t<\/div>\n\t\t\t\t<\/div>\n\t\t\t\t
\n\t\t\t\t
\n\t\t\t\t\t\t\t

Les fonction ne sont autre que des m\u00e9thodes qui renvoie une valeur, nous n’avons pas besoin de fonction dans notre contr\u00f4le, mais voici la m\u00e9thode Command modifi\u00e9e pour qu’elle renvoie une valeur, nous allons l’appeler Execute et elle renverra un valeur Boolean qui indiquera si une action a \u00e9t\u00e9 effectu\u00e9e avec l’argument. Ici ce n’est plus un Sub mais un Function qui est employ\u00e9:

Public Function Execute(AExecut As String) As Boolean<\/em><\/span>
\u00a0\u00a0 \u00a0‘On place la valeur par d\u00e9faut de Execute sur True<\/em><\/span>
\u00a0\u00a0 \u00a0Execute = True<\/em><\/span>
\u00a0\u00a0 \u00a0‘La m\u00e9thode Command demande un argument, \u00ab\u00a0AExecut\u00a0\u00bb<\/em><\/span>
\u00a0\u00a0 \u00a0‘Si cet argument vaut start alors on lance le Dtimer<\/em><\/span>
\u00a0\u00a0 \u00a0If LCase(AExecut) = \u00ab\u00a0start\u00a0\u00bb Then<\/em><\/span>
\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0DTimer.Enabled = True<\/em><\/span>
\u00a0\u00a0 \u00a0‘Si l’argument vaut stop on stop le DTimer<\/em><\/span>
\u00a0\u00a0 \u00a0ElseIf LCase(AExecut) = \u00ab\u00a0stop\u00a0\u00bb Then<\/em><\/span>
\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0DTimer.Enabled = False<\/em><\/span>
\u00a0\u00a0 \u00a0‘Si rien n’a \u00e9t\u00e9 fait Execute devient False<\/em><\/span>
\u00a0\u00a0 \u00a0Else<\/em><\/span>
\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0Execute = False<\/em><\/span>
\u00a0\u00a0 \u00a0EndIf<\/em><\/span>
End Function <\/em><\/span>

Voil\u00e0, d\u00e9j\u00e0 termin\u00e9… <\/p>\t\t\t\t\t\t<\/div>\n\t\t\t\t<\/div>\n\t\t\t\t\t<\/div>\n\t\t<\/div>\n\t\t\t\t\t<\/div>\n\t\t<\/section>\n\t\t\t\t

\n\t\t\t\t\t\t
\n\t\t\t\t\t
\n\t\t\t
\n\t\t\t\t\t\t
\n\t\t\t\t
\n\t\t\t

6) Les Ev\u00e9nements.<\/h3>\t\t<\/div>\n\t\t\t\t<\/div>\n\t\t\t\t
\n\t\t\t\t
\n\t\t\t\t\t\t\t

Les \u00e9v\u00e9nements permettent \u00e0 l’utilisateur de r\u00e9agir directement \u00e0 une action r\u00e9alis\u00e9e sur le contr\u00f4le, par exemple l’\u00e9v\u00e9nement MouseMove permet de d\u00e9clencher une action lorsque la souris passe sur le contr\u00f4le. Pour l’instant aucun \u00e9v\u00e9nement n’est plac\u00e9 dans votre contr\u00f4le, mais nous allons en ajouter quelques uns. Les \u00e9v\u00e9nements doivent \u00eatre d\u00e9clar\u00e9s avec les arguments qu’ils utilisent, voici comment les d\u00e9clarer:

Event Click()<\/em><\/span>
Event DblClick()<\/em><\/span>
Event KeyDown(KeyCode As Integer, Shift As Integer)<\/em><\/span>
Event KeyPress(KeyAscii As Integer)<\/em><\/span>
Event KeyUp(KeyCode As Integer, Shift As Integer)<\/em><\/span>
Event MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)<\/em><\/span>
Event MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)<\/em><\/span>
Event MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)<\/em><\/span>
Event Resize() <\/em><\/span>

Voil\u00e0 pour leur d\u00e9claration. Maintenant il ne reste plus qu’a d\u00e9finir le moment o\u00f9 ils seront appel\u00e9s. Par exemple, l’\u00e9v\u00e9nement Click sera appel\u00e9 lorsque l’utilisateur cliquera sur le contr\u00f4le ou sur le label. Nous allons donc introduire un petit code dans ces deux \u00e9v\u00e9nements d\u00e9j\u00e0 existant:

Private Sub UserControl_Click()<\/em><\/span>
\u00a0\u00a0 \u00a0‘On appelle Click quand l’utilisateur clique sur le contr\u00f4le<\/em><\/span>
\u00a0\u00a0 \u00a0RaiseEvent Click<\/em><\/span>
End Sub<\/em><\/span>

Private Sub DText_Click()<\/em><\/span>
\u00a0\u00a0 \u00a0‘On appelle Click quand l’utilisateur clique sur le DText<\/em><\/span>
\u00a0\u00a0 \u00a0RaiseEvent Click<\/em><\/span>
End Sub <\/em><\/span>

Nous allons faire de m\u00eame pour les autres \u00e9v\u00e9nements. DblClick suit exactement le m\u00eame mod\u00e8le que Click, et Resize aussi, mais les autres \u00e9v\u00e9nements demandent des arguments, qui sont tr\u00e8s facile \u00e0 r\u00e9cup\u00e9rer:

Private Sub UserControl_DblClick()<\/span><\/em>
\u00a0\u00a0 \u00a0‘On appelle DblClick quand l’utilisateur double-clique sur le contr\u00f4le<\/span><\/em>
\u00a0\u00a0 \u00a0RaiseEvent DblClick<\/span><\/em>
End Sub<\/span><\/em>

Private Sub DText_DblClick()<\/span><\/em>
\u00a0\u00a0 \u00a0‘On appelle DblClick quand l’utilisateur double-clique sur le DText<\/span><\/em>
\u00a0\u00a0 \u00a0RaiseEvent DblClick<\/span><\/em>
End Sub<\/span><\/em>

Private Sub UserControl_KeyDown(KeyCode As Integer, Shift As Integer)<\/span><\/em>
\u00a0\u00a0 \u00a0RaiseEvent KeyDown(KeyCode, Shift)<\/span><\/em>
End Sub<\/span><\/em>

Private Sub UserControl_KeyPress(KeyAscii As Integer)<\/span><\/em>
\u00a0\u00a0 \u00a0RaiseEvent KeyPress(KeyAscii)<\/span><\/em>
End Sub<\/span><\/em>

Private Sub UserControl_KeyUp(KeyCode As Integer, Shift As Integer)<\/span><\/em>
\u00a0\u00a0 \u00a0RaiseEvent KeyUp(KeyCode, Shift)<\/span><\/em>
End Sub<\/span><\/em>

Private Sub UserControl_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)<\/span><\/em>
\u00a0\u00a0 \u00a0RaiseEvent MouseDown(Button, Shift, X, Y)<\/span><\/em>
End Sub<\/span><\/em>

Private Sub UserControl_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)<\/span><\/em>
\u00a0\u00a0 \u00a0RaiseEvent MouseMove(Button, Shift, X, Y)<\/span><\/em>
End Sub<\/span><\/em>

Private Sub UserControl_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)<\/span><\/em>
\u00a0\u00a0 \u00a0RaiseEvent MouseUp(Button, Shift, X, Y)<\/span><\/em>
End Sub <\/span><\/em>

Vous pouvez remarquer que tous les arguments sont d\u00e9j\u00e0 donn\u00e9s par les \u00e9v\u00e9nement du contr\u00f4le. Il suffit donc de les transmettre \u00e0 l’\u00e9v\u00e9nement que nous avons mis, ainsi MouseUp reprend la valeur Button, Shift, X et Y de UserControl_MouseUp. Nous n’avons fait que transmettre les \u00e9v\u00e9nements d\u00e9j\u00e0 existant, mais nous allons maintenant en cr\u00e9er un nouveau, Sort, qui se d\u00e9clenchera lorsque le Dtext sortira du contr\u00f4le, il renverra un argument Cote qui indiquera de quel c\u00f4t\u00e9 du contr\u00f4le le Dtext est sorti. D\u00e9clarons le d’abord, toujours tout en haut du code, juste en dessous des autres d\u00e9clarations:

Event Sort(Cote As String) ‘L’\u00e9v\u00e9nement Sort donne le c\u00f4t\u00e9 o\u00f9 est sorti le DText<\/em><\/span>

Et maintenant nous allons ajouter la proc\u00e9dure d’appel de l’\u00e9v\u00e9nement dans le timer. Voici donc ce que devient le code du Dtimer, le code qui a \u00e9t\u00e9 ajout\u00e9 est sur un fond gris:

Private Sub DTimer_Timer()<\/span><\/em>
\u00a0\u00a0 \u00a0If Direction = \u00ab\u00a0right\u00a0\u00bb Then<\/span><\/em>
\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0DText.Left = DText.Left + Speed<\/span><\/em>
\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0If DText.Left > UserControl.Width Then<\/span><\/em>
\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0DText.Left = -DText.Width<\/span><\/em>
\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0RaiseEvent Sort(\u00ab\u00a0right\u00a0\u00bb)<\/span><\/em>
\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0End If<\/span><\/em>
\u00a0\u00a0 \u00a0ElseIf Direction = \u00ab\u00a0left\u00a0\u00bb Then<\/span><\/em>
\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0DText.Left = DText.Left – Speed<\/span><\/em>
\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0If DText.Left + DText.Width < 0 Then<\/span><\/em>
\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0DText.Left = UserControl.Width<\/span><\/em>
\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0RaiseEvent Sort(\u00ab\u00a0left\u00a0\u00bb)<\/span><\/em>
\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0End If<\/span><\/em>
\u00a0\u00a0 \u00a0ElseIf Direction = \u00ab\u00a0top\u00a0\u00bb Then<\/span><\/em>
\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0DText.Top = DText.Top – Speed<\/span><\/em>
\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0If DText.Top + DText.Height < 0 Then<\/span><\/em>
\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0DText.Top = UserControl.Height<\/span><\/em>
\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0RaiseEvent Sort(\u00ab\u00a0top\u00a0\u00bb)<\/span><\/em>
\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0End If<\/span><\/em>
\u00a0\u00a0 \u00a0ElseIf Direction = \u00ab\u00a0bottom\u00a0\u00bb Then<\/span><\/em>
\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0DText.Top = DText.Top + Speed<\/span><\/em>
\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0If DText.Top > UserControl.Height Then<\/span><\/em>
\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0DText.Top = -DText.Height<\/span><\/em>
\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0RaiseEvent Sort(\u00ab\u00a0bottom\u00a0\u00bb)<\/span><\/em>
\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0End If<\/span><\/em>
\u00a0\u00a0 \u00a0End If<\/span><\/em>
End Sub <\/span><\/em>

Voil\u00e0 les \u00e9v\u00e9nements sont en place, c’est termin\u00e9. <\/p>\t\t\t\t\t\t<\/div>\n\t\t\t\t<\/div>\n\t\t\t\t\t<\/div>\n\t\t<\/div>\n\t\t\t\t\t<\/div>\n\t\t<\/section>\n\t\t\t\t

\n\t\t\t\t\t\t
\n\t\t\t\t\t
\n\t\t\t
\n\t\t\t\t\t\t
\n\t\t\t\t
\n\t\t\t

7) Enregistrement en OCX et ajout dans un programme.<\/h3>\t\t<\/div>\n\t\t\t\t<\/div>\n\t\t\t\t
\n\t\t\t\t
\n\t\t\t\t\t\t\t

Il ne reste plus qu’a cr\u00e9er le fichier OCX. Pour cela, faites FICHIER, CREER DefileZone.ocx et enregistrez le en cliquant sur OK

A pr\u00e9sent, cr\u00e9ez un nouveau projet ou ouvrez en un et cliquez avec le bouton droit de la souris dans la fen\u00eatre des contr\u00f4les, puis sur Composants? et choisissez Parcourir, ouvrez DefileZone.ocx et faites OK. Voil\u00e0, il ne vous reste qu’a utiliser le contr\u00f4le comme tous les autres. <\/p>\t\t\t\t\t\t<\/div>\n\t\t\t\t<\/div>\n\t\t\t\t\t<\/div>\n\t\t<\/div>\n\t\t\t\t\t<\/div>\n\t\t<\/section>\n\t\t\t\t<\/div>\n\t\t","protected":false},"excerpt":{"rendered":"

1) Cr\u00e9ation d’un nouveau Projet ActiveX. Tout d’abord, commencez par cr\u00e9er un nouveau projet en faisant FICHIER|NOUVEAU Projet|Contr\u00f4le ActiveX & OK Vous vous trouvez \u00e0 pr\u00e9sent dans l’espace de cr\u00e9ation de contr\u00f4le ActiveX, le projet, qui porte pour l’instant le nom de projet1. Nous allons lui donner un nom qui permettra de l’identifier lors de […]<\/p>\n","protected":false},"author":1,"featured_media":0,"parent":0,"menu_order":0,"comment_status":"closed","ping_status":"closed","template":"","meta":{"ocean_post_layout":"","ocean_both_sidebars_style":"","ocean_both_sidebars_content_width":0,"ocean_both_sidebars_sidebars_width":0,"ocean_sidebar":"","ocean_second_sidebar":"","ocean_disable_margins":"enable","ocean_add_body_class":"","ocean_shortcode_before_top_bar":"","ocean_shortcode_after_top_bar":"","ocean_shortcode_before_header":"","ocean_shortcode_after_header":"","ocean_has_shortcode":"","ocean_shortcode_after_title":"","ocean_shortcode_before_footer_widgets":"","ocean_shortcode_after_footer_widgets":"","ocean_shortcode_before_footer_bottom":"","ocean_shortcode_after_footer_bottom":"","ocean_display_top_bar":"default","ocean_display_header":"default","ocean_header_style":"","ocean_center_header_left_menu":"","ocean_custom_header_template":"","ocean_custom_logo":0,"ocean_custom_retina_logo":0,"ocean_custom_logo_max_width":0,"ocean_custom_logo_tablet_max_width":0,"ocean_custom_logo_mobile_max_width":0,"ocean_custom_logo_max_height":0,"ocean_custom_logo_tablet_max_height":0,"ocean_custom_logo_mobile_max_height":0,"ocean_header_custom_menu":"","ocean_menu_typo_font_family":"","ocean_menu_typo_font_subset":"","ocean_menu_typo_font_size":0,"ocean_menu_typo_font_size_tablet":0,"ocean_menu_typo_font_size_mobile":0,"ocean_menu_typo_font_size_unit":"px","ocean_menu_typo_font_weight":"","ocean_menu_typo_font_weight_tablet":"","ocean_menu_typo_font_weight_mobile":"","ocean_menu_typo_transform":"","ocean_menu_typo_transform_tablet":"","ocean_menu_typo_transform_mobile":"","ocean_menu_typo_line_height":0,"ocean_menu_typo_line_height_tablet":0,"ocean_menu_typo_line_height_mobile":0,"ocean_menu_typo_line_height_unit":"","ocean_menu_typo_spacing":0,"ocean_menu_typo_spacing_tablet":0,"ocean_menu_typo_spacing_mobile":0,"ocean_menu_typo_spacing_unit":"","ocean_menu_link_color":"","ocean_menu_link_color_hover":"","ocean_menu_link_color_active":"","ocean_menu_link_background":"","ocean_menu_link_hover_background":"","ocean_menu_link_active_background":"","ocean_menu_social_links_bg":"","ocean_menu_social_hover_links_bg":"","ocean_menu_social_links_color":"","ocean_menu_social_hover_links_color":"","ocean_disable_title":"default","ocean_disable_heading":"default","ocean_post_title":"","ocean_post_subheading":"","ocean_post_title_style":"","ocean_post_title_background_color":"","ocean_post_title_background":0,"ocean_post_title_bg_image_position":"","ocean_post_title_bg_image_attachment":"","ocean_post_title_bg_image_repeat":"","ocean_post_title_bg_image_size":"","ocean_post_title_height":0,"ocean_post_title_bg_overlay":0.5,"ocean_post_title_bg_overlay_color":"","ocean_disable_breadcrumbs":"default","ocean_breadcrumbs_color":"","ocean_breadcrumbs_separator_color":"","ocean_breadcrumbs_links_color":"","ocean_breadcrumbs_links_hover_color":"","ocean_display_footer_widgets":"default","ocean_display_footer_bottom":"default","ocean_custom_footer_template":"","footnotes":""},"class_list":["post-257","page","type-page","status-publish","hentry","entry"],"_links":{"self":[{"href":"https:\/\/lesmrdtrucs.mataf35400.fr\/index.php\/wp-json\/wp\/v2\/pages\/257","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/lesmrdtrucs.mataf35400.fr\/index.php\/wp-json\/wp\/v2\/pages"}],"about":[{"href":"https:\/\/lesmrdtrucs.mataf35400.fr\/index.php\/wp-json\/wp\/v2\/types\/page"}],"author":[{"embeddable":true,"href":"https:\/\/lesmrdtrucs.mataf35400.fr\/index.php\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/lesmrdtrucs.mataf35400.fr\/index.php\/wp-json\/wp\/v2\/comments?post=257"}],"version-history":[{"count":10,"href":"https:\/\/lesmrdtrucs.mataf35400.fr\/index.php\/wp-json\/wp\/v2\/pages\/257\/revisions"}],"predecessor-version":[{"id":366,"href":"https:\/\/lesmrdtrucs.mataf35400.fr\/index.php\/wp-json\/wp\/v2\/pages\/257\/revisions\/366"}],"wp:attachment":[{"href":"https:\/\/lesmrdtrucs.mataf35400.fr\/index.php\/wp-json\/wp\/v2\/media?parent=257"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}