Visual Basic - Como pintar un área en un PicturaBox

Life is soft - evento anual de software empresarial
 
Vista:

Como pintar un área en un PicturaBox

Publicado por Ivan A. Figueroa Jimenez (5 intervenciones) el 22/04/2004 01:04:00
Buen Día:
Tengo una figura dibujada en el Objeto (un triangulo o un circulo) y
quiero pintar su interior y de ser posible que no sea de un color entero,
sino, de una Trama (Líneas inclinada //// ó de Puntitos …).
En Quick-Basic el comando que utilizaba ara esto era PAINT y con un
mapa de bits pues podía armar la trama, como podrán notar ya hace
algunos años que no tengo necesidad de realizar este trabajo, pero no
lo logro hacer; si hago líneas (LINE) y círculos (CIRCLE) pero no don
con el PAINT.
De antemano muchas gracias, aunque solo lo lea, y no pueda
ayudarme; espero que alguien pueda y de paso aclarar la duda.
Saludos y mucha suerte,
El Figuero
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Como pintar un área en un PicturaBox

Publicado por Dennis (103 intervenciones) el 22/04/2004 01:27:26
Ok, abre un nuevo proyecto exe estandar, dibuja un picturebox en un formulario, y pega este codigo en el evento load del mismo, y listo, para saber que opciones de relleno tienes checa la propiedad fillstyle del picture en la caja de propiedades

Private Sub Form_Load()

Me.Picture1.AutoRedraw = True 'pone el redibujado a automatico

Me.Picture1.FillStyle = vbDiagonalCross 'define el patron de relleno
Me.Picture1.FillColor = vbRed 'define el color del relleno
Me.Picture1.Line (100, 100)-(1000, 1000), vbRed, B 'dibuja cuadrado

Me.Picture1.FillStyle = vbSolid 'define el patron de relleno
Me.Picture1.FillColor = vbBlue 'define el color del relleno
Me.Picture1.Circle (1700, 1700), 500, vbBlue 'dibuja circulo

Me.Picture1.FillStyle = vbSolid 'define el patron de relleno
Me.Picture1.FillColor = vbYellow 'define el color del relleno
Me.Picture1.Circle (1700, 1700), 500, vbYellow, -1, -2 'dibuja circulo

Me.Picture1.FillStyle = vbFSTransparent 'define el patron de relleno
Me.Picture1.FillColor = vbRed 'define el color del relleno
Me.Picture1.Circle (1700, 1700), 500, vbGreen 'dibuja el marco

End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Gracias y muy bueno, pero no es todo lo que necesi

Publicado por Ivan A. Figueroa Jimenez (5 intervenciones) el 22/04/2004 16:30:04
Buen Día:
Muy interesante Dennos, y muchísimas gracias; realmente no conocía
estas formas de dibujar con los estilos y de realizar estos círculos. Pero
el problema es que la figura que deseo pintar no es específica, es el
interior de una grafica, que como comprenderá depende de los datos
con que se realice la misma y es el interior de esta el que deseo pintar
con algunos de estos rellenos.
Muchísimas gracias, realmente aprendí algo, gracias.
Saludos y mucha suerte,
El Figuero
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar