C# と VB.NET の質問掲示板

■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

■No86677 (大阪 さん) に返信
> ■No86675 (大阪 さん) に返信
訂正

　　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(Math.Min(_max - _VScrollBar.Value + 1, realH / (m + btn.Height)))
    End Sub