这里的新手;我正在尝试将我的VB程序移植到Tabs中运行。到目前为止,我一直在尝试使用添加的控件在运行时创建选项卡。我发现我可以在FormLoad()或通过执行按钮创建选项卡并添加控件。但是,一旦创建了选项卡,我就无法访问这些控件。我无法从创建的选项卡之外的组合框、文本框中获取任何信息。下面是一个简单的程序,我设法将其组合在一起:
公共类Form1继承FormPrivate tabControl1作为TabControlPrivate tabPage1作为TabPagePrivate tabPage2作为TabPageDim nm作为字符串
Private Sub MyTabs() Me.tabControl1 = New TabControl() Me.tabPage1 = New TabPage() Me.tabPage2 = New TabPage() Dim txtBox1 As New Windows.Forms.TextBox With {.Parent = tabPage1} Dim CalcButton As New Windows.Forms.Button With {.Parent = tabPage1} CalcButton.Location = New Point(1572, 150) CalcButton.Size = New Point(100, 50) CalcButton.Text = "CALCULATE" txtBox1.Location = New Point(1572, 258) txtBox1.Size = New Point(70, 22) txtBox1.Name = "Loc_num" txtBox1.Text = "1" nm = txtBox1.Text Me.tabControl1.Controls.AddRange(New Control() {Me.tabPage1, Me.tabPage2}) Me.tabControl1.Padding = New Point(15, 10) Me.tabControl1.Location = New Point(35, 25) Me.tabControl1.Size = New Size(1800, 750) ' Selects tabPage1 using SelectedTab Me.tabControl1.SelectedTab = tabPage1 Me.tabPage1.Text = "tabPage1" Me.tabPage2.Text = "tabPage2" Me.Size = New Size(2000, 900) Me.Controls.AddRange(New Control() {Me.tabControl1}) AddHandler CalcButton.Click, AddressOf CalcButton_Click End Sub Private Sub CalcButton_Click() Dim xx As Integer Me.tabControl1.SelectedTab = tabPage1 xx = Convert.ToInt32(nm) ' IT KEEPS SHOWING A 1, EVENTHOU I CHANGED IT TO 4 WHEN FORM LOADS MessageBox.Show(nm) End Sub Public Sub New() MyTabs() End Sub Public Sub Main() Application.Run(New Form1()) End Sub
结束类我不确定是否可以继续此路径感谢任何帮助或评论