Question

VB中建立10个Picturebox,分别为Picture1--picture10,y为变量,如何让第y个picturebox显示,不用控件组。

不行啊 picture(y).visible=TRUE 提示无效限定符

Answer 1

不用控件数组的话就用判断

select case y
case 1
picture1.visble=true
case 2
picture2.visble=true
……
end select

Answer 2

Private Sub Command1_Click()

ShowPic 10

End Sub
Function ShowPic(i As Integer)
Dim p As Control
For Each p In Controls
If TypeOf p Is Picture Then
If p.Name = "Picture" & i Then
p.Visible = True
Else
p.Visible = False
End If
End If

Next
End Function

Answer 3

pictureboxs(y-1).show