tratamiento de imagenes - VB-MUNDO

ss_jesus · #1 (**permalink**) 30-09-2005, 11:33:32

Hola a todos quería saber si hay alguna manera u objeto para tratar las imágenes como vectoriales desde visual basic, he estado buscando información y he topado con que el .net trae consigo un control(o eso me pareció entender) para hacer esto. Otra preguntilla ¿es compatible el código y los objetos de vb6 para .net?, por si tuviese que cambiar todo el programa

Gracias por todo de antemano y felicidades por el 2º aniversario

Ronald_Leon_Madrid · #2 (**permalink**) 30-09-2005, 18:38:02

Hola :

que tal un gusto en saludarte, dejame decirte que he puesto un control ocx bastante interesante en el FTP de esta misma pagina que puedes bajartelo, o en caso contrario me envias un correo para enviartelo.

La aplicación se llama : Imagen Viewer CP
Saludos cordiales,

EgRoJHack · #3 (**permalink**) 30-09-2005, 22:46:54

Muy buenas a todos!

sr. ss_jesus, aqui le traigo un ejemplo que quizas le pueda servir de utilidad, el mismo le dice las coordenadas en donde ha dado un click con su mouse, util para asi guardar esos puntos en su base de datos, o atrar algun evento, ya sea cambiando su mapa de bits, por uno nuevo, a partir de estos datos.

Aplique este ejemplo para ver, y me dice si le sirvio:
- Agregue un Picture Box a tu form1 y agregue este codigo:

Código:

Private Sub Picture1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Const Ancho = 0.3
Const Alto = 0.3
Dim CoordX As Single, CoorY As Single
Dim X1 As Single, Y1 As Single, W1 As Single, H1 As Single
Dim file As Integer, col As Integer
If Button = vbLeftButton Then
    CoordX = X - ((Picture1.ScaleWidth * Ancho) / 2)
    If CoordX < 0 Then CoordX = 0
    If (CoordX + (Ancho * Picture1.ScaleWidth)) > Picture1.ScaleWidth Then
        CoordX = Picture1.ScaleWidth * (1 - Ancho)
    End If
    CoordY = Y - ((Picture1.ScaleHeight * Alto) / 2)
    If CoordY < 0 Then CoordY = 0
    If (CoordY + (Alto * Picture1.ScaleHeight) > Picture1.ScaleHeight) Then
        CoordY = Picture1.ScaleHeight * (1 - Alto)
    End If

    MsgBox CoordX & "-" & CoordY
End If
End Sub

Esto le traera un Mensaje que dice la posicion donde dio click, sobre el Picture1.

Espero que les sea de utilidad.

Un saludo a todos! :smt006

ss_jesus · #4 (**permalink**) 01-10-2005, 09:58:37

Saludos, Ronald comentarte que no encuentro el ocx Imagen Viewer CP si me lo pudieras mandar te estaría muy agradecido por otra parte por aclarar un poco mi objetivo final, lo que pretendo es cambiar el tamaño de las imágenes perdiendo la menor calidad posible, normalmente hacerlas mas pequeñas