Dibujar un rectangulo de 2x2 en picturebox y poder borrarlo

[Alexand3r]

Buenas compañer@s.

Estoy tratando de hacer un programa en el que pinchando en cualquier parte de un Picture Box, se pinte un rectangulo en ese punto, hasta aquí bien, consigo que se pinte bien, etc...

La propiedad Autoredraw del Picture la tengo a true, ya que en el form load me pinta una cuadricula/grilla, y me interesa que si tengo que poner varios cuadros, estos se queden pintados.

Pero me han surgido un par de dudas.

El primero, es que me gustaria que en lugar de pintar solo un rectangulo, me gustaria que este estuviera dividido en cuatro rectangulitos, no se si me explico..., seria un rectangulo de dos columnas y dos filas, y cuyo punto central sea donde yo pincho.

La otra duda, es que si por casualidad me he equivocado de sitio al pintar un rectangulo, ¿como podria hacer para retroceder ese paso? O ¿como puedo borrar solo ese último rectangulo que he pintado?

Espero que me podais ayudar, gracias de antemano.

Un saludo.

Alex.

[Alexand3r]

Jo, más de dos meses buscando y nada.

No sé ya donde recurrir.

Si hay alguien que pueda ayudarme se lo agradeceria mucho.

Muchas gracias por vuestra paciencia.

un saludo.

[Gakex]

Hola, mira esta un poco confuso el titulo porque dice un rectangulo de 2x2, para mi eso seria un cuadrado, pero creo que si entiendo tu duda por el contexto que planteas mira aqui planteo mi interpretación:

Lo que quieres es que en un principio se dibuje algo como una malla de rectangulos de un color determinado, y despues al darle click a un rectangulo de la malla se forme una cruz que su interseccion apunte al lugar en el rectangulo en donde hiciste click, es decir que la cruz no necesariamente debe de partir en cuatro partes iguales al rectangulo, sino que es la interseccion la que apunta el lugar dentro del rectangulo en donde diste click.


si algo esta mal porfavor dimelo y lo checamos.

[pkj]

A ver si esto te sirve de ayuda. Simplemente pinta una grilla de 2x2 en un picture al pinchar con el boton izquierdo, y al pinchar con el derecho la pinta con el color de fondo del picture haciendo que desaparezca. Puedes memorizar las coordenadas y poner un boton deshacer en lugar del boton derecho.

Si tu picture tiene ya algo dibujado debajo del recuadro, borrar la grilla será más complicado que esto, pero quizá te pueda servir de ayuda.

Para probarlo, solo crea un proyecto con un picture (picture1) y pega el código.

Código vb:

Private Type Coordenada
  X As Integer
  Y As Integer
End Type
 
Dim PuntoClick As Coordenada
Dim ColorLineas As ColorConstants
 
Private Sub PintaGrilla(Pic As PictureBox, ByVal X As Long, ByVal Y As Long, Optional ByVal Color As ColorConstants = vbBlack, Optional ByVal LongLin As Long = 500)
  Pic.ForeColor = Color
  Pic.Line (X - LongLin, Y)-(X + LongLin, Y)
  Pic.Line (X, Y - LongLin)-(X, Y + LongLin)
  Pic.Line (X - LongLin, Y - LongLin)-(X + LongLin, Y - LongLin)
  Pic.Line (X - LongLin, Y + LongLin)-(X + LongLin, Y + LongLin)
  Pic.Line (X - LongLin, Y - LongLin)-(X - LongLin, Y + LongLin)
  Pic.Line (X + LongLin, Y - LongLin)-(X + LongLin, Y + LongLin)
End Sub
 
Private Sub Picture1_Click()
  PintaGrilla Picture1, PuntoClick.X, PuntoClick.Y, ColorLineas
End Sub
 
Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  PuntoClick.X = X
  PuntoClick.Y = Y
  ColorLineas = IIf(Button = vbLeftButton, vbBlack, Picture1.BackColor)
End Sub
 

Saludos