拆分多部分的! 象这样:在child里面包含vbsplitterPrivate Sub Form_Load() vbSplitter1.Orientation = vbSplitVertical
Set vbSplitter1.Child1 = List1 Set vbSplitter1.Child2 = vbSplitter2 vbSplitter2.Orientation = vbSplitHorizontal Set vbSplitter2.Child1 = List2 Set vbSplitter2.Child2 = List3 vbSplitter1.ForceResize
End Sub
拆分多部分的! 象这样:在child里面包含vbsplitterPrivate Sub Form_Load() vbSplitter1.Orientation = vbSplitVertical
Set vbSplitter1.Child1 = List1 Set vbSplitter1.Child2 = vbSplitter2 vbSplitter2.Orientation = vbSplitHorizontal Set vbSplitter2.Child1 = List2 Set vbSplitter2.Child2 = List3 vbSplitter1.ForceResize
http://www.csdn.net/cnshare/soft/16/16015.shtm
象这样:在child里面包含vbsplitterPrivate Sub Form_Load() vbSplitter1.Orientation = vbSplitVertical
Set vbSplitter1.Child1 = List1
Set vbSplitter1.Child2 = vbSplitter2
vbSplitter2.Orientation = vbSplitHorizontal Set vbSplitter2.Child1 = List2
Set vbSplitter2.Child2 = List3
vbSplitter1.ForceResize
End Sub
象这样:在child里面包含vbsplitterPrivate Sub Form_Load() vbSplitter1.Orientation = vbSplitVertical
Set vbSplitter1.Child1 = List1
Set vbSplitter1.Child2 = vbSplitter2
vbSplitter2.Orientation = vbSplitHorizontal Set vbSplitter2.Child1 = List2
Set vbSplitter2.Child2 = List3
vbSplitter1.ForceResize
End Sub