Private Sub Form_Load()
With MSHFlexGrid1
    .FixedCols = 1
    .FixedRows = 1
    .Rows = 4
    .Cols = 6
    .TextMatrix(1, 1) = "a"
    .TextMatrix(1, 2) = "bb"
    .TextMatrix(1, 3) = "ccc"
    .TextMatrix(1, 4) = "dddd"
    .TextMatrix(2, 1) = "a"
    .TextMatrix(2, 2) = "bb"
    .TextMatrix(2, 3) = "sss"
    .TextMatrix(2, 4) = "kkkk"
    .TextMatrix(3, 1) = "a"
    .TextMatrix(3, 2) = "bb"
    .TextMatrix(3, 3) = "cccc"
    .TextMatrix(3, 4) = "bssssb"
End With
end subPrivate Sub MSHFlexGrid1_Click()MSHFlexGrid1.ColSel = 1
Me.MSHFlexGrid1.ColSel = Me.MSHFlexGrid1.Cols - 1
End Sub这样为什么不行啊??总是第一列选不中(不是fix列)。其它的可以选中

解决方案 »

  1.   

    Private Sub Form_Load()
    With MSHFlexGrid1
        .FixedCols = 1
        .FixedRows = 1
        .Rows = 4
        .Cols = 6
        .TextMatrix(1, 1) = "a"
        .TextMatrix(1, 2) = "bb"
        .TextMatrix(1, 3) = "ccc"
        .TextMatrix(1, 4) = "dddd"
        .TextMatrix(2, 1) = "a"
        .TextMatrix(2, 2) = "bb"
        .TextMatrix(2, 3) = "sss"
        .TextMatrix(2, 4) = "kkkk"
        .TextMatrix(3, 1) = "a"
        .TextMatrix(3, 2) = "bb"
        .TextMatrix(3, 3) = "cccc"
        .TextMatrix(3, 4) = "bssssb"
    End With
    End SubPrivate Sub MSHFlexGrid1_Click()MSHFlexGrid1.Col = 0
    Me.MSHFlexGrid1.ColSel = Me.MSHFlexGrid1.Cols - 1
     
    End Sub
      

  2.   

    在mshflexgrid的属性页的通用选项卡上,把选定模式改成“by-Row”
      

  3.   

    在mshflexgrid的属性页的通用选项卡上,把选定模式改成“by-Row”