Hola MedioSiglo, ya conseguí pintar las gráficas con el Pie como me dijiste en el post aquel, te quería preguntar si es posible mejorar la calidad de imagen del pie tocando alguna propiedad de antialiasing o alguna otra cosa del objeto Graphic.
Muchísimas gracias!

Me temo que a tanto no he llegado. Aún estoy empezando con el objeto Graphics, quizás más adelante.


Tal vez alguien nos lo pueda aclarar


Por cierto, no entendí bien el otro mensaje que has puesto aquí sobre cambiar brush por color

Puedes mejorar la calidad global de dibujado del objeto graphics usando lo siguiente

objetoGraphics.SmoothingMode = SmoothingMode.HighQuality

Lo del cambiar de Brush a Color ya lo hice, utilice un objeto de la clase Pen así:
listaNodos.Items(i).SubItems(0).BackColor = New Pen(Brocha(i)).Color

Dark Camper, se ve la gráfica de puta madre tio! gracias!

Ummm no se si se podria a ver dicho mejor se ve excelente o bien o super pero con esa expresion te haz puesto , que mal..... es mejor evitarlas

Saludos; me puedes decir como pintar una grafica en vb.ne 2003?? no tengo ni idea.

Hace unos meses posteé este mensaje:
Creo que el código es bastante claro[color=#0000ff size=2]


Imports[/color] System.Drawing
[color=#0000ff size=2]Imports[/color] System.Drawing.Drawing2D[color=#0000ff size=2]


Public[/color] [color=#0000ff size=2]Class[/color] Form1
[color=#0000ff size=2]Inherits[/color] System.Windows.Forms.Form
[color=#0000ff size=2]Dim[/color] G [color=#0000ff size=2]As[/color] Graphics, Valores() [color=#0000ff size=2]As[/color] [color=#0000ff size=2]Integer[/color] = {10, 20, 18, 44, 36, 25}
[color=#0000ff size=2]Dim[/color] Brocha() [color=#0000ff size=2]As[/color] Brush = {Brushes.Red, Brushes.Yellow, Brushes.Blue, Brushes.Green, Brushes.Orange, Brushes.Purple}


en el evento paint del form:


[color=#0000ff size=2]Dim[/color] NumValores, MaxValor, Barra, x, y, ancho, alto [color=#0000ff size=2]As[/color] [color=#0000ff size=2]Integer
[/color][color=#0000ff size=2]Dim[/color] RectX, RectY, RectAncho, RectAlto [color=#0000ff size=2]As[/color] [color=#0000ff size=2]Integer[/color]


G = [color=#0000ff size=2]Me[/color].CreateGraphics
NumValores = Valores.GetLength(0)


[color=#008000 size=2]'Esto dibuja un gráfico de barras en la mitad izquierda del form[/color]


[color=#008000 size=2]' definimos la zona donde vamos a pintar
[/color]RectX = 10
RectY = 10
RectAncho = [color=#0000ff size=2]Me[/color].Width / 2 - 40
RectAlto = [color=#0000ff size=2]Me[/color].Height - 50


[color=#008000 size=2]' averigua el valor mayor
[/color][color=#0000ff size=2]For[/color] Barra = 0 [color=#0000ff size=2]To[/color] NumValores - 1
[color=#0000ff size=2]If[/color] Valores(Barra) > MaxValor [color=#0000ff size=2]Then[/color] MaxValor = Valores(Barra)
[color=#0000ff size=2]Next[/color]


[color=#008000 size=2]' la anchura de las barras
[/color]ancho = (RectAncho) / NumValores


[color=#008000 size=2]' bucle para dibujar las barras
[/color][color=#0000ff size=2]For[/color] Barra = 0 [color=#0000ff size=2]To[/color] NumValores - 1
[color=#008000 size=2]' x,y definen las coordenadas donde se dibujarán las barras
[/color]x = Barra * ancho
alto = Valores(Barra) * RectAlto / MaxValor
y = RectAlto - alto
[color=#008000 size=2]' dibuja la barra en distinto color
[/color]G.FillRectangle(Brocha(Barra), x, y, ancho, alto)
[color=#008000 size=2]' dibuja el borde de la barra en azul marino
[/color]G.DrawRectangle([color=#0000ff size=2]New[/color] Pen(Color.Navy, 2), x, y, ancho, alto)
[color=#0000ff size=2]Next[/color]


[color=#008000 size=2]'Esto dibuja un queso o gráfica de pastel en la mitad derecha del form
[/color][color=#0000ff size=2]Dim[/color] Angulo1, AnguloAncho, sumaValores [color=#0000ff size=2]As[/color] [color=#0000ff size=2]Integer
[/color]RectX = [color=#0000ff size=2]Me[/color].Width / 2 + 10
RectY = 10
RectAncho = [color=#0000ff size=2]Me[/color].Width / 2 - 40
RectAlto = [color=#0000ff size=2]Me[/color].Height - 50


sumaValores = 0
[color=#0000ff size=2]For[/color] Barra = 0 [color=#0000ff size=2]To[/color] NumValores - 1
sumaValores = sumaValores + Valores(Barra)
[color=#0000ff size=2]Next
[/color]Angulo1 = 0


[color=#0000ff size=2]For[/color] Barra = 0 [color=#0000ff size=2]To[/color] NumValores - 1
AnguloAncho = Valores(Barra) * 360 / sumaValores
[color=#008000 size=2]' dibuja la porción del queso
[/color]G.FillPie(Brocha(Barra), RectX, RectY, RectAncho, RectAlto, Angulo1, AnguloAncho)


G.DrawPie([color=#0000ff size=2]New[/color] Pen(Color.Navy, 2), RectX, RectY, RectAncho, RectAlto, Angulo1, AnguloAncho)


[color=#008000 size=2] ' cambia la posición para la próxima porción
[/color]Angulo1 = Angulo1 + AnguloAncho
[color=#0000ff size=2]Next[/color]
Ademas en este mismo hilo tienes como mejorar la calidad de la imagen.