看我这段代码有什么问题?谢谢大家了!

Question

在vb form上添加了一组Frame 都包含在一个PictureBox里 默认的Visible=False 但是在代码里确不能动态修改这个属性 
代码如下:
 FrameBackup.Visible = False     
    Dim i As Integer
    For i = 0 To lstNew.ListCount - 1
        If lstNew.List(i) = "Backup" Then
          FrameBackup.Visible = True
        End If
    Next
这里无论怎样都不能修改FrameBackup.Visible=true 
实在困惑 此frame的Enabled=true 
请大家帮帮忙吧 谢谢

Answer 1

应该没问题，你把代码再贴一点看看是否你应该在framebackup.visible = true后面exit for?

Answer 2

Option ExplicitPrivate Sub Command1_Click()
    lstNew.Clear
    Randomize Timer
    Dim i As Long
    For i = 1 To 4
        If Rnd < 0.5 Then
            lstNew.AddItem "Backup"
        Else
            lstNew.AddItem "fdsafdsa"
        End If
    Next i
    
End SubPrivate Sub Command2_Click()
        Dim i     As Integer
        For i = 0 To lstNew.ListCount - 1
                If lstNew.List(i) = "Backup" Then
                    FrameBackup.Visible = True
                    '================================================
                    Exit For
                    '================================================
                End If
        Next
End SubPrivate Sub Form_Load()
    FrameBackup.Visible = False
End Sub

Answer 3

用你的代码试了下
没有任何问题
看看你的Frame是不是被什么遮挡了？

Answer 4

除非你的picture.visible变为False,并且Frame在Picture内

Answer 5

在If   lstNew.List(i)   =   "Backup"   Then 加断点
看看是否执行了下面的语句

Answer 6

都包含在一个PictureBox里   默认的Visible=False   PictureBox 的 Visible也=False？

Answer 7

把 PictureBox 的 Visible 属性设为 true.
并在语句  FrameBackup.Visible = True  上加断点调试一下。