vb6中定义变量ACtr为Control，ACtr的tag属性是如何赋值的？急在线等。非常感谢！

Question

    Dim ACtr As Control
    For Each ACtr In Me.Controls
        If ACtr .Tag <> "" Then
           ACtr .Enabled = HasPermission(CntStr, Use, ACtr .Tag)
        End If
    Next
如题，ACtr .Tag的值是如何来的？

Answer 1

 For Each ACtr In Me.Controls   <=这里来得

Answer 2

想知道tag是如何赋值的，现在值不对，要修改一下，但是找不到赋值的地方啊！

Answer 3

你都用tag属性取出值来了，竟然说找不到赋值的地方？
actr.tag="aaaaaa"

Answer 4

这个界面都是菜单，代码里没有给菜单项赋值啊。菜单编辑器里也没有tag啊。

Answer 5

  Dim ACtr As Control  For Each ACtr In Me.Controls
     debug.print ACtr.name  '加这两句测试一下
     debug.print ACtr.tag     If ACtr .Tag <> "" Then
         ACtr .Enabled = HasPermission(CntStr, Use, ACtr .Tag)
     End If
  Next

Answer 6

我在立即窗口里得到name和tag了，
name是mnuTj，tag是B，和HasPermission函数里判断的不对应，如果mnuTj的tag是B037就对了。
现在就是要把mnuTj的tag由B改成B037。

Answer 7

这个tag付值有两个可能1。代码里     搜索tag看看2。设计时写的
     不在你7楼这个 菜单编辑器里
     到右边 属性窗口 的控件列表里找到mnuTj，然后修改他的tag