Question

vb中如何根据输入的数字显示几个picturebox控件

Answer 1

你是要动态添加picture，还是已经添加了，只是让他们显示出来？
若是第一种
你先添加一个picture控件，将他的index属性设为0
加一个按钮及文本框
代码
Private Sub Command1_Click()
If Val(Text1.Text) > 1 Then
For i = 1 To Val(Text1.Text) - 1
Load Picture1(i)
Picture1(i).Left = Picture1(i - 1).Left + Picture1(i - 1).Width + 50
Picture1(i).Visible = True
Next
End If
End Sub

Answer 2

用select case就可以。

追问

我是刚用这个，能举个例子吗？谢谢！比如我文本框输入6的话，有6个picturebox显示出来。

追答

Private Sub Form_Load()
Call hid
End Sub
Private Sub Text1_Change()
Call hid
n = Val(Text1)
For i = 0 To n - 1
Picture1(i).Visible = True
Next i
End Sub
Sub hid()
For i = 0 To 5
Picture1(i).Visible = False
Next i
End Sub

追问

不好意思，要用C#做，我用的是vs2008