Control 中的.Tag不为空，就让它为Not xs.Enabled是什么作用？ - 编程论坛

#2

yz10252013-01-22 21:18

MSDN:

Tag 属性范例
这个范例为每个被拖移的控制项显示一个唯一的图示。若想测试此范例，请将程式码贴到包含三个 PictureBox 控制项的表单的宣告区块。将 Picture1 和 Picture2 的 DragMode 属性设定为 1，然后按 F5 键执行并使用滑鼠在 Picture3 上面拖移 Picture1 和 Picture2。

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
      ' 根据每个图片方块的 Name 属性选择。
      Select Case Source.Name
      Case "Picture1"
         ' 载入 Picture1 的图示。
          Source.DragIcon = LoadPicture(Picture1.Tag)        Case "Picture2"
         ' 载入 Picture2 的图示。
          Source.DragIcon = LoadPicture(Picture2.Tag)
      End Select
   ElseIf State = vbLeave Then
      ' 当来源图示不在 Picture3 之上时，释出图示。
      Source.DragIcon = LoadPicture ()
   End If
End Sub

#3

Artless2013-01-22 21:51

xs.Enabled = Not xs.Enabled

取反

#4

yiyaozjk2013-01-23 16:44

比如窗体里有一个：Picture1.Tag不等于空时，
再针对 Picture.Enabled = Not Picture.Enabled
之后与之前有什么区别呢？有什么作用呢？这里不明白

#5

Artless2013-01-24 13:30

以下是引用yiyaozjk在2013-1-23 16:44:02的发言：

比如窗体里有一个：Picture1.Tag不等于空时，
再针对 Picture.Enabled = Not Picture.Enabled
之后与之前有什么区别呢？有什么作用呢？这里不明白

看帮助吧

#6

yz10252013-01-24 13:55

程序代码：

Private Sub Form_Load()
Dim i As Integer
    For i = 0 To 10
        Picture1.Enabled = Not Picture1.Enabled
        Debug.Print Picture1.Enabled
    Next i
End Sub