En vb, el control de tiempo tiene una propiedad "etiqueta"

Devuelve o establece una expresión para almacenar datos adicionales necesarios en el programa. A diferencia de otras propiedades, Visual Basic no utiliza el valor de la propiedad Etiqueta; puede utilizar la propiedad para identificar el objeto;

Sintaxis

objeto.Tag [= expresión]

La sintaxis del atributo de etiqueta contiene las siguientes partes:

Descripción de la parte

object Expresión de objeto cuyo valor es un objeto en la lista "se aplica a".

expresión Una expresión de cadena utilizada para identificar el objeto. El valor predeterminado es una cadena de longitud cero ("").

Descripción

Al utilizar este atributo, puede asignar una cadena de identificación a un objeto sin afectar ninguna otra configuración de atributo ni causar efectos secundarios. La propiedad Tag es útil cuando necesita examinar la identidad de un control o un objeto MDIForm que se pasa como variable a un procedimiento.

Consejo Al crear una nueva instancia de ventana, asigne un valor único a la propiedad Etiqueta.

Ejemplo de propiedad de etiqueta

Este ejemplo muestra un icono separado para cada control arrastrado. Para probar este ejemplo, pegue el código en la sección de declaraciones de un formulario que contenga tres controles PictureBox. Establezca la propiedad DragMode de Imagen1 e Imagen2 en uno y luego presione la tecla F5. Utilice el mouse para arrastrar Imagen1 e Imagen2 sobre Imagen3.

Sub Form_Load privado ()

Imagen1.Tag = "ICONS\ARROWS\POINT03.ICO"

Imagen2.Tag = "ICONOS\ARROWS\POINT04. ICO"

End Sub

Sub imagen privada3_DragOver (Fuente como control, X como único, Y como único, Estado como entero)

Si Estado = vbEnter Entonces

'Selecciona según el atributo Nombre de cada cuadro de imagen.

Seleccione Caso Origen.Nombre

Caso "Imagen1"

' Carga el icono de Imagen1.

Source.DragIcon = LoadPicture(Picture1.Tag) Caso "Imagen2"

' Carga el icono de Imagen2.

Source.DragIcon = LoadPicture(Picture2.Tag)

End Select

ElseIf State = vbLeave Then

' Cuando el origen no es en Imagen 3 Cuando esté arriba, icono de desinstalación.

Source.DragIcon = LoadPicture()

Finalizar si

End Sub