Güenas,

Tengo un control PictureBox (picturebox1) y quiero dibujar en el. Para ello uso el siguiente código:

Código:

  Dim Graf As System.Drawing.Graphics
  Dim Punta As System.Drawing.Pen
  
  punta = New System.Drawing.Pen(Color.Red,2)
  Graf = Picturebox1.CreateGraphics
  Graf.DrawLine(punta,0,0,100,50)

El problema es que el PictureBox puede tener cualquier tamaño, pero yo quiero que SIEMPRE esa línea que acabo de dibujar sea una diagonal desde un extremo hasta el otro del picturebox.

Lo explico mejor con un ejemplo: Tengo 3 picturebox: Uno chico, uno mediano y uno enorme, por lo que los tamaños serán bien distintos. Sin embargo yo quiero que en cualquiera de los 3 la línea ocupe toda la diagonal.

En VB6 esto se resolvía muy facilmente haciendo:

Código:

PictureBox1.Scale (0,0)-(100,50)

Pero no lo logro hacer en VB.Net.

Saludos

PD: Si, lo se que perfectamente podría afectar al 100 y al 50 de factores de escala, pero no me sirve.

Güenas,

Googleando bastante más encontré que puedo "emular" el scale de VB con ScaleTransform

Código:

Graf.ScaleTransform(PictureBox1.Width /100F ,PictureBox1.Height /100F)

Sólo que esta transformación TAMBIÉN me cambia el tamaño de la punta (pen), cosa que no era deseable para mi, pero güe, todo no se puede.

Saludos

Oye vanchi, ya viste los power packs para el vb 2005? hay una emulacion para imprimir a la manera de vb 6, y varias cosas mas, checalo y a lo mejor te sirve para lo que necesitas.

Suerte

Hola Saiet,

Gracias por la porpuesta, pero no uso Visual Studio, tan sólo programo en VB.Net utilizando SharpDevelop... y ahora que ya me estoy sintiendo un poco más "canchero" en .Net me parece que dentro de muy poco voy a cambiar el compilador a Mono, por lo que esa solución no me servirá.

De todos modos muchas gracias.

Saludos