FlowLayoutPanel控件



最近用到了FlowLayoutPanel控件。感觉功能很强大~

整理记录如下：

msdn的描述是这样的：FlowLayoutPanel控件沿着水平或垂直流方向排列其内容。其内容可以从一行换到下一行。或者，还可以对它的内容进行剪裁，而不是进行换行。

可以通过设置FlowDirection 属性的值来指定流向。在从右向左（RTL）的布局中，FlowLayoutPanel 控件会相应地反转其流向。还可以通过设置WrapContents 属性来指定是对FlowLayoutPanel 控件的内容进行换行还是裁剪。

任何Windows窗体控件（包括FlowLayoutPanel 的其他实例）都可以是FlowLayoutPanel 控件的子级。使用此功能，可以构造在运行时能够根据窗体的尺寸进行相应调整的复杂布局。

子控件的停靠和锚定行为不同于其他容器控件中的行为。停靠和锚定都是相对于流方向上的最大控件而言的。

FlowLayoutPanel 是流式布局面板。可以实现动态的添加控件，实现响应式的布局排版。

①向FlowLayoutPanel 中添加控件

[vb] view plaincopyprint?

1. Dim picBox As PictureBox = New PictureBox  
2. picBox.Image = Image.FromFile("C:\abc.bmp")  
3. picBox.Name = N1  
4. picBox.SizeMode = PictureBoxSizeMode.AutoSize  
5. FlowLayoutPanel1.Controls.Add(picBox)  
6.   
7. FlowLayoutPanel1.SetFlowBreak(picBox, True)  
8.   
9. Dim labelN As Label = New Label  
10. labelN.Text = ""  
11. labelN.Height = 30  
12. labelN.Width = 120  
13. labelN.TextAlign = ContentAlignment.MiddleLeft  
14. labelN.Name = "labelN"  
15. labelN.ForeColor = Color.Black  
16. FlowLayoutPanel1.Controls.Add(labelN)  

Dim picBox As PictureBox = New PictureBoxpicBox.Image = Image.FromFile("C:\abc.bmp")picBox.Name = N1picBox.SizeMode = PictureBoxSizeMode.AutoSizeFlowLayoutPanel1.Controls.Add(picBox)FlowLayoutPanel1.SetFlowBreak(picBox, True)Dim labelN As Label = New LabellabelN.Text = ""labelN.Height = 30labelN.Width = 120labelN.TextAlign = ContentAlignment.MiddleLeftlabelN.Name = "labelN"labelN.ForeColor = Color.BlackFlowLayoutPanel1.Controls.Add(labelN)

[vb] view plaincopyprint?

1. FlowLayoutPanel1.SetFlowBreak(picBox, True)  

FlowLayoutPanel1.SetFlowBreak(picBox, True)

是中断流进行换行。

添加label ，且label的text为空，设置label的宽高，是为了对控件进行排版。对齐显示。

②为子控件绑定事件

[vb] view plaincopyprint?

1. Dim buttonN As Button = New Button  
2. buttonN.Name = "Q_ButtonN"  
3. buttonN.BackColor = Color.Red  
4. buttonN.Text = "XXXXXXXX"  
5. buttonN.Width = 55  
6. AddHandler buttonN.Click, AddressOf pic_DClick  
7. FlowLayoutPanel1.Controls.Add(buttonN)  
8. FlowLayoutPanel1.SetFlowBreak(buttonN, True)  

Dim buttonN As Button = New ButtonbuttonN.Name = "Q_ButtonN"buttonN.BackColor = Color.RedbuttonN.Text = "XXXXXXXX"buttonN.Width = 55AddHandler buttonN.Click, AddressOf pic_DClickFlowLayoutPanel1.Controls.Add(buttonN)FlowLayoutPanel1.SetFlowBreak(buttonN, True)

点击FlowLayoutPanel中添加的buttonN控件的事件

[vb] view plaincopyprint?

1. Private Sub pic_DClick(sender As Object, e As EventArgs)  
2.     For i = 1 To Me.FlowLayoutPanel1.Controls.Count - 1  
3.         If Me.FlowLayoutPanel1.Controls(i).Name = "Q_ButtonN2" Then  
4.             Me.FlowLayoutPanel1.Controls(i).BackColor = Color.Gainsboro  
5.         End If  
6.     Next  
7. End Sub  

Private Sub pic_DClick(sender As Object, e As EventArgs)    For i = 1 To Me.FlowLayoutPanel1.Controls.Count - 1        If Me.FlowLayoutPanel1.Controls(i).Name = "Q_ButtonN2" Then            Me.FlowLayoutPanel1.Controls(i).BackColor = Color.Gainsboro        End If    NextEnd Sub

通过遍历Me.FlowLayoutPanel1.Controls(i)，可以在添加的众多控件中找到你想要的。

FlowLayoutPanel控件不直接支持MouseWheel事件，即滚动滚轮也不会有响应。

我通过在FlowLayoutPanel 的子控件中添加焦点，来实现滚轮滚动

[vb] view plaincopyprint?

1. buttonN.Focus()  

参考于http://blog.csdn.net/u013162930/article/details/48316613