Imagen - Crear un control para visualizar imágenes

Creado por David Miralpeix, Modificado el Fri, 16 Feb 2024 a las 12:26 PM 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");
        }
    }
}