表单分隔条示例
相关帖子：相关帖子：http://bbs.csdn.net/topics/390255831
根据不同分辨率自行调整大小、位置可以用 vfp9.0 的 anchor属性，如果不是 vfp9.0，就需要自己写代码实现
左边的树和右边的的容器中间可以左右拖动（分隔条），用 vfp 代码即可。
下面是例子代码，将以下代码粘帖到一个prg中后运行，然后左右拖动分隔条，也可最大化或手动改变表单大小。
**************************************************
*!* 作者：十豆三
*!* 日期：2012-10-25
*!* vfp版本：vfp9.0(SP2 7423)
*!* 操作系统：Windows XP(SP3)
*!* 功能：表单分隔条示例
**************************************************
Public oform1
oform1=Newobject("form1")
oform1.Show
Return
Define Class form1As Form
Top = 6
Left = 10
Height = 403
Width = 448
DoCreate = .T.
Caption = "by:十豆三(表单分隔条示例)"
Name = "Form1"
Add Objectcontainer1As Container With;
Anchor = 7, ;
Top = 2, ;
Left = 2, ;
Width = 133, ;
Height = 399, ;
SpecialEffect = 1, ;
BackColor =Rgb(200,200,255), ;
Name = "Container1"
Add Object list1As ListBox With;
Anchor = 14, ;
Height = 63, ;
Left = 143, ;
Top = 338, ;
Width = 301, ;
ItemBackColor =Rgb(150,255,150), ;
Themes = .F., ;
Name = "List1"
Add Object grid1As Grid With;
Anchor = 15, ;
Height = 332, ;
Left = 143, ;
Top = 2, ;
Width = 303, ;
BackColor =Rgb(255,200,200), ;
Name = "Grid1"
Add Object shape1As Shape With;
Top = -12, ;
Left = 136, ;
Height = 448, ;
Width = 7, ;
Anchor = 7, ;
BorderStyle = 1, ;
MousePointer = 9, ;
SpecialEffect = 0, ;
BackColor =Rgb(0,255,255), ;
Name = "Shape1"
Procedureshape1.Init
This.Move(This.Left,-10,This.Width,Thisform.Height+20)
Endproc
Procedureshape1.MouseMove
Lparameters nButton, nShift, nXCoord, nYCoord&&系统代码
If (nButton=1 AndThisform.CurrentX#0) And (Thisform.CurrentX<>nXCoord) AndBetween(nXCoord,40,Thisform.Width-40)&& nButton=1 只允许鼠标左键移动,Between 是移动范围
This.Left=This.Left+(nXCoord-Thisform.CurrentX)
Thisform.Container1.Width=Thisform.Container1.Width+(nXCoord-Thisform.CurrentX)
Thisform.Grid1.Move(Thisform.Grid1.Left+(nXCoord-Thisform.CurrentX),Thisform.Grid1.Top,Thisform.Grid1.Width-(nXCoord-Thisform.CurrentX))
Thisform.List1.Move(Thisform.List1.Left+(nXCoord-Thisform.CurrentX),Thisform.List1.Top,Thisform.List1.Width-(nXCoord-Thisform.CurrentX))
Thisform.CurrentX=nXCoord
Endif
Endproc
Procedureshape1.MouseDown
Lparameters nButton, nShift, nXCoord, nYCoord&&系统代码
If nButton=1&& 只允许鼠标左键移动
Thisform.CurrentX=nXCoord&& 只记录水平位置，也就是只能左右移动。
Endif
Endproc
Enddefine
