求助vb.net动态创建tab页中的按钮控件咋不能显示?
各位大佬,小弟遇到个问题,vb.net2008如何动态创建tab页,然后动态创建几个按钮,可是死活不能显示按钮。
是我哪里没有设置好呢,还是根本就没有用对?
好心人帮解下,贴上代码。不胜感激
Public Class Form1
Dim button As New List(Of Button) '创建一个按钮的泛型列表集合
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Dim Tab As New TabPage
For i = 0 To 5
'*插入Tab页面
TabControl1.TabPages.Add(Tab)
Tab.Text = "Tab " & i
'*添加各sstab中的FlexGrid_PingGuTiShi表格
Dim btn As New Button '实例化一个新按钮
btn.Name = "button " & i
btn.Text = btn.Name
btn.Location = New Point(6, 18)
btn.Width = 100
btn.Height = 40
btn.Tag = i
btn.Visible = True
'AddHandler btn.Click, AddressOf Button1_Click '委托按钮的单击事件
Tab.Controls.Add(btn) '在窗体上添加按钮
button.Add(btn) '添加到控件集合
Next
TabControl1.SelectedIndex = 0
End Sub
Private Sub TabControl1_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles TabControl1.SelectedIndexChanged
If (TabControl1.SelectedIndex = 1) Then
button(TabControl1.SelectedIndex).Visible = True
'TabControl1.Visible = True
Else
button(TabControl1.SelectedIndex).Visible = False
'TabControl1.Visible = False
End If
End Sub
End Class