VerticalScroll.visible doesn't seem to be working on autoscroll

Connor Frayne 25

Hello,

My Flow layout panel has panels in it that stretch the entire flow panel, the problem is that it has autoscroll on(and I want to keep it on), and when there'ss enough panels to get a vertical scroll bar, the ends of the panels are cut out and it looks bad. I tried using this code to account for that

Container.Size = New Size(Form1.FlowLayoutPanel1.Width - Form1.FlowLayoutPanel1.Margin.Right * 3, 75) If Form1.FlowLayoutPanel1.VerticalScroll.Visible Then Container.Size = New Size((Form1.FlowLayoutPanel1.Width - Form1.FlowLayoutPanel1.Margin.Right * 3) - SystemInformation.VerticalScrollBarWidth, 75) End If

But VerticalScroll.Visible doesn't seem to be picking up autoscroll, any suggestions?

Thank you,

Connor Frayne

1 answer

Michael Taylor 54,401 Reputation points

2024-07-12T20:29:37.8133333+00:00

Please provide the actual designer code you're using for the UI. At this point it sounds like WPF, XAML or MAUI but it isn't clear. Nevertheless giving us the designer code (please use the Inline Code option so we can easily copy/paste it) so we can see how you have things configured. It would be even better if you could provide a link to a working example.
Please sign in to rate this answer.
Connor Frayne 25 Reputation points

2024-07-15T12:27:29.26+00:00

Hi @Michael Tayler ,
I've sent my code below, It's written in vb.net on the 8.0 framework.

Thank you,

Connor Frayne

Imports System.Runtime

Public Class Form1

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

Dim ProfPanel1 As New Panel

Dim ProfPanel2 As New Panel

Dim ProfPanel3 As New Panel

Dim ProfPanel4 As New Panel

Dim ProfPanel5 As New Panel

Dim Profile1 = New ProfPanel(ProfPanel1, 1, "Master", "Energized", "Floor - 1", "Master to FID 1", Nothing)

Dim Profile2 = New ProfPanel(ProfPanel2, 2, "Master", "Energized", "Floor - 2", "Master to FID 1", Nothing)

Dim Profile3 = New ProfPanel(ProfPanel3, 3, "Master", "Energized", "Floor - 3", "Master to FID 1", Nothing)

Dim Profile4 = New ProfPanel(ProfPanel4, 4, "Master", "Energized", "Floor - 4", "Master to FID 1", Nothing)

Dim Profile5 = New ProfPanel(ProfPanel5, 5, "Master", "Energized", "Floor - 5", "Master to FID 1", Nothing)

FlowLayoutPanel1.Controls.Add(Profile1.Container)

FlowLayoutPanel1.Controls.Add(Profile2.Container)

FlowLayoutPanel1.Controls.Add(Profile3.Container)

FlowLayoutPanel1.Controls.Add(Profile4.Container)

FlowLayoutPanel1.Controls.Add(Profile5.Container)

End Sub

End Class

Public Class ProfPanel

Public Property Container As Panel

Public Property MasterNum As Integer

Public Property Name As String

Public Property State As String

Public Property Location As String

Public Property ProfInfo As String

Public Property FaultInfo As String

Public Sub New(ByRef new_Panel As Panel, ByVal new_MasterNum As Integer, ByVal new_Name As String, ByVal new_State As String,

ByVal new_Location As String, ByVal new_ProfInfo As String, ByVal new_FaultInfo As String)

MasterNum = new_MasterNum

Name = new_Name

State = new_State

Location = new_Location

ProfInfo = new_ProfInfo

FaultInfo = new_FaultInfo

Container = new_Panel

Container.Size = New Size(Form1.FlowLayoutPanel1.Width - Form1.FlowLayoutPanel1.Margin.Right * 3, 75)

If Form1.FlowLayoutPanel1.VerticalScroll.Visible Then

Container.Size = New Size((Form1.FlowLayoutPanel1.Width - Form1.FlowLayoutPanel1.Margin.Right * 3) - SystemInformation.VerticalScrollBarWidth, 75)

End If

Container.BorderStyle = BorderStyle.FixedSingle

End Sub

End Class

Connor Frayne 25 Reputation points

2024-07-15T14:24:22.2666667+00:00

Nevermind, Problem resolved
Thank you,

Connor Frayne
Sign in to comment

Use comments to ask for clarification, additional information, or improvements to the question.

Share via

VerticalScroll.visible doesn't seem to be working on autoscroll

1 answer

Your answer