分器的高度和每个窗格允许的最小高度。
下面拆分器的工作方式：在用户开始拖到拆分器时，拆分器的新位置由鼠标光标的位置所决定。这由MouseMove事件过程实现。在MouseMove事件过程中首先一个叫做ChangePaneSizes的过程被调用；该过程使用新的拆分器位置相应地更改两个窗格的尺寸。任何一个窗格的尺寸都不能小于指定的最小尺寸。
下面的完成这一动作的代码。你可以创建一个 VB 程序亲自试一下这段代码，首先在窗体上放置两个 Picture Box 控件，分别命名为pbTop和pbBottom；然后，将这段代码粘贴到窗体的代码窗口中。这个例子展示的是一个水平拆分器分隔两个窗格，但是你可以对它进行修改，从而得到其它的窗格排列样式。
Option Explicit
Const SPLITTER_HEIGHT = 40
Const MIN_PANE_HEIGHT = 400
' The percentage of the window height
' occupied by the top pane.
Dim TopPanePercent As Single
' True when the splitter is being drag页码：[1] [2] [3] [4] [5] [6] 第2页、共6页 |
