请教如何实现上图效果,用什么控件修改什么参数或者需要什么代码,在线等~~~因为不知道这种效果叫什么所以google跟baidu都搜不出来~

解决方案 »

  1.   

    忘记说了如上图中,任务 跟 状态 之间可以拉动,效果就像EXCEL表里可以拉动各列控制长度一样
      

  2.   

    MSFLEXGRID
    设置其中一些属性应该就行了
      

  3.   

    1添加控件:project-->components-->Microsoft FlexGrid Control6.0(sp3)
    2设置MSFlexGrid的属性:
          a.初始化MSFlexGrid各列
          With MSFlexGrid1
            .Rows = 1
            .Cols = 6
            .TextMatrix(0, 0) = "任务"
            .ColWidth(0) = 2200
            .ColAlignment(0) = 1
            .TextMatrix(0, 1) = "状态"
            .ColWidth(1) = 1600
            .ColAlignment(1) = 1
            .TextMatrix(0, 2) = "时长(分钟)"
            .ColWidth(2) = 1600
            .ColAlignment(3) = 1
            .TextMatrix(0, 3) = "开始时刻"
            .ColWidth(3) = 1600
            .ColAlignment(3) = 1
            .TextMatrix(0, 4) = "备注"
            .ColWidth(4) = 1600
            .ColAlignment(4) = 1
            .TextMatrix(0, 5) = "执行结果"
            .ColWidth(5) = 1200
            .ColAlignment(5) = 1
         End With
         b.MSFlexGrid1.DragMode=0(可调整列宽)
      

  4.   

    谢谢Antony110
    那请问listView要怎么设置呢 ?
      

  5.   

    肯定是ListView控件。
    在工程中加入 Microsoft Windows Common Controls 6.0 ,之后会找到这个控件。把控件加入Form,在控件上点右键打开属性窗口,设置查看类型为lvwReport。
    然后在列首页面可以入各个列的名称。其它设置就看你心意了。之后就可以加入项目了。
        Dim objListItem As ListItem
        Set objListItem = Me.ListView1.ListItems.Add(, "aaa", "aaa")
        objListItem.SubItems(1) = "bbb"
        objListItem.SubItems(2) = "ccc"
      

  6.   

    谢谢楼上几位,我暂时先用MSFlexGrid好了,感觉这个好设置些