Visual Basic - ¿Cómo muevo una línea en un PictureBox?

Life is soft - evento anual de software empresarial
 
Vista:

¿Cómo muevo una línea en un PictureBox?

Publicado por Fabian (4 intervenciones) el 05/07/2005 13:10:57
Hola amigos: necesito hacer que una curva graficada en un PictureBox se corra, hay alguna manera de mover toda la imágen ? o ¿de qué manera debería hacerlo?
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
sin imagen de perfil
Val: 14
Ha aumentado 1 puesto en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

RE:¿Cómo muevo una línea en un PictureBox?

Publicado por SuNcO (599 intervenciones) el 05/07/2005 21:19:54
Uhm.. no entendi bien tu pregunta

Replanteala porfavor o pon un ejemplo para que te podamos ayudar
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

RE:¿Cómo muevo una línea en un PictureBox?

Publicado por Fabian (4 intervenciones) el 06/07/2005 13:23:41

Lo que necesito realizar es ir mostrando una curva (tiempo temperatura) la que se irá actualizando cada 1 segundo desde el margen izquierdo hacia el derecho. Una vez que llega al margen derecho tengo que ir corriendo el gráfico hacia la izquierda para que siempre se vea el último punto dibujado ! Es un típico graficador de tendencias.

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
sin imagen de perfil
Val: 14
Ha aumentado 1 puesto en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

RE:¿Cómo muevo una línea en un PictureBox?

Publicado por SuNcO (599 intervenciones) el 06/07/2005 19:41:00
Ok, se me ocurre algo que de seguro te va a servir, utilizar las Apis GetPixel y SetPixel

Con getpixel lees los pixeles de X y Y posicion, y con putpixel los pones en X y Y posicion (y creo color, no recuerdo bien los parametros)

Por ejempolo con este codigo que encontre yo hago una copia de picture1 en picture2

Private Declare Function GetPixel Lib "gdi32.dll" (ByVal hdc As Long, _
ByVal nXPos As Long, ByVal nYPos As Long) As Long
Private Declare Function SetPixel Lib "gdi32.dll" (ByVal hdc As Long, _
ByVal x As Long, ByVal y As Long, ByVal crColor As Long) As Long

Dim i, J As Long

With Picture1
.ScaleMode = vbPixels

' Invertiert eine Grafik
For i = 0 To .ScaleWidth
For J = 0 To .ScaleHeight
SetPixel Picture2.hdc, i, J, GetPixel(.hdc, i, J)
Next J
Next i
End With

Ahora, lo que tu tienes que hacer basicamente es lo mismo, solo jugar un poco con las coordenadas
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