在MsHFlexGrid中使用了
.MergeCells = 1
.MergeCol(0) = True
就不能实现高亮显示功能。
依据http://topic.csdn.net/t/20060108/15/4504297.html 何时触发自己的ListView的LabelEdit事件?
结论是要实现这一目的,就需要采用API技术了。
EnableScrollBar(ListView1.hWnd, SB_BOTH, ESB_DISABLE_BOTH)
请问各位大侠,你们有何高招。程序摘要如下 Dim hg20593IndexData(117) As Variant
hg20593IndexData(0) = Array(0.25, 10)
hg20593IndexData(1) = Array(0.25, 15)
'..................
With Form1.MSHFlexGrid1
.Rows = EndNum - StartNum + 2
.MergeCells = 1
.MergeCol(0) = True
kk = 0
For ii = StartNum To EndNum
.TextMatrix(ii - StartNum + 1, 0) = Format(hg20593IndexData(ii)(0), "0.00")
.TextMatrix(ii - StartNum + 1, 1) = Format(hg20593IndexData(ii)(1), "0")
Next ii
End With
高亮显示关键语句
Private Sub MSHFlexGrid1_RowColChange()
With MSHFlexGrid1
.SelectionMode = flexSelectionByRow
End With
End Sub
.MergeCells = 1
.MergeCol(0) = True
就不能实现高亮显示功能。
依据http://topic.csdn.net/t/20060108/15/4504297.html 何时触发自己的ListView的LabelEdit事件?
结论是要实现这一目的,就需要采用API技术了。
EnableScrollBar(ListView1.hWnd, SB_BOTH, ESB_DISABLE_BOTH)
请问各位大侠,你们有何高招。程序摘要如下 Dim hg20593IndexData(117) As Variant
hg20593IndexData(0) = Array(0.25, 10)
hg20593IndexData(1) = Array(0.25, 15)
'..................
With Form1.MSHFlexGrid1
.Rows = EndNum - StartNum + 2
.MergeCells = 1
.MergeCol(0) = True
kk = 0
For ii = StartNum To EndNum
.TextMatrix(ii - StartNum + 1, 0) = Format(hg20593IndexData(ii)(0), "0.00")
.TextMatrix(ii - StartNum + 1, 1) = Format(hg20593IndexData(ii)(1), "0")
Next ii
End With
高亮显示关键语句
Private Sub MSHFlexGrid1_RowColChange()
With MSHFlexGrid1
.SelectionMode = flexSelectionByRow
End With
End Sub
请JF-JT