| ■No86675 (大阪 さん) に返信
> ちなみに、コンテナに現在、表示されているコントロールの数を得る
> プロパティがあったりしますか?
> 計算で得るにはコンテナやコントロールのパディングやマージンを考慮
> する必要がありますよね。
間違ってるかもしれないけど、以下で一応それらしい値は得られました。
'LoadイベントでAddHandler btn.Click, AddressOf btn_Clickを追加
Private Sub btn_Click(sender As System.Object, e As System.EventArgs)
Dim realH As Integer = FlowLayoutPanel1.Height - FlowLayoutPanel1.Padding.Top - FlowLayoutPanel1.Padding.Bottom
Dim btn As Button = DirectCast(sender, Button)
Dim m As Integer = btn.Margin.Top + btn.Margin.Bottom
MsgBox(FlowLayoutPanel1.Height / (m + btn.Height))
End Sub |