Imagen - Crear un control para visualizar imágenes

Creado por David Miralpeix, Modificado el Vie, 16 Feb a 12:26 P. M. por David Miralpeix

Permite crear un control en un formulario para la visualización de imágenes. Acepta formatos jpg, bmp, pdf, tif, gig y png.


Propiedades:
* Filename PathImagen as string
- Carga la imagen en el control

* ZoomMode () as Long
- Establece el modo de visualización de la imagen.
Zoom100 = 1
ZoomFitToControl = 2
ZoomWidthControl = 3
ZoomCustom = 4
ZoomHeightControl = 5
ZoomToControl = 6

Métodos:
* Carga PathImagen as string
- Carga la imagen en el control

* Clear()
- Borra la imagen

Código VB6:


¡Atención! Sólo se podrá hacer en aquellos formularios cuya dll incluya la referencia a la librería de controles AhoraOcxImagen.dll. De lo contrario daría error de licencias.

Set lImg = gForm.Controls.Add("AhoraOCXImagen.cntVisorImgSimple", "controlName", [objContainer])

Para acceder a sus métodos y propiedades, debemos pasar por el objeto Object: Ej. lImg.Object.Carga "pathimg"

Para recuperar la imagen cargada en el control hay que leer su propiedad FileName.


' El siguiente ejemplo crea un control de imagen en el formulario de pedido de venta.

Sub Show () 
     Set lVisor = gForm.Controls.Add("AhoraOCXImagen.cntVisorImgSimple", "Pers_MiVisor", gForm.frameeconomicos)
     lVisor.visible = True
     lvisor.move 10,10,3000,2925
     lVisor.zOrder
     lvisor.object.zoomMode=2
     lvisor.object.carga "\\data\dataImg\Path\a.JPG"
End Sub


Código C#:

using AhoraCore;
using AhoraOCX;
using AhoraSistema;
using System.Windows.Forms;

namespace AhoraScriptsPantalla
{
  public class AhoraCl_frmPedidos : AhoraOCX.AhoraBaseScript
  {
    public void Show()
    {

      // El siguiente ejemplo crea un control de imagen en el formulario de pedido de venta.

      ICntVisorImg lVisor = (ICntVisorImg)gForm.Controls.Add("AhoraOCX.CntVisorImg", "Pers_MiVisor", (gForm.Controls["FrameEconomicos"] as ICntPanel));
      lVisor.Visible = true;
      (lVisor as Control).Location = new System.Drawing.Point(10, 10);
      (lVisor as Control).Size = new System.Drawing.Size(200, 195);
      lVisor.BringToFront();
      lVisor.ZoomMode = ViewerZoomMode.ZoomFitToControl;
      lVisor.Carga("C:\\temp\\AHORA.png");
        }
    }
}

¿Le ha sido útil este artículo?

¡Qué bien!

Gracias por sus comentarios

¡Sentimos mucho no haber sido de ayuda!

Gracias por sus comentarios

¡Háganos saber cómo podemos mejorar este artículo!

Seleccione al menos una de las razones
Se requiere la verificación del CAPTCHA.

Sus comentarios se han enviado

Agradecemos su esfuerzo e intentaremos corregir el artículo