关于窗体分隔问题!请高手指点!~(在线等)

Question

窗体分左右两栏,左边放treeview控件(显示树目录),右边放listview控件(显示响应数据),我希望做个分隔条,可以拖动,左右两边宽度随之调整!
有代码例子更好!

Answer 1

http://expert.csdn.net/Expert/TopicView1.asp?id=2911839

Answer 2

用vb6生成应用程序向导生成窗口就行啦。
具体方法：新建工程/选择 vb 应用程序向导 / 选择 资源管理器样式 。

Answer 3

Option ExplicitDim m_oSpliter As New CSimpleSplitterPrivate Sub Form_Load()
    With m_oSpliter
        .Attach TreeView1, ListView1, Me
        .IsVertical = True
        .SplitterBarColor = RGB(128, 255, 80)
    End With
End SubPrivate Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    m_oSpliter.MouseUp Button, Shift, X, Y
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    m_oSpliter.MouseMove Button, Shift, X, Y
End Sub
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    m_oSpliter.MouseDown Button, Shift, X, Y
End SubPrivate Sub Form_Resize()
    m_oSpliter.Resize
End Sub