Question

方案

我需要使用KryptonSeparator帮助。

我想使用下图中的分隔符来调整左右控件的宽度：

enter image description here

问题

问题是，当我尝试将分隔符向左移动时，它会产生非常令人不安的视觉效果，当我将分隔符向右移动时，或多或少发生相同的事情，但是向左移动更加明显（太可怕了）：

enter image description here

我认为我没有正确使用KryptonSeparator的eventargs，因为当我将分隔符向左移动时，我使用分隔符的宽度而不是事件数据来计算（因为我没有知道如何正确地做到这一点。

问题

我应该在代码中做些什么修改来修复调整大小问题？

代码

左侧和右侧控件都分配了MinimumSize属性，如果达到MinimumSize.Width，我正在尝试停止调整大小。

这是源代码，在VB.Net中：

''' <summary>
''' Handles the SplitterMoving event of the KryptonSeparator1 control.
''' </summary>
Private Sub KryptonSeparator1_SplitterMoving(ByVal sender As Object, ByVal e As SplitterCancelEventArgs) _
Handles KryptonSeparator1.SplitterMoving

    Dim separator As KryptonSeparator = DirectCast(sender, KryptonSeparator)
    Dim leftCtrl As Control = Control1
    Dim rightCtrl As Control = Control2

    If (e.MouseCursorX > 0) _
    AndAlso Not ((rightCtrl.Size.Width - e.MouseCursorX) < rightCtrl.MinimumSize.Width) Then

        separator.Location = New Point(separator.Location.X + e.MouseCursorX, separator.Location.Y)
        leftCtrl.Width += e.MouseCursorX
        rightCtrl.Width -= e.MouseCursorX
        rightCtrl.Left = separator.Right

    ElseIf (e.MouseCursorX < 0) _
    AndAlso Not ((leftCtrl.Size.Width + e.MouseCursorX - separator.Width) < leftCtrl.MinimumSize.Width) Then

        separator.Location = New Point(separator.Location.X - separator.Width, separator.Location.Y)
        leftCtrl.Width -= separator.Width
        rightCtrl.Width += separator.Width
        rightCtrl.Left = separator.Right

    End If

End Sub

这是C＃中的源代码：

/// Handles the SplitterMoving event of the KryptonSeparator1 control.
/// </summary>
private void KryptonSeparator1_SplitterMoving(object sender, SplitterCancelEventArgs e)
{
    KryptonSeparator separator = (KryptonSeparator)sender;
    FolderView leftCtrl = this.FolderView_Files;
    KryptonListBox rightCtrl = this.KryptonListBox_Files;

    if ((e.MouseCursorX > 0) && !((rightCtrl.Size.Width - e.MouseCursorX) < rightCtrl.MinimumSize.Width)) {
        separator.Location = new Point(separator.Location.X + e.MouseCursorX, separator.Location.Y);
        leftCtrl.Width += e.MouseCursorX;
        rightCtrl.Width -= e.MouseCursorX;
        rightCtrl.Left = separator.Right;


    } else if ((e.MouseCursorX < 0) && !((leftCtrl.Size.Width + e.MouseCursorX - separator.Width) < leftCtrl.MinimumSize.Width)) {
        separator.Location = new Point(separator.Location.X - separator.Width, separator.Location.Y);
        leftCtrl.Width -= separator.Width;
        rightCtrl.Width += separator.Width;
        rightCtrl.Left = separator.Right;

    }

}

//=======================================================
//Service provided by Telerik (www.telerik.com)
//=======================================================

更新

我已更新上面的代码以简化阅读，我正在分享这个新视频，您可以看到设计问题：

www.youtube.com/watch?v=-MhmyE3MZX0

Answer 1

首先，您需要在拖动，mouse down event of splitter control和total width三个控件之前获取用户点击的位置：

Private mouse_Down As Point //you can use an integer also because y coordinate remains the same
Private totalWidth As Integer

//mouse down event
mouse_Down.X = e.MouseCursorX
totalWidth = seperator.Width + LeftControl.Width + RightControl.Width

Private Sub KryptonSeparator1_SplitterMoving(ByVal sender As Object, ByVal e As SplitterCancelEventArgs) Handles KryptonSeparator1.SplitterMoving

    Dim separator As KryptonSeparator = DirectCast(sender, KryptonSeparator)
    Dim leftCtrl As Control = Control1
    Dim rightCtrl As Control = Control2
    Dim leftWidth, rightWidth As Integer

    leftWidth = leftCtrl.Width + (e.MouseCursorX - mouse_Down.X)
    rightWidth = rightCtrl.Width - (e.MouseCursorX - mouse_Down.X)

    If leftWidth <= leftCtrl.MinimumSize.Width Then
        leftCtrl.Width = leftCtrl.MinimumSize.Width
        separator.Left = leftCtrl.Left + leftCtrl.MinimumSize.Width
        rightCtrl.Left = leftCtrl.Left + leftCtrl.MinimumSize.Width + separator.Width
        rightCtrl.Width = totalWidth - leftCtrl.MinimumSize.Width - separator.Width

        Return
    End If

    If rightWidth <= rightCtrl.MinimumSize.Width Then
        leftCtrl.Width = totalWidth - rightCtrl.MinimumSize.Width - separator.Width
        separator.Left = leftCtrl.Left + leftCtrl.Width
        rightCtrl.Left = leftCtrl.Left + leftCtrl.Width + separator.Width
        rightCtrl.Width = rightCtrl.MinimumSize.Width

        Return
    End If

    separator.Left += (e.MouseCursorX - mouse_Down.X)
    leftCtrl.Width = leftWidth
    rightCtrl.Width = rightWidth
    rightCtrl.Left = leftCtrl.Left + leftWidth + separator.Width

End Sub

修改

试试这个：

//mouse down event //mouse_Down.X = e.MouseCursorX mouse_Down.X = MousePosition.X mouse_Down.Y = MousePosition.Y mouse_Down = seperator.PointToClient(mouse_Down) totalWidth = seperator.Width + LeftControl.Width + RightControl.Width

和SplitterMoving：

Dim leftWidth, rightWidth As Integer Dim pnt As Point pnt.X = MousePosition.X pnt.Y = MousePosition.Y pnt = seperator.PointToClient(pnt) //replace e.MouseCursorX with pnt.X ...

编辑2

调整两个窗口大小的逻辑有两个小错误：

使用e.MouseCursorX确定调整大小的方向（左或右）是错误的，例如您将光标移动到左（左方向） ，保留在分隔符内，e.MouseCursorX仍然正面，因此您正在调整右（当然e.MouseCursorX变为负数）而不是左！

当比较为 false 时，您的代码会检查最小尺寸，但不执行任何操作，这意味着当控件的最终尺寸较小时。当发生这种情况时，您需要实际设置控件的大小，例如，假设最小大小 50 ，控件大小 55 。如果调整大小非常快，则控件的最终大小可能会变为 49 。你的代码什么都不做（比较是假的）和大小该控件仍然 55 而不是将其设置为 50 。

我的解决方案解决了这两种情况。但是，你所说的可怕效果的真正问题不是这两个错误。实际上，当您调整控件的大小时，应用程序的响应速度的方式。更具体地说，当您调整大小并移动 权利时控制（ListBox_Files）。如果拖放少量（1或2）文件并查看结果，则可以自行检查。这是一个巨大的区别。不幸的是，这告诉我你无能为力。您需要更改调整大小的逻辑。两种解决方案：

使用一个控件和自定义绘制所有内容，文本，图标，垂直水平滚动条等。（不推荐！）

做视觉工作室和其他应用程序正在做什么。在释放按钮之前，请勿调整控件的大小。只显示一条垂直线：

KryptonSeparator调整大小问题

1 个答案: