Imprimir Página - Zoom en VB

Título: Zoom en VB
Publicado por: Meg en 12 Abril 2007, 21:23 pm

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:

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

Título: Re: Zoom en VB
Publicado por: Hans el Topo en 12 Abril 2007, 22:37 pm

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

Título: Re: Zoom en VB
Publicado por: Meg en 12 Abril 2007, 22:41 pm

Citar

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

Título: Re: Zoom en VB
Publicado por: Hans el Topo en 12 Abril 2007, 22:49 pm

Cita de: Meg en 12 Abril 2007, 22:41 pm

Citar

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

Título: Re: Zoom en VB
Publicado por: Sancho.Mazorka en 14 Abril 2007, 02:55 am

Hola, mira podrias usar

Código:

Color = Form1.Point(X, Y)

eso te da un color y una posicion y en otro Form podrias hacer un

Código:

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 :¬¬

Título: Re: Zoom en VB
Publicado por: Meg en 15 Abril 2007, 21:49 pm

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

Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: Meg en 12 Abril 2007, 21:23 pm