Zoom en VB

[Meg]

Hola wenas,tengo una duda.

He creado un dibujo en el form con el evento form_paint,y tengo la duda de como podria hacer un zoom de ese dibujo al apretear un boton.

este es el codigo:

Código [Seleccionar] Expandir

Private Sub Form_Paint()

On Error Resume Next
Dim Xvisado As Double
Dim Yvisado As Double
Dim x1 As Double
Dim y1 As Double
Dim x2 As Double
Dim y2 As Double
Dim x3 As Double
Dim y3 As Double
Dim Des As Double
Dim Azimut As Double
Dim Az As Double
Dim ds As Double
Dim Pi As Double

Xvisado = Text1.Text
Yvisado = Text2.Text
Az = Text3.Text
Pi = 3.141592653
ds = Text4.Text

Xvisado = Xvisado * Pi / 200
Yvisado = Yvisado * Pi / 200
Azimut = Az * Pi / 200
Des = ds * Pi / 200

x1 = 3360 + 1750 * Cos(Azimut)
y1 = 2880 - 1750 * Sin(Azimut)
x2 = 3360 + 1750 * Cos(Des)
y2 = 2880 - 1750 * Sin(Des)
x3 = 3360 + 1750 * Cos(Xvisado)
y3 = 2880 - 1750 * Sin(Yvisado)

frmRadiacion.Line (3360, 2880)-(x1, y1), RGB(255, 0, 0)
frmRadiacion.Line (3360, 2880)-(x2, y2), RGB(0, 255, 0)
frmRadiacion.Line (3360, 2880)-(x3, y3), RGB(0, 0, 255)

frmRadiacion.Circle (3360, 2880), 200, RGB(0, 0, 255), (Xvisado / Yvisado)
frmRadiacion.Circle (3360, 2880), 300, RGB(0, 255, 0), Des
frmRadiacion.Circle (3360, 2880), 400, RGB(255, 0, 0), Azimut
end sub


haber si alguien me podria echar una mano o darme alguna idea,Muchas gracias

[Hans el Topo]

en un picturebox creo que si se puede ampliar una zona, en un form no lo he probado nunca, nose si se puede

[Meg]

Insertar Cita
en un picturebox creo que si se puede ampliar una zona, en un form no lo he probado nunca, nose si se puede

ya ya en un picturebox se que se puede,pero el problema es que es el proyecto es de un colega pa la uni y supongo k tendra k ser en el form XD

gracias de todos modos

[Hans el Topo]

Insertar Cita
en un picturebox creo que si se puede ampliar una zona, en un form no lo he probado nunca, nose si se puede

ya ya en un picturebox se que se puede,pero el problema es que es el proyecto es de un colega pa la uni y supongo k tendra k ser en el form XD

gracias de todos modos

que dibuje todo más grande según las coordenadas lo centre en ese punto y según el porciento aumente disminuya su tamaño, no tiene más xD

inconvenientes que veo... el grosor de las líneas (dibujas más juntitas y listo) xD

[Sancho.Mazorka]

Hola, mira podrias usar

Código [Seleccionar] Expandir

Color = Form1.Point(X, Y) eso te da un color y una posicion y en otro Form podrias hacer un

Código [Seleccionar] Expandir

Form2.Line (X-1), (Y-1), Color y te las arreglas con los For para hacer en el Form1 una sola pasada, y en el Form2 una pasada que lo multiplique al ancho y alto x 2

PD: Tengo un programa hecho en VB6, que simula la Lupa de WinXP, si lo queres agregame y te lo paso, ya que no se donde subirlo, y dsp lo subis vos.


Sancho.Mazorka   

[Meg]

hola, gracias por responder a los 2.
Sancho.Mazorka te e agregado cuando te conectes me pasas eso si no teimporta gracias