Fonctionnement des usercontrols dans les forms

Version imprimable

11/12/2014, 12h13
Cerecare

Fonctionnement des usercontrols dans les forms

Bonjour,

Etant nouveau sur le site, merci de préciser si je ne suis pas dans la bonne section.

J'ai cherché un peu partout sur internet mais je n'ai pas trouvé (en même temps c'est dur de condenser en quelques termes pour la recherche)

Sinon, voici mon problème.

Je crée un 'usercontrol' hérité de Label pour pour en faire un label avec le texte qui défile. Pour ce faire, j'utilise un 'timer' que je lance au chargement de l'UC. Mon soucis est que VS crash quand je met mon composant dans ma 'form'.

Je sais que le problème vient du fait que le 'timer' se lance quand je suis dans la fenêtre de conception de la 'form' car j'ai déjà eu le problème avec d'autres UC où je le leurs mettait la propriété 'Dock' à 'Fill' et du coup ma 'form' prenez la taille de mon écran.

J'aimerais donc savoir s'il y à moyen de faire faire pour que mes initialisations ne se fassent que quand j'éxecute le programme et pas que je suis dans le concepteur de 'form'.

Merci d'avance pour votre aide.
11/12/2014, 13h37
Kropernic

J'imagine que tu actives le timer dans le constructeur de ton usercontrol.

Je pense que le problème se trouve là.

A ta place, j'ajouterais un méthode dans ton usercontrol dont la tâche serait de démarrer le timer et, dans le constructeur du formulaire, j'appellerai cette méthode.

L’inconvénient est qu'il faut le faire pour chaque label.
11/12/2014, 13h43
Invité

Bonjour,
dans ton projet [Menu->Fichier->Ajouter->Projet Existant], tu peux ajoute la source de ton usercontrol.
ainsi tu debug les 2 en même temps!
11/12/2014, 13h47
Cerecare

Bonjour Kropernic et merci pour ta réponse rapide.

C'est bien ce que je fais (activer le timer dans le constructeur de mon usercontrol).
J'avais pensé à ta solution mais elle m’embête un petit peu (comme tu l'as dit je doit faire le déclenchement pour chaque label si je met l'activation directement dans le constructeur de la form). Mais je garde cela de côté si je ne trouve rien d'autre.

Je regardais du côté du DesignMode mais je ne sais pas si ça sert bien à ça.:(

Si vous pouvez m’éclairer la dessus.

Merci.
11/12/2014, 13h52
Cerecare

Citation:

Envoyé par rdurupt

Bonjour,
dans ton projet [Menu->Fichier->Ajouter->Projet Existant], tu peux ajoute la source de ton usercontrol.
ainsi tu debug les 2 en même temps!

Bonjour,

Si je comprend bien c'est pour le cas ou mon usercontrol serait à par de mon projet ? Car mon usercontrol est développé dans mon projet pour le moment.

Cordialement,
11/12/2014, 13h57
Kropernic

En même temps, l'appel de cette méthode qui démarrerait le timer de chaque usercontrol peut se faire en, au pire, 3 lignes de code. Pas bien grave donc.

Y a moyen de joindre une copie des sources de ton control pour faire quelques tests ? La problématique m'intéresse.

Citation:

Envoyé par Kropernic

En même temps, l'appel de cette méthode qui démarrerait le timer de chaque usercontrol peut se faire en, au pire, 3 lignes de code. Pas bien grave donc.

Y a moyen de joindre une copie des sources de ton control pour faire quelques tests ? La problématique m'intéresse.

Je sais bien qu'il n'y a pas grand chose mais j'aurais juste préférais tout avoir dans le usercontrol.

Voici mon code du usercontrol pour mon label modifié:

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
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
 
<Global.System.ComponentModel.Description("Classe descendante de 'Label' pour faire une barre d'information avec défilement.")>
Public Class CLabelInfo
    Inherits System.Windows.Forms.Label
 
#Region "Declaration"
 
    'Constantes
    Private Const DEFAULT_MESSAGE As String = ""
    'Propriétés
 
    'Variables globales
    Private _message As String = Nothing
 
    Private WithEvents Tm_Defil As Timer = Nothing
 
#End Region
 
#Region "New"
 
    Public Sub New()
        MyBase.New()
 
        Init()
 
    End Sub
 
#End Region
 
#Region "Events"
 
#Region "mes Events"
 
#End Region
 
    Private Sub Tm_Defil_Tick(sender As Object, e As EventArgs) Handles Tm_Defil.Tick
        Static Position As Long = 0
        Static Initialise As Boolean = False
 
        If Not Initialise Then
            Initialise = True
            Position = maxChar
 
        End If
 
        Position -= 1
 
        Dim i1 As Long = maxChar - textRessource.Length
        Dim i2 As Long = maxChar - Position
 
        If Position > i1 Then
            _message = Space(Position) + Mid(textRessource, 1, i2)
 
        ElseIf Position >= 0 Then
            _message = Space(Position) + textRessource
 
        Else
            _message = Mid(textRessource, Math.Abs(Position))
 
        End If
 
        If Position < -Len(textRessource) Then
            Position = maxChar
 
        End If
 
        Me.Text = _message
 
        Me.Refresh()
 
    End Sub
 
#End Region
 
#Region "Property"
 
    <Global.System.ComponentModel.Description("Obtient ou définit le nombre max de caractères du label."), _
    Global.System.ComponentModel.DefaultValue(100)>
    Public Property maxChar As Long
 
    <Global.System.ComponentModel.Description("Obtient ou définit le texte à afficher."), _
    Global.System.ComponentModel.DefaultValue("")>
    Public Property textRessource As String
 
 
#End Region
 
#Region "Function"
 
#Region "Initialisation"
 
    ''' <summary>
    ''' Initialise l'objet ...
    ''' </summary>
    ''' <remarks></remarks>
    Private Sub Init()
        Initvariables()
        InitRessources()
        InitObjects()
 
    End Sub
 
    ''' <summary>
    ''' Initialise les variables de l'objet ...
    ''' </summary>
    ''' <remarks></remarks>
    Private Sub Initvariables()
        'Propriétés
 
        'Variables globales
        _message = DEFAULT_MESSAGE
 
        Tm_Defil = New Timer
 
    End Sub
 
    ''' <summary>
    ''' Initialise les ressources de l'objet ...
    ''' </summary>
    ''' <remarks></remarks>
    Private Sub InitRessources()
        If DesignMode Then
            Tm_Defil.Start()
 
        End If
 
    End Sub
 
    ''' <summary>
    ''' Initialise les objets du Contrôle ...
    ''' </summary>
    ''' <remarks></remarks>
    Private Sub InitObjects()
 
    End Sub
 
#End Region
 
#End Region
 
End Class

et voici le code du contrôle qui utilise le label (que je glisse via la boite à outils):

Code:

1
2
3
 
CLi_Info.maxChar = 80
CLi_Info.textRessource = My.Resources.String1

Bonjour,
Il est possiblde de savoir si on se trouve dans le designer de VS ou en éexécution
Code que j'utilise (en c# :/)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
        /// <summary>
        /// Obtient une valeur indiquant si le contexte d'exécution est le designer de visual Studio
        /// </summary>
        public static bool IsInDesignMode
        {
            get
            {
                bool isInDesignMode = LicenseManager.UsageMode == LicenseUsageMode.Designtime; // || Debugger.IsAttached == true;
 
                if (!isInDesignMode)
                {
                    using (var process = Process.GetCurrentProcess())
                    {
                        isInDesignMode =  process.ProcessName.ToLowerInvariant().Contains("devenv");
                    }
                }
 
                return isInDesignMode;
            }
        }

D'autre part je te conseillerais de mettre le start du timer dans la méthode Load du user control plutôt que dans le constructeur.

11/12/2014, 14h34
Kropernic

Déjà juste en copiant ton code, j'ai plusieurs erreurs de compilations. Principalement des erreurs de conversions implicites.

Je te conseille vivement de mettre ton projet en Option Strict On et Option Explicit On.

EDIT : Après correction des erreurs de conversion, je n'ai aucun problème pour ajouter le contrôle sur un formulaire. Par contre, il ne défile nullement...

Je me suis prêté au jeu et j'ai fait ceci.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 Public Class SlidingLabel Inherits Label Public Property Interval As Integer Private WithEvents timer As New System.Windows.Forms.Timer Public Sub StartSlide() timer.Start() timer.Interval = Me.Interval End Sub Private Sub OnTick() Handles timer.Tick Me.Text = Me.Text.Last() & Me.Text.Substring(0, Me.Text.Length - 1) End Sub End Class
A l'utilisation, il faut définir l'interval entre les ticks et le Text bien sûr. C'est tout. Après ça défile tout seul. C'est ce genre de défilement que tu cherches à faire ?? Si non, pourrais-tu préciser stp ? Avec le code, j'ai eu l'impression que tu faisais des choses bien compliquées pour pas grand chose en fait.

11/12/2014, 15h20
Cerecare

Résolut

Bonjour Kropernic,

C'est exactement ça.

Merci beaucoup.
:D
11/12/2014, 15h21
Pol63

lu en diagonale donc il y a peut etre déjà la solution

le code d'un control ou d'un usercontrol posé en mode design est exécuté
dans un exe quand un code plante, l'appli se ferme
quand le code de ton control plante ca fait planter visual studio

aussi dans les 2 cas (controle et .exe final) on évite ce genre de soucis avec les try catch
en cas de bug ca passe dans le catch, permettant d'en savoir plus
dans un 1er temps tu peux mettre des try catch dans tous les membres de ton usercontrol avec un msgbox (ex.message & vbcrlf & ex.stacktrace)
tu auras dans visual studio un message qui t'expliqueras ton bug, que tu pourras donc corriger

il est aussi possible de débugger un control en pas à pas comme on le ferait pour un exe (pour ca il faut demander à débugger visual studio en gros)

Citation:

Envoyé par Cerecare

Bonjour Kropernic,

C'est exactement ça.

Merci beaucoup.
:D

Je te l'ai étoffé un petit peu.

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
Public Class SlidingLabel
    Inherits Label
 
    Public Sub New()
        MyBase.New()
        Me.Interval = 100
        Me.SlidingDirection = Direction.Left
    End Sub
 
    Public Property Interval As Integer
    Public Property SlidingDirection As Direction
 
    Public Enum Direction As Byte
        Left = 1
        Right = 2
    End Enum
 
    Private WithEvents timer As New System.Windows.Forms.Timer
 
    Public Sub StartSlide()
        timer.Start()
        timer.Interval = Me.Interval
    End Sub
 
    Private Sub OnTick() Handles timer.Tick
        Select Case SlidingDirection
            Case Direction.Left
                Me.Text = Me.Text.Substring(1) & Me.Text.First()
            Case Direction.Right
                Me.Text = Me.Text.Last() & Me.Text.Substring(0, Me.Text.Length - 1)
        End Select
    End Sub
End Class