| |||
| Pintar sobre un PictureBox Hola foro alguien sabe como puedo pintar un grafico rectangulo, circulo o lo ke sea sobre un picture box?.... lo hago pero el grafico siempre se ponedebajo del picture box... alguien tiene alguna idea? lo unico ke he logrado es escribir sobre el picture box pero no puedo lograr ke se dibuje sobre él. espero me puedan ayudar.. mil gracias. |
| |||
| ps ya lo hice por si alguien en algun momento se intereso le dejo el codigo
Código:
Imports System
Imports System.Drawing
Imports System.Windows.Forms
Public Class CargarImagen
Inherits Form
Private Img As Image 'imagen
Public X1 As Integer = 0 'posicion inicial en x
Public Y1 As Integer = 0 'posicion inicial en y
Sub New(ByVal Ruta As String, Optional ByVal Encabezado As String = "", Optional ByVal X As Integer = 0, Optional ByVal Y As Integer = 0)
Img = Image.FromFile(Ruta)
X1 = X 'por si kiere especificar otro punto de inicio
Y1 = Y 'ke no sea 0,0
Dim grfxImage As Graphics = Graphics.FromImage(Img)
Dim Szf As SizeF = grfxImage.MeasureString(Encabezado, Font)
BackColor = SystemColors.Window
ForeColor = SystemColors.WindowText
ResizeRedraw = True
End Sub
Protected Overrides Sub OnPaint(ByVal e As System.Windows.Forms.PaintEventArgs)
Dibuja(e.Graphics, ForeColor, ClientSize.Width, ClientSize.Height)
End Sub
Public Sub Dibuja(ByVal Grfx As Graphics, ByVal Clr As Color, ByVal cX As Integer, ByVal cY As Integer)
Grfx.DrawImage(Img, X1, Y1)
End Sub
End Class
|