Возвращает или устанавливает выражение, в которой хранятся любые дополнительные данные для вашей программы. В отличие от других свойств, значение свойство Tag не используется в Visual Basic; вы можете использовать это свойство, чтобы идентифицировать объекты.

Синтаксис

object.Tag [= выражение]

Свойство Tag состоит из трех частей:

Примечание

Вы можете использовать это свойство для назначения идентифицирующей строки объекту, без затрагивания других его установленных свойств и без каких-либо последствий. Свойство Tag полезно, если вам нужно проверить идентичность элемента управления или объекта или объекта MDIForm, который был передан процедуре как переменная.

Совет

Когда вы создаете новый экземпляр формы, свойству Tag назначайте уникальное значение.

Примечание

Свойство Tag это универсальный тип данных в коллекции элемента управления ActiveX, такой как объект Toolbar Button, объект TreeView Node, ListView ListItem и объект ColumnHeader,  объекты ImageList ListImage, объекты TabStrip Tab, и объекты StatusBar Panel. Вы можете использовать свойство Tag для передачи значений, но оно не разрешит вам передать объекты.

Образец

Этот образец иллюстрирует уникальную иконку для каждого элемента управления который будет перенесен. Вставьте этот код в раздел Declarations на форме который содержит элемент управления PictureBox. Установите свойство DragMode равным 1 для Picture1 и Picture2, а затем нажмите F5. Используйте мышь для перетаскивания Picture1 или Picture2 за элемент управления Picture3.

Private Sub Form_Load ()
  Picture1.Tag = "ICONS\ARROWS\POINT03.ICO"
  Picture2.Tag = "ICONS\ARROWS\POINT04.ICO" 
End Sub

Private Sub Picture3_DragOver (Source As Control, X As Single, Y As Single, State As Integer)
   If State = vbEnter Then
      ' Select based on each PictureBox's Name property.
      Select Case Source.Name
        Case "Picture1"
          ' Load icon for Picture1.
          Source.DragIcon = LoadPicture(Picture1.Tag)
        Case "Picture2"
          ' Load icon for Picture2.
          Source.DragIcon = LoadPicture(Picture2.Tag)
      End Select
   ElseIf State = vbLeave Then
      ' When source isn't over Picture3, unload icon.
      Source.DragIcon = LoadPicture ()
   End If
End Sub

См. также

Свойство Name (Элемент Управления ActiveX)

Назад