是高手就进来。。。。（我是菜鸟）

Question

我想实现下列效果：
-----------------------------------------------------------------------
                         课程表
---------| ---------------|-----------------------------------------
     星期|   星期一       |     星期二             星期三   
-------- |-------|------- | ---------------------------------------------- 
班级     |1、2   |3、4    | 
---------| ------| -------| ----------------------------------------------
00本（4）|VB     |        |    
         |东109  |        |
         |苗雪兰 |        |
--------------------------------------------------------------------------
我不知道如何设置列和行
用msflexgrid或mshflexgrid实现都可以哪位可以告诉我啊。
不胜感激

Answer 1

如果是做课程表的话，可不可以用.....(不好意思说)....用textbox或者label以控件数组的形式实现？反正行列是固定的，赋值会简单些...要是你嫌难看，那就调用word实现也行，总之我觉得用flexgrid很难实现类似于合并单元格的效果。

Answer 2

用msflexgrid合并单元格，可实现上述效果。
MergeCells: 返回或设置一个值，决定包含相同内容的单元是否应该跨越多行或多列分组在一个单个单元中。
MergeCol、MergeRow：返回或设置一个值，决定哪些行和列可以把它们的内容合并。要使用MergeCells属性，这些属性必须为 True。
使用MergeCells、MergeCol、MergeRow可完成合并单元格，具体可查msdn。

Answer 3

继续CALL叫高手，，，，可否提供例子，我的MSDN用不了

Answer 4

添加msflexgrid名为grd
Private Sub Form_Load()
    grd.WordWrap = True
    grd.Rows = 7: grd.Cols = 6
    grd.FixedRows = 2: grd.FixedCols = 1
    For i = 0 To 5
      grd.FixedAlignment(i) = 4
      grd.ColAlignment(i) = 4
    Next
    grd.RowHeight(0) = TextHeight("A") * 1.5
    grd.RowHeight(1) = TextHeight("A") * 1.5
    For i = 2 To grd.Rows - 1
        grd.RowHeight(i) = TextHeight("A") * 4.5
    Next
    grd.MergeCells = 2
    For i = 0 To 5
        grd.MergeCol(i) = True
    Next
    For i = 0 To grd.Rows - 1
        grd.MergeRow(i) = True
    Next
    grd.Row = 0
    For i = 0 To 5
        grd.Col = i: grd.Text = "课程表"
    Next
    grd.Row = 1
    grd.Col = 0: grd.Text = "班级"
    grd.Col = 1: grd.Text = "星期一"
    grd.Col = 2: grd.Text = "星期二"
    grd.Col = 3: grd.Text = "星期三"
    grd.Col = 4: grd.Text = "星期四"
    grd.Col = 5: grd.Text = "星期五"
    grd.Row = 2
    grd.Col = 0: grd.Text = "00本（4）"
    grd.Col = 1: grd.Text = "VB" & Chr(13) & "东109" & Chr(13) & "苗雪兰"
End Sub具体各个单元格的内容、字体颜色自己再设定。

Answer 5

To zsgzsgzsg(zsg)
你的程序还是有点问题啊就是第一行。。怎么出现两个“课程表”列了呢
希望还有高手继续帮我完善。。
感激

Answer 6

将第三行中的grd.FixedCols = 1 改为grd.FixedCols = 0