连For Each都不会用了..求助啊!

[keekeep]

我的窗体上有四个PictureBox 点一个按纽,用For Each遍历所有的picturebox,让Name="panel"的.Visible属性=True,其它的.visible属性=False.

请帮忙.在线等....解决就结贴!

[apple1980]

Dim f1 As PictureBox
For Each f1 In Form1
rr = f1.Name
If rr = "Picture2" Then
Picture2.Visible = False
Exit Sub
End If
Next

[of123]

dim cc as control

for each cc in me.controls
if typeof cc is PictureBox then
if cc.name = panel then
cc.Visible = True
else
cc.Visible = False
End if
end if
next

[of123]

if cc.name = "panel" then

[bladeinside]

Dim x As Control
Dim y As frmTest
For Each x In y
If TypeOf x Is PictureBox And x.Name = "" Then
x.Visible = True
ElseIf TypeOf x Is PictureBox And x.Name <> "" Then
.Visible = False
End If
Next x
你试试

[ryuginka]

dim cc as control

for each cc in me.controls
if typeof cc is PictureBox then
if cc.name = "panel" then
cc.Visible = True
else
cc.Visible = False
End if
end if
next

[laviewpbt]

注意啊，panel的大小写一定要对啊，如果把panel该为Panel那就不对了。

[northwolves]

Private Sub Command1_Click()
Dim p As Control
For Each p In Me.Controls
If TypeOf p Is PictureBox Then p.Visible = False
Next
Me.Controls("panel").Visible = True
End Sub