Discussion :

[djedje-08]

Bonjour à tous,
Je créé des label dynamiquement comme suit :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
 
Public ImgImmeuble() As Label
Public imgX, imgY As Integer
Private Sub Button_AdImmeubl_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_AdImmeubl.Click
        Dim nomimmeuble As String
        nomimmeuble = InputBox("Entrez le nom de l'immeuble", "Nom de l'immeuble")
        NbImmeubl = NbImmeubl + 1
        ReDim Preserve ImgImmeuble(NbImmeubl)
        ImgImmeuble(NbImmeubl) = New Label
        With ImgImmeuble(NbImmeubl)
            .Top = 45 + 100 * (NbImmeubl - 1)
            .Left = 1
            .Width = 73
            .Height = 73
            .BackgroundImage = Image.FromFile("immeuble.png")
            .Text = nomimmeuble
            .TextAlign = ContentAlignment.BottomCenter
            .Font = New System.Drawing.Font(ImgImmeuble(NbImmeubl).Font, FontStyle.Bold)
 
 
        End With
        imgX = ImgImmeuble(NbImmeubl).Left
        imgY = ImgImmeuble(NbImmeubl).Top
        Me.Controls.Add(ImgImmeuble(NbImmeubl))
        AddHandler ImgImmeuble(NbImmeubl).Click, AddressOf imgclick
 
    End Sub

J'aimerais que lorsque je clique sur ce label, il soit entouré d'un rectangle jaune. Ainsi, j'avais écris mon sub comme ci-dessous :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Sub imgclick()
        RectangleShape1.Visible = True
        RectangleShape1.Left = imgX
        RectangleShape1.Top = imgY
        ImgImmeuble(NbImmeubl).SendToBack()
        RectangleShape1.BringToFront()
 
    End Sub

Bien évidement mais malheureusement pour moi, le rectangle vient se placer autour du dernier label créé et non pas autour de celui qui est cliqué.
Quelqu'un aurait une piste de solution ?
Comment récupérer les positions .Top et .Left au clic d'un objet créé dynamiquement ?

1ère question subsidiaire : Bien que j'ai installé Visual Basic Power Pack 3.0, je ne parviens pas à dessiner de ligne, rectangle ... dans Visual Studio 2015 alors que ça fonctionne dans Visual Studio 2010. J'ai loupé quelque chose ?

2èmer question subsidiaire : Est-il possible d'avoir le contour des lettres d'un label blanc pour des lettres noires ? Un peu comme les sous-titres afin de s'assurer que le texte se détache bien du fond pour garantir la lisibilité ?

Merci d'avance pour vos réponses

[wallace1]

Bonjour,

Comment récupérer les positions .Top et .Left au clic d'un objet créé dynamiquement ?

Dans ta Sub imgclick la signature est manquante ce qui ne te permettra pas de savoir quel est l'objet (le label) qui a été clické !

La signature d'une procédure Click est la suivante :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
Private Sub imgclick(sender As System.Object, e As System.EventArgs)
    'On récupère l'objet qui a déclenché l'event Click
    Dim Lbl as Label= TryCast(sender, Label)
    msgbox(Lbl.Name & " a été clické !")
End Sub

1ère question subsidiaire : Bien que j'ai installé Visual Basic Power Pack 3.0, je ne parviens pas à dessiner de ligne, rectangle ... dans Visual Studio 2015 alors que ça fonctionne dans Visual Studio 2010. J'ai loupé quelque chose ?

Je ne sais pas je n'ai jamais utilisé Power Pack ....

2èmer question subsidiaire : Est-il possible d'avoir le contour des lettres d'un label blanc pour des lettres noires ? Un peu comme les sous-titres afin de s'assurer que le texte se détache bien du fond pour garantir la lisibilité ?

Je vois ce que tu veux dire mais tu parles de quels sous-titres, à quel endroit de quel logiciel ????

Pour pouvoir obtenir cet effet il faut dessiner et ne pas utiliser de Label (sauf si tu utilises WPF ou tout est paramétrable).

A+

[djedje-08]

Impec, merci pour tes infos !


En ce qui concerne l'entourage des lettres, c'est sur une label "classique".
Qu'est ce que tu appelles WPF ?
S'il me faut passer par un dessin, ça va virer à l'usine à gaz pour pas grand chose. Je vais tâcher de faire autrement.

[wallace1]

Impec, merci pour tes infos !


En ce qui concerne l'entourage des lettres, c'est sur une label "classique".

Si tu veux faire ça en te basant sur la classe Label alors tu peux oublier ! Comme évoqué il faut dessiner en utilisant GDI et/ou hériter de la classe Control,voilà qui devrait te convenir :

https://social.msdn.microsoft.com/Fo...orum=vbgeneral

---> Le résultat :

http://www.codeproject.com/Articles/...effects-with-C

Qu'est ce que tu appelles WPF ?

Windows Presentation Foundation


A+

[djedje-08]

nickel !
Merci pour tes précisions

[Pol63]

vb powerpack si tu peux t'en passer c'est pas plus mal, les objets lignes et autres sont d'une lenteur impressionnante
tu peux t'abonner à l'event Paint d'un control (ou du form) pour dessiner des lignes ou autre, et ca sera plus performant