Sección de código fuente Visual basic


Módulo de clase para crear HiperVínculos en Visual basic



 

 

El siguente código fuente es un módulo de clase que permite crear Hipervínculos por medio de un control PictureBox.

 

En el módulo, están definidas las propiedades principales

 

Antes de establecerle las propiedades, hay que iniciar la clase, pasandole al método Iniciar, como parámentro, el control PictureBox y el formulario, por ejemplo

Call Clase.Iniciar (Picture1, Me)

 

Importante: Como el módulo utiliza Withevents para el PictureBox dentro de la clase, no se puede utilizar con arreglos o matrices de PictureBox, es decir esto no es válido:

Call Clase.Iniciar (Picture (1), Me)

 

En conlusión, solo se permite utilizar Picturebox que no formen una matriz

Para detectar el MouseOut en el control se utiliza el Api PtlnRect en conjunto con RelaseCapture, SendMessage y GetCursorPos

Otra cosa, es que, yo para no complicarmela demasiado, el módulo al iniciar, crea un control Label en tiempo de ejecución con el método Add de la colección Forms, esto es para asignar el texto al label y luego asignar el mismo al Picture, para que no haya problemas con el tema del tamaño de las fuentes y demás, aunque esto se puede quitar y utilizar algunas Apis que rescaten las dimensiones de la fuente.

Por último: Para establecerle el cursor de Hipervinculo o un puntero personalizado para los enlaces web, hay que establecerlo de la siguiente forma, por ejemplo:

LaClase.MousePointer = VbCustom

LaClase.MouseIcon = LoadPicture ( Ruta del ícono a utilizar)

 

.. el archivo de cursor que es una mano, se llama h_Point.Cur y está situado en la carpeta de instalación de Visual basic, en mi caso en la siguiente ruta:

C:\Archivos de programa\Microsoft Visual Studio\Common\Graphics\Cursors\H_POINT.Cur

 

A continuación sigue el Código fuente del módulo de clase y al final está el código que hay que pegar en el formulario para el ejemplo.

 

Código del módulo de clase y un ejemplo para usarlo

Añadir el siguiente código en un Módulo de clase por defecto dejarlo con el nombre Class1

 

 

 

 

Pegar el siguiente Código en un formulario y agregar 3 controles Picture, Picture1, Picture2 y Picture3

 

Enlaces relacionados

 




Buscar en Recursos vb