还是回文好了，感觉比较清楚 ※ 引述《aMaa (aMa)》之铭言： : 大家好! : 我有个问题: : 我自动去新增一个tabcotrol,再去新增一个tabpage,再去新增二个tabpage, : 以下是我的写法,请大家帮忙,因为我无法新增後二个tabpage : (我的需求一定要先新增tabcotrol,再新增一个tabpage,再新增二个tabpage) : dim PartTab as new TabControl : dim PartTabPage1 as new TabPage : dim cnt as integer=2 : PartTabPage1.location=new point(10,10) : TabControl.tabpages.add(PartTabPage1) : dim subPartTabPage(cnt-1) as TabPage : for i as integer=0 as cnt-1 这边你打错了，应该是 to 才对，但不知你原本程式是怎麽打的就是了 : subPartTabPage(i)=new TabPage : subPartTabPage(i).location=point(10,10) 上面这一行我搞不懂你在做什麽 如同我在你文章的推文提到 我去查了MSDN，上面说到 「这个属性对这个控制项来说不具意义。」 因为TabPage这个东西，无法改变其於父容器内的位置，顶多只能改顺序 所以座标属性对它无效，我不知道你为何要设定这个属性 再加上，你座标全设的一样，所以我也蛮看不懂你在做什麽的 : TabControl.tabpages.add(subPartTabPage(i)) : next : Me.controls.add(TabControl) : 请问我哪里错? : 如何在已有的tabcontrol中,并已存在一个tabpage情况下再去自动新增二个tabpage? : 谢谢大家! 我是不晓得你实际原始码哪里有错 因为看来你是在PTT上用打的，而非用贴上的 用贴的程式码应该会被VS修改过才对(也会警告你for那边语法打错了) 要看问题好像很麻烦 我乾脆试着写了一次 你将就一下，拿去参考跟你原始码之间的差别 有看不懂的再问吧 ※因为之前试过拿VB程式码去BBS着色，效果很差，又会有着色错误，所以直接贴了 以下内容我写在Form Load事件中 Dim tabCt As TabControl = New TabControl() '动态制造TabControl物件 tabCt.Location = New Point(10,10) Me.Controls.Add(tabCt) '这行不管在这做或最後做都没差 Dim page1 As TabPage = New TabPage() '制造第一页并加入 tabCt.TabPages.Add(page1) Dim number As Integer = 2 '剩下的两页 Dim pages(number - 1) As TabPage For i As Integer = 0 To number - 1 '创造并加入的回圈 pages(i) = New TabPage() tabCt.TabPages.Add(pages(i)) Next 这样就完成了，可以跑 老实说应该也没差多少，跟你的程式码比起来 也许只是有你没发现写错的小地方 给你个对照用的应该比较容易找出你写错的地方 嘿嘿，收工! --

※ 发信站: 批踢踢实业坊(ptt.cc) ◆ From: 118.168.234.54 ※ 编辑: Peruheru 来自: 118.168.234.54 (08/03 04:35)