 Autor
|
Tema: Zoom en VB (Leído 4,061 veces)
|
Meg
 Desconectado
Mensajes: 462
|
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: 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
|
|
|
|
|
En línea
|
|
|
|
Hans el Topo
Desconectado
Mensajes: 1.754
"Estoy cansado de no hacer nada"
|
en un picturebox creo que si se puede ampliar una zona, en un form no lo he probado nunca, nose si se puede
|
|
|
|
|
En línea
|
|
|
|
Meg
Desconectado
Mensajes: 462
|
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
|
|
|
|
|
En línea
|
|
|
|
Hans el Topo
Desconectado
Mensajes: 1.754
"Estoy cansado de no hacer nada"
|
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
|
|
|
|
|
En línea
|
|
|
|
Sancho.Mazorka
Desconectado
Mensajes: 480
Gamer & Programador
|
Hola, mira podrias usar Color = Form1.Point(X, Y) eso te da un color y una posicion y en otro Form podrias hacer un 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. |
|
|
|
|
En línea
|
|
|
|
Meg
Desconectado
Mensajes: 462
|
hola, gracias por responder a los 2. Sancho.Mazorka te e agregado cuando te conectes me pasas eso si no teimporta gracias  |
|
|
|
« Última modificación: 15 Abril 2007, 21:51 pm por Meg »
|
En línea
|
|
|
|
|
| Mensajes similares |
|
Asunto |
Iniciado por |
Respuestas |
Vistas |
Último mensaje |
|
|
|
ha forma de mostrar el 100% zoom
Desarrollo Web
|
maxtextla
|
1
|
2,943
|
3 Septiembre 2011, 15:34 pm
por #!drvy
|
|
|
|
Como hacer ZOOM?¿
Programación C/C++
|
prometheus48
|
6
|
4,773
|
31 Diciembre 2011, 20:55 pm
por Unbr0ken
|
|
|
|
Nokia reinventa el zoom y nos lo descubrirá el 11 de julio
Noticias
|
wolfbcn
|
0
|
1,092
|
14 Junio 2013, 21:19 pm
por wolfbcn
|
|
|
|
Zoom
.NET (C#, VB.NET, ASP)
|
SγиtαxEяяoя
|
1
|
2,336
|
1 Septiembre 2013, 12:57 pm
por Eleкtro
|
|
|
|
Problema con el zoom
Diseño Gráfico
|
lucas25cba
|
2
|
4,780
|
28 Mayo 2015, 01:02 am
por lucas25cba
|
 |
