2014-10-04 68 views

回答

1

一種方法是有一個動態計算它的函數。我沒有測試過這個,但它應該工作。您只需撥打doGetAppXPosition即可循環訪問您的控件的所有實例,並將最後一個作爲下一個x位置。

Dim App As New AppTab() 
With App 
    ... 
    .Location = New Point(doGetAppXPosition, 5) 
    ... 
End With 
Me.Controls.Add(App) 

Private Function doGetAppXPosition() as Integer 

    Dim xpos as Integer = 5 
    For Each oControl As Control In YourForm.Controls 
      If TypeOf oControl Is AppTab Then 
       xpos = oControl.Right + 5 
      End If 
    Next 

    Return xpos 
End Function 
+0

完美的工作,謝謝! – ModuleLFS 2014-10-05 19:20:18