如何在TableLayoutPanel中設置行的高度

Question

我在我的TableLayoutPanel中動態添加行，但我無法配置那裏的高度。

該代碼可能看起來很長，但它是一個非常簡單的代碼。

有關代碼的解釋：

的代碼創建一個TableLayoutPanel並設置其屬性。之後，根據數據庫中有多少部電影，該代碼將創建Pictureboxes和Labels。在創建Picturebox和Label後，該代碼將它們都放在Panel中，然後代碼將Panel插入到TableLayoutPanel中。問題在於排的高度。

輸出：

這裏是我使用的代碼：

Dim movieN As Integer = MoviesDataSet.movies.Rows.Count 
    Dim tablePanel As New TableLayoutPanel 

    With tablePanel 
     .Size = New Point(Me.ClientRectangle.Width - 10, Me.ClientRectangle.Bottom - 55) 
     .ColumnCount = 4 
     .GrowStyle = TableLayoutPanelGrowStyle.AddRows 
     .AutoScroll = True 
     .Margin = New System.Windows.Forms.Padding(0) 
     .Location = New System.Drawing.Point(5, 50) 
     .CellBorderStyle = TableLayoutPanelCellBorderStyle.Inset 
     .ColumnStyles.Add(New ColumnStyle(SizeType.Percent, 25.0!)) 
     .ColumnStyles.Add(New ColumnStyle(SizeType.Percent, 25.0!)) 
     .ColumnStyles.Add(New ColumnStyle(SizeType.Percent, 25.0!)) 
     .ColumnStyles.Add(New ColumnStyle(SizeType.Percent, 25.0!)) 
     .Anchor = AnchorStyles.Bottom Or AnchorStyles.Left Or AnchorStyles.Right Or AnchorStyles.Top 
    End With 


    For Each MovieRow As DataRow In MoviesDataSet.Tables("movies").Rows 
     'define two new controls to be added 
     Dim myLabel As New Label 
     Dim myPicture As New PictureBox 
     Dim container As New Panel 

     'set the properties of the new controls 
     myLabel.Text = MovieRow("movieName") 
     myLabel.AutoSize = True 
     myLabel.Location = New System.Drawing.Point(30, 110) 
     With myPicture 
      .Image = Image.FromFile(MovieRow("moviePhoto")) 
      .Tag = MovieRow("ID") 
      .Size = New System.Drawing.Size(100, 100) 
      .SizeMode = PictureBoxSizeMode.StretchImage 
      .Location = New System.Drawing.Point(2, 2) 
      .Cursor = Cursors.Hand 
     End With 

     'here we add the controls to a layout panel to 
     'manage the positioning of the controls 
     With container 
      .Dock = DockStyle.Fill 
      .Margin = New System.Windows.Forms.Padding(0) 
      .Controls.Add(myPicture) 
      .Controls.Add(myLabel) 
     End With 


     With tablePanel.Controls 

      .Add(container) 

     End With 

     'here we add a handler for the picture boxs click event 
     AddHandler myPicture.Click, AddressOf MyPictureClickEvent 
    Next 

    Me.Controls.Add(tablePanel) 
End Sub 

提前感謝！

Answer 1

我得到了一個答案。爲了設置行的高度，所有你需要做的就是要補充一點：添加Panel到TableLayoutPanel

一個片段後

tablePanel.RowStyles.Add(New RowStyle(SizeType.Absolute, 150)) 

你應該加入這一行：

 '.... THE CODE ABOVE CAN BE SEEN IN THE QUESTION POST 
     With container 
      .Dock = DockStyle.Fill 
      .Margin = New System.Windows.Forms.Padding(0) 
      .Controls.Add(myPicture) 
      .Controls.Add(myLabel) 
     End With 


     With tablePanel.Controls 

      .Add(container) 

     End With 
     tablePanel.RowStyles.Add(New RowStyle(SizeType.Absolute, 150)) 
     'here we add a handler for the picture boxs click event 
     AddHandler myPicture.Click, AddressOf MyPictureClickEvent 
    Next 

    Me.Controls.Add(tablePanel) 
End Sub 

希望幫助別人

Answer 2

試試這個：

For Each RS As RowStyle In tablePanel.RowStyles  
    RS.SizeType = SizeType.Absolute   
    RS.Height = 180  
Next