Visual Basic Reference

Пример использования свойства Tag Example

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

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