Discussion :

[Ddwa83]

Bonjour à tous,
Ceci est mon premier message car je viens de m'inscrire. J'ai débuté depuis peu sous Visual Studio 2010 Express avec lequel j'ai développé une appli avec des ovalshapes et rectangleshapes. Ce matin j'ai installé la nouvelle version VS 2017. J'ai ouvert mon appli et je constate qu'il n'y a plus de shapes dans la boite à outils ni dans les Forms. Par contre dans la fenêtre Propriété et au déboguage ils apparaissent ! Comment puis-je récuperer ces shapes, voir d'autres outils ?
Merci par avance pour votre aide,

[DD-78]

Bonjour,

Moi aussi je viens d'installer VS2017.

Pour utiliser les composants shapes, dans mon cas cela fonctionne avec un projet WPF.

Prenons le cas d'un nouveau projet :

Sélectionnez une application WPF.

Si certains composants n'apparaissent pas dans la boîte à outils faire un clique droit dans celle-ci.
Choisir les éléments...

Cette fenêtre s'affiche


sélectionnez l'onglet Composants WPF comme ci-dessus.


Dans le Filtre saisir shapes et sélectionner les composants désirés comme suivant :



Normalement après validation ils sont dans la boîte à outils.

Mais peut-être existe t'il une autre façon de faire pour les autres types de projets...
Cordialement.

[Ddwa83]

Merci DD-78.
Je vais essayer cette solution et je vous recontacte.
Cordialement.
Ddwa83.

[MABROUKI]

bonjour

For some unknown reason,Microsoft a décidé de ne pas les exposer comme des controls droppables....

On peut néanmoins y avoir accès par code ,à condition d'ajouter à la Boite à Outils le control PrintForm car les Ovalshapes et autres Lineshapes ainsi que le ShapeContainer se trouvent dans le package Microsoft.VisualBasic.PowerPacks...!!!

Boites à Outils ->Choisir des elements...-> cocher PrintForm

code .vb exemple:

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
 
 
Imports Microsoft.VisualBasic.PowerPacks
Public Class Form1
    Private ln As New LineShape()
    Private ellipse As New OvalShape
    Private ct As ShapeContainer
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        ct = New ShapeContainer()
        ct.Location = New Point(50, 50)
 
        ln.BorderColor = Color.Red
        ln.BorderWidth = 2
        ln.EndPoint = New Point(200, 120)
        ln.StartPoint = New Point(100, 50)
        ct.Shapes.Add(ln)
        ellipse.BackColor = Color.Magenta
        ellipse.BorderColor = Color.Red
        ellipse.BorderStyle = Drawing2D.DashStyle.DashDot
        ellipse.Height = 100
        ellipse.Width = 120
        ellipse.Location = New Point(140, 50)
        ct.Shapes.Add(ellipse)
        Me.Controls.Add(ct)
    End Sub
End Class

bon code...

[Ddwa83]

Merci car ça marche effectivement. Petit problème car on ne voie pas ce qu'on fait dans la Form.vb(Design), ce qui donne beaucoup de travail en plus !
Merci également à DD-78, ça marche aussi, mais pas en appli WindowsForms.
On peut donc mettre le sujet en résolu.
(je ne sais pas comment faire...)