Accueil > Forum > > > > graphique vs panel
 graphique vs panel
samedi 9 mai 2009 à 14:18:57 |
graphique vs panel
aminetsdi6
|
bonjour je suis debutant en vb.net je veux dessiner un graphique dans un panel ou un picturebox
voila mon code
Public Sub DrawPieChartHelper() Dim percents() As Integer = {10, 20, 70} Dim colors() As Color = {Color.Red, Color.CadetBlue, Color.Khaki} Dim graphics As Graphics = Me .CreateGraphics Dim location As Point = New Point(100, 100) Dim size As Size = New Size(150, 150) DrawPieChart(percents, colors, graphics, location, size) End Sub Public Sub DrawPieChart( ByVal percents() As Integer , ByVal colors() As Color, _ ByVal surface As Graphics, ByVal location As Point, ByVal pieSize As Size) Dim sum As Integer = 0 For Each percent As Integer In percentssum += percent Next If sum <> 100 Then Throw New ArgumentException( "Percentages do not add up to 100." ) End If If percents.Length <> colors.Length Then Throw New ArgumentException( "There must be the same number of percents and colors." ) End If Dim percentTotal As Integer = 0 For percent As Integer = 0 To percents.Length() - 1surface.FillPie( _ New SolidBrush(colors(percent)), _ New Rectangle(location, pieSize), CType (percentTotal * 360 / 100, Single ), CType (percents(percent) * 360 / 100, Single ))percentTotal += percents(percent) Next Return End Sub Private Sub Form1_Load( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase .Load Me .PropertyGrid1.SelectedObject = Me .Panel1 End Sub
|
|
samedi 9 mai 2009 à 21:03:11 |
Re : graphique vs panel
Londonic
|
Réponse acceptée !
Class Form1 Dim WithEvents Panel1 As PictureBox
Dim percents() As Integer = {10, 20, 70}
Dim colors() As Color = {Color.Red, Color.CadetBlue, Color.Khaki}
Dim Position As Point = New Point(50, 50)
Dim Taille As Size = New Size(150, 150) Public Sub DrawPieChart( ByVal percents() As Integer , ByVal colors() As Color, _
ByVal surface As Graphics, ByVal location As Point, ByVal pieSize As Size) Dim sum As Integer = 0
For Each percent As Integer In percents
sum += percent
Next
If sum <> 100 Then
Throw New ArgumentException( "Percentages do not add up to 100." )
End If
If percents.Length <> colors.Length Then
Throw New ArgumentException( "There must be the same number of percents and colors." )
End If Dim percentTotal As Integer = 0
For percent As Integer = 0 To percents.Length() - 1
surface.FillPie( New SolidBrush(colors(percent)), _
New Rectangle(location, pieSize), _
CType (percentTotal * 360 / 100, Single ), _
CType (percents(percent) * 360 / 100, Single ))
percentTotal += percents(percent)
Next
End Sub Private Sub Form1_Shown( ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles MyBase .Shown
Panel1 = New PictureBox
Panel1.Dock = DockStyle.Fill
Controls.Add(Panel1)
End Sub Private Sub Panel1_Paint( ByVal sender As System.Object, _
ByVal e As System.Windows.Forms.PaintEventArgs) Handles Panel1.Paint
DrawPieChart(percents, colors, e.Graphics, Position, Taille)
End SubEnd Class
|
|
dimanche 10 mai 2009 à 14:17:56 |
Re : graphique vs panel
|
Cette discussion est classée dans : integer, percent, colors, byval, percents
 Répondre à ce message
 Sujets en rapport avec ce message
Changer couleur bordure d'une form [ par fdiedler2000 ]
Bonjour,J'utilise une WinForm qui a le look XP (la bordure en bleue) et je voudrais changer la couleur de cette bordure par exemple la mettre en verte
Losange et sablier sur VBA [ par julienen ]
Bonjour je cherche a faire un losangeet un sablier à partir de pyramides comme dessiné plus haut sur vba donc j'ai d'abord fait deux procedures : La
passer un pointeur null en parametre [ par mmattler ]
Bonjour à tous, Je suis en train de developper une application en vb.net qui utilise les api du stockage amovible (ntmsapi.dll). pour une enumerati
Aucune réponse des adresses [ par Kikou_du_29 ]
Bonjour , j'esai actuellement de récupérer la valeur d'un offset dans un processus , malheuresement sur n'importe quel process il me trouve toujous la
hook souris dans Word URGENT [ par sylvain230 ]
Bonjour. Je n'arrive pas à installer un hook dans WordJ'ai toujours l'erreur suivante " Tentative de lecture ou d'écriture de mémoire protégée. Cela i
vb.net [ par HeroWarz ]
bonjour,voila je fais un cheat pour un jeux FPS offline qui sappel BOILING POINT: ROAD TO HELL .je suis asser bon dans le memory editing mais la gros
VoiceInsert [ par Jav1man ]
J'ai un prolème avec ce code, y a t-il un samaritin dans le coin voici le codeCode Vb.netImports VoiceInsert.ComputerFeaturesImports VoiceInser
Calcule du temps total d'utilisation [ par aldrac ]
Bonjour a tous, j'ai crée une petite application qui se lance au démarrage dewindows,et je chercher un moyen de calculer le temps total d'utilisation,
Procédure qui ne veut pas se lancer [ par themasterofthescripts ]
Impossible de lancer un Sub!J'ai créé un Sub dans un Module:Public Sub MovePion(ByVal Move As Integer, ByVal Team As Integer)'procédureEnd Subet quand
 Livres en rapport
|
Derniers Blogs
 [WP7] DYNAMICALLY CHANGE STARTUP PAGE[WP7] DYNAMICALLY CHANGE STARTUP PAGE par KooKiz
Let's say that you want to allow the user to customize the startup page of your application. You can easily change the startup page by editing the 'NavigationPage' attribute in the manifest file. But the manifest cannot be modified once the applicatio...
Cliquez pour lire la suite de l'article par KooKiz SESSION SILVERLIGHT 5 3D : SLIDES ET DEMOSSESSION SILVERLIGHT 5 3D : SLIDES ET DEMOS par Groc
Durant les techdays, j'ai eu le plaisir d'animer une session sur Silverlight 5 et la 3D avec Simon Ferquel. Comme promis, voici nos slides et mes démos (celles avec le viper BSG) ici et là. Pour mémoire, les démos utilisent toutes le viper BSG...
Cliquez pour lire la suite de l'article par Groc [TECHDAYS 2012] SESSION WEBMATRIX 2 : LE COUTEAU SUISSE GRATUIT POUR VOS DéVELOPPEMENTS WEB - SLIDES[TECHDAYS 2012] SESSION WEBMATRIX 2 : LE COUTEAU SUISSE GRATUIT POUR VOS DéVELOPPEMENTS WEB - SLIDES par gpommier
Suite à la session que j'ai présenté sur WebMatrix 2, vous pouvez trouver les slides ici, ainsi que les démos en packages nuget : démos1 et démos2 J'en profite pour remercier chaleureusement tous ceux qui sont venus très nombreux à cette sess...
Cliquez pour lire la suite de l'article par gpommier [SHAREPOINT] LES SESSIONS TECHDAYS 2012.[SHAREPOINT] LES SESSIONS TECHDAYS 2012. par Patrick Guimonet
Voici donc pour ceux qui n'ont pas pu venir, ou ceux qui n'ont pas pu toutes les suivre la liste des sessions SharePoint aux TechDays 2012, que je mettrais à jour dès que les liens des vidéo seront disponibles. Ou ici : http...
Cliquez pour lire la suite de l'article par Patrick Guimonet TECHDAYS PARIS 2012 : SESSION PLEINIèRE JOUR 3TECHDAYS PARIS 2012 : SESSION PLEINIèRE JOUR 3 par ROMELARD Fabrice
Speaker: Bernard Ourghanlian Cette session est comme chaque jour transmise en live par BrainSonic, et j'ai donc suivi cette troisième pleinière par ce moyen sur mon iPad . Elle est dédiée comme chaque année à la mise en perspective de l'é...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice
Forum
 LISTER KEYS.KEYLISTER KEYS.KEY par Onin42
Cliquez pour lire la suite par Onin42
Logiciels
 Tribler (2012)TRIBLER (2012)Tribler est un client pair à pair (P2P/Peer-to-Peer) open source avec la capacité de regarder des... Cliquez pour télécharger Tribler OneSwarm (2012)ONESWARM (2012)Le peer-to-peer qui protège votre vie privée, c'est OneSwarm.
Ce logiciel de peer-to-peer crypté... Cliquez pour télécharger OneSwarm PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V8.4)PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V8.4)PONAMEDIA TV DEVIENS HELLLOOO FLASH
LA TV SUR VOTRE ORDINATEUR.
Toute une plateforme Multi... Cliquez pour télécharger PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO Academy System (17.2.1.0)ACADEMY SYSTEM (17.2.1.0)Logiciel de gestion des établissements.
- élèves/étudiants (inscription, dossier, absence...)
-... Cliquez pour télécharger Academy System Easy-Planning (1.0.0.1)EASY-PLANNING (1.0.0.1)Basé sur les mêmes principes que MyPlanning, Easy-Planning permet de créer des plannings sous la ... Cliquez pour télécharger Easy-Planning
|