還是回文好了，感覺比較清楚 ※ 引述《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)