begin process at 2012 05 24 17:14:04
  Trouver un code source :
 
dans
 
Accueil > 

Code

 > 

Graphique

 > TRAÇAGE DE CERCLE, RECTANGLE, TRAIT EN VB.NET

TRAÇAGE DE CERCLE, RECTANGLE, TRAIT EN VB.NET


 Information sur la source

Note :
8,71 / 10 - par 7 personnes
8,71 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :Graphique Source .NET ( DotNet ) Niveau :Débutant Date de création :18/04/2005 Date de mise à jour :18/04/2005 20:05:28 Vu :21 366

Auteur : cboulas

Ecrire un message privé
Ce membre participe au partage de revenus publicitaires
Commentaire sur cette source (10)
Ajouter un commentaire et/ou une note


 Description

Source sans prétention mais qui servira pour beaucoup, il y a pleins de possibilité de traçage, les arc de cercles, cercles, rectangle, ellipse, triangle, traits, point, bref... voici un bout de code utile je pense.

Source

  • Dim ObjDessin As System.Drawing.Graphics = Me.CreateGraphics() 'Création de l'object graphique
  • Dim ObjGraph As New System.Drawing.Rectangle(100, 100, 200, 200) 'Définition d'un objet de taille de 200 x 200 à l'emplacement 100 x 100
  • ObjDessin.DrawEllipse(System.Drawing.Pens.Black, ObjGraph) 'Traçage d'une ellipse/Cercle en fonction de ObjGraph
  • ObjDessin.DrawRectangle(System.Drawing.Pens.Red, ObjGraph) 'Traçage d'un rectangle en fonction de ObjGraph
  • ObjDessin.DrawLine(System.Drawing.Pens.Blue, 100, 100, 200, 200) 'Traçage d'une ligne partant du point de coordonnées (100,100) vers le point de coordonnées (200,200)
        Dim ObjDessin As System.Drawing.Graphics = Me.CreateGraphics()   'Création de l'object graphique
        Dim ObjGraph As New System.Drawing.Rectangle(100, 100, 200, 200)   'Définition d'un objet de taille de 200 x 200 à l'emplacement 100 x 100
        ObjDessin.DrawEllipse(System.Drawing.Pens.Black, ObjGraph)  'Traçage d'une ellipse/Cercle en fonction de ObjGraph
        ObjDessin.DrawRectangle(System.Drawing.Pens.Red, ObjGraph)  'Traçage d'un rectangle en fonction de ObjGraph
        ObjDessin.DrawLine(System.Drawing.Pens.Blue, 100, 100, 200, 200) 'Traçage d'une ligne partant du point de coordonnées (100,100) vers le point de coordonnées (200,200)



 Historique

18 avril 2005 20:05:28 :
.

 Sources du même auteur

Source avec Zip Source .NET (Dotnet) CONVERSION D'UN DATAREADER EN DATASET EN PEU DE LIGNE
Source avec Zip GESTION DE STOCK MAGASIN SOUS VBA + CHARGEMENT ET GÉNÉRATION...
Source avec Zip Source avec une capture LE VOYAGEUR
Source avec Zip Source .NET (Dotnet) DÉBUT DE CODE POUR UN INDEX DANS UN OPTIONBUTTON
Source avec Zip UN CONTRÔLE QUI RETOURNE LUI MÊME SA POSITION DANS LA FORM

 Sources de la même categorie

Source avec Zip Source .NET (Dotnet) IMAGE ANIMÉE DANS UNE COLONNE DE DATAGRIDVIEW par foliv57
Source avec Zip Source avec une capture Source .NET (Dotnet) TRIEUR DE PHOTOS par Le Pivert
Source avec Zip Source .NET (Dotnet) ENREGISTREMENT ET DIAGRAMME par jpot31
REDIMENSIONNEMENT D'IMAGE PHP par JStevens
Source avec Zip Source avec une capture Source .NET (Dotnet) POIDS D'UNE IMAGE BMP DE PROFONDEUR 24 BITS par dheroux

Commentaires et avis

Commentaire de jrbleboss le 18/04/2005 20:10:27

C'est bien mais c'est très connu. Mais ca peut quand meme en interresser....

9/10

JRB

Commentaire de ankou22 le 26/10/2005 22:31:48

Salut

9/10

Je prends, j'adore quand je trouve en 2 secondes...

ANKOU22

Commentaire de GG29 le 10/04/2006 21:23:36

merci pour ta source. Au moins je vais pouvoir faire un rectangle ds mon prog, ce qui va être très pratique :D.
bonne continuation.

Commentaire de guyvdv le 23/04/2006 15:38:58

Bonjour ,
Comment avez vous fait pour trouver le zip ???

Guy van der velden

Commentaire de GG29 le 26/04/2006 14:44:01

je crois qu'il n'y en a pas besoin vu que le code est marqué. il suffit de le copier et de le modifier comme on veut.

Commentaire de FLO1978 le 22/06/2006 19:48:26

Bonjour

Un code aprfait pour mon appli
Par contre comment faire pour que le rectangle dessiné soit plein ?

Commentaire de FLO1978 le 22/06/2006 19:58:23

Problème résolu :)

Dim ObjGraph2 As New System.Drawing.Rectangle(220, 100, 100, 200)
ObjDessin.FillRectangle(Brushes.White, ObjGraph2)

Commentaire de logistel le 21/10/2007 16:13:52

Qui possede du code en VB.Net 2005 pour tracer un cercle pardait avec méthode anti-crenelage.
Je l'ai en VB6 mais n'arrive pas à l'exploiter sous VB.Net 2005

Commentaire de hmatnet le 25/05/2009 09:21:11 10/10

Salut,
Merci beaucoup pour ton code qui est bien utile !!! En 2009, il sert encore

Commentaire de us_30 le 08/09/2011 13:32:38 10/10

Bonjour,

Toujours utile encore en 2011 ! ^^

=

Je rajoute, pour l'épaisseur du trait on la défini par :

  Dim blackPen As New Pen(Color.Black, 10)

Donc un nouveau objet qui a la couleur noir d'une taille de 10pixel.
Ensuite, comme précédemment :

  ObjDessin.DrawEllipse(blackPen, ObjGraph)

=

Pour remplir l'ellipse ou le rectangle, on utilise les propriétés FillEllipse, FillRectangle comme précédemment...

=

Amicalement,
Us.

 Ajouter un commentaire




Nos sponsors


Sondage...

CalendriCode

Mai 2012
LMMJVSD
 123456
78910111213
14151617181920
21222324252627
28293031   

Consulter la suite du CalendriCode

A découvrir



 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 0,265 sec (4)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales