关于 TabPages 的使用

[dofly]

一个 TabControl 上有10个TabPages: TP1 To TP10
可不可以根据我给定的参数来决定 TabPages 的显示个数,
例如参数 5 ，
则把 D6 To D10 ReMove 掉
并且将 D1 To D5 的Text 改为 1 To 5


答案不限于此，有类似的解决办法也可以。
谢谢

[dofly]

谢谢大家了。

[tendotnet]

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Convert.ToInt32(TextBox1.Text)
TabControl1.TabPages.Clear()
Dim i As Integer

i = TextBox1.Text
For i = 1 To i
Dim a As New TabPage
a.Name = "asd"

TabControl1.TabPages.Add(a)
Next
End Sub

[水如烟]

是不是想这样：
'移去
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

s(Me.TextBox1.Text, Me.TextBox2.Text)

End Sub
'从零计起，移去位置始为Index的连续count个TabPage
Private Sub s(ByVal Index As Integer, ByVal count As Integer)
Dim NowPageCount As Integer
If Index < 0 OrElse Index > Me.TabControl1.TabCount - 1 Then Exit Sub
count = IIf((Index + count) < Me.TabControl1.TabPages.Count, count, Me.TabControl1.TabPages.Count - Index)
Dim i As Integer
For i = Index To Index + count - 1
Me.TabControl1.TabPages.RemoveAt(Index)
Next

For i = Index To Me.TabControl1.TabPages.Count - 1
Me.TabControl1.TabPages(i).Text = "TabPage" & (i + 1).ToString
Next
End Sub

[dofly]

谢谢 tendotnet(hand in hand),水如烟。

要的就是后面这种效果

[tendotnet]

哦，理解错了，还是水如烟老大厉害！