VSFlexGrid的列设为单选框等有关问题
VSFlexGrid的列设为单选框等问题
见论坛有：
VSFlexGrid.Cell(flexcpChecked, i, 0) = flexUnchecked
来设置某列为多选框！
请问：
1.如何设置第 5 列为单选框？（每次只能选择一行，而以上代码可以多选！）
2.VSFlexGrid初始化时为10行，读取数据超过10时自动增加行，当数据不够10行时，表格仍为10行，但数据只显示前几行中，则如何获取有效数据行数？（即实际数据填充的行数？）
谢谢！
------解决方案--------------------
第一个问题：VSFlexGrid.Cell(flexcpChecked, row, col) = flexUnchecked,就是这样，你改成VSFlexGrid.Cell(flexcpChecked, row, 5) = flexUnchecked,只是第五列有单选框，试就知道了
第二个问题：楼主是想知道特定扩展名的文件的数量是吧
Private Sub Drive1_Change()
File1.Pattern = "*.exe "
MsgBox File1.ListCount
End Sub
得到数量就是VSFlexGrid的行数，试一下就明白了
------解决方案--------------------
可以换种方法解决这一问题，做到只能单选可以试一下以下代码：
用户只能从某一列中选择一个。
Private Sub Form_Load()
Dim intI As Integer
With VSFG
.Cols = 1 '列数
.Rows = 11 '行数
.FixedCols = 0
.FixedRows = 1
'界面
.BorderStyle = flexBorderFlat
.GridLines = flexGridFlat
.BackColorBkg = .BackColor
.SheetBorder = .BackColor
.ExtendLastCol = True
.SelectionMode = flexSelectionByRow
.AllowSelection = False
.FocusRect = flexFocusNone
.AllowUserResizing = flexResizeColumns
.Ellipsis = flexEllipsisEnd
.HighLight = flexHighlightAlways
.ScrollTrack = True
.AutoSearch = flexSearchFromCursor
'设置列头
.TextMatrix(0, 0) = "状态 "
For intI = 1 To 10
.TextMatrix(intI, 0) = "是否操作 "
Next
.Cell(flexcpChecked, .FixedRows, .FixedCols, .Rows - 1, .FixedCols) = flexUnchecked
End With
End Sub
Private Sub VSFG_Click()
Dim i As Integer
If VSFG.Cell(flexcpChecked, VSFG.Row, 0) = flexUnchecked Then
VSFG.Cell(flexcpChecked, VSFG.Row, 0) = flexChecked
KeepUnChecked (VSFG.Row)
End If
End Sub
Private Sub KeepUnChecked(ByVal SelectRow As Integer)
Dim i As Integer
For i = 1 To 10
If i <> SelectRow Then
VSFG.Cell(flexcpChecked, i, 0) = flexUnchecked
End If
Next
End Sub
见论坛有：
VSFlexGrid.Cell(flexcpChecked, i, 0) = flexUnchecked
来设置某列为多选框！
请问：
1.如何设置第 5 列为单选框？（每次只能选择一行，而以上代码可以多选！）
2.VSFlexGrid初始化时为10行，读取数据超过10时自动增加行，当数据不够10行时，表格仍为10行，但数据只显示前几行中，则如何获取有效数据行数？（即实际数据填充的行数？）
谢谢！
------解决方案--------------------
第一个问题：VSFlexGrid.Cell(flexcpChecked, row, col) = flexUnchecked,就是这样，你改成VSFlexGrid.Cell(flexcpChecked, row, 5) = flexUnchecked,只是第五列有单选框，试就知道了
第二个问题：楼主是想知道特定扩展名的文件的数量是吧
Private Sub Drive1_Change()
File1.Pattern = "*.exe "
MsgBox File1.ListCount
End Sub
得到数量就是VSFlexGrid的行数，试一下就明白了
------解决方案--------------------
可以换种方法解决这一问题，做到只能单选可以试一下以下代码：
用户只能从某一列中选择一个。
Private Sub Form_Load()
Dim intI As Integer
With VSFG
.Cols = 1 '列数
.Rows = 11 '行数
.FixedCols = 0
.FixedRows = 1
'界面
.BorderStyle = flexBorderFlat
.GridLines = flexGridFlat
.BackColorBkg = .BackColor
.SheetBorder = .BackColor
.ExtendLastCol = True
.SelectionMode = flexSelectionByRow
.AllowSelection = False
.FocusRect = flexFocusNone
.AllowUserResizing = flexResizeColumns
.Ellipsis = flexEllipsisEnd
.HighLight = flexHighlightAlways
.ScrollTrack = True
.AutoSearch = flexSearchFromCursor
'设置列头
.TextMatrix(0, 0) = "状态 "
For intI = 1 To 10
.TextMatrix(intI, 0) = "是否操作 "
Next
.Cell(flexcpChecked, .FixedRows, .FixedCols, .Rows - 1, .FixedCols) = flexUnchecked
End With
End Sub
Private Sub VSFG_Click()
Dim i As Integer
If VSFG.Cell(flexcpChecked, VSFG.Row, 0) = flexUnchecked Then
VSFG.Cell(flexcpChecked, VSFG.Row, 0) = flexChecked
KeepUnChecked (VSFG.Row)
End If
End Sub
Private Sub KeepUnChecked(ByVal SelectRow As Integer)
Dim i As Integer
For i = 1 To 10
If i <> SelectRow Then
VSFG.Cell(flexcpChecked, i, 0) = flexUnchecked
End If
Next
End Sub