Visual Basic - Grilla de lineas sobre Imagenes

Life is soft - evento anual de software empresarial
   
Vista:
Imágen de perfil de Daniel

Grilla de lineas sobre Imagenes

Publicado por Daniel (360 intervenciones) el 02/10/2007 13:55:12
Hola, estoy tratando de crear una grilla (cuadriculas) sobre una imagen; o sea, tengo un PictureBox, dentro de este un ImageBox, este ultimo carga una imagen, lo que necesito es crear una grilla de lineas (line) sobre la imagen, seria muy simple crearlo en tiempo de diseño, el problema es que las imagenes se cargar en tiempo de ejecucion y por ende tanto el PictureBox como el ImageBox se redimensionan y la grilla creada en tiempo de diseño queda desubicada y aveces por detras del Imagebox
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

Ahi va algo de codigo ...

Publicado por Semper (25 intervenciones) el 03/10/2007 09:36:47
A ver si te sirve esto ...

Llamas al Sub indicandole el espaciado entre los puntos de la grilla y el PictureBox sobre el que quieres poner la misma ...

Ej: ... Call Print_Grid( 120, Me.Picture1 )

'''''''''

Private Sub Print_Grid( ByVal nEspaciado As Integer, ByRef oPicture As PictureBox )
Dim nX As Single, nY As Single
Dim nOldMode As Integer, nOldSize As Integer
Dim nRow As Integer, nCol As Integer, nStep As Integer
Dim nTheMouse As MousePointerConstants

nTheMouse = Screen.MousePointer

Screen.MousePointer = vbHourglass

nOldMode = oPicture.DrawMode
nOldSize = oPicture.DrawWidth

oPicture.DrawMode = vbInvert
oPicture.DrawWidth = 2


nStep = nEspaciado

nX = nStep
nY = nStep

If nStep > 5 Then
For nRow = 1 To Int(oPicture.ScaleHeight / nStep)
For nCol = 1 To Int(oPicture.ScaleWidth / nStep)
oPicture.PSet (nX, nY)
nX = nX + nStep
Next
nX = nStep
nY = nY + nStep
Next
End If

oPicture.DrawMode = nOldMode
oPicture.DrawWidth = nOldSize

Screen.MousePointer = nTheMouse
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
Imágen de perfil de Daniel

RE:Ahi va algo de codigo ...

Publicado por Daniel (360 intervenciones) el 04/10/2007 13:02:07
Gracias, lo voy a probar.
Yo ponia 50 lineas (Vector) sobre el picture en invisible luego de dimensionar el picture le daba las coordenadas a cada linea horizontal y vertical. Eso estube probando pero es medio engorroso

Gracias mas una vez
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
Imágen de perfil de Daniel

RE:Ahi va algo de codigo ...

Publicado por Daniel (360 intervenciones) el 08/10/2007 14:18:25
Bien, ya funciona, con un par de variables manejo las dimensiones de los cuadros y el color de las lineas ya que en zonas muy oscuras de las fotos las lineas negras desaparecen
Gracias por tu ayuda
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