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列)。其它的可以选中
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列)。其它的可以选中
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