Блог

Это, наверное, самая крутая и раздражающая ошибка, с которой я когда-либо сталкивался.

У меня есть панель компоновки потока с listview внутри нее.

ListView имеет размер 500, FlowLayoutPanel имеет размер 800

Когда пользователь нажимает кнопку, создается новый элемент управления размером 400

размер панели FlowLayoutPanel увеличивается до 900

Размер ListView уменьшается до размера панели flowlayoutpanel (900) — новый элемент управления (400) минус 20 (запас)

Элемент управления добавляется в панель FlowLayoutPanel

Проблема в том, что когда у пользователя в настройках Windows для размера шрифта установлено значение Medium вместо amsller, математика запутывается и блокирует элемент управления note за listview.

Кто-нибудь еще сталкивался с этой проблемой?

 Dim noteControl As New AddNote(CurrentEventID, "Followup", False, ConnectionID)

    noteControl.Size = New Size(500, flpMain.Height - 2)

    noteControl.cmbNoteType.Visible = False
    noteControl.Anchor = AnchorStyles.Right

    ListView1.Size = New Size(flpMain.Size.Width - noteControl.Size.Width - 45, ListView1.Size.Height)

    flpMain.Controls.Add(noteControl)

    flpMain.Width = Me.Width - 10

    For Each mycontrol As Control In flpMain.Controls
        If mycontrol.Name.ToString = "AddNote" Then

            y = CType(mycontrol, AddNote)
            mycontrol = y

            ListView1.Width = flpMain.Width - y.Width - 45

        End If
    Next

    If flpMain.Controls.Count = 1 Then

        ListView1.Width = flpMain.Width - 10

    End If

    Dim columns As Integer = ListView1.Columns.Count

    ListView1.Columns(columns - 1).Width = ListView1.Width

    For index = 0 To columns - 2

        ListView1.Columns(columns - 1).Width = ListView1.Columns(columns - 1).Width - ListView1.Columns(index).Width

    Next