VSflexgrid使用说明修订版本.docx

1,如果想把某一列设置成下拉匡中选择，只能写成 grid.colcombolist(1) = a|b|c 吗？能不能把下 拉框中的数据和 recordset 或数组绑定。 答案:grid.colcombolist(1)＝grid.buildcombolist(rs!abc) 2,怎样限定第三列可编辑,其他列不可编辑? 答案: Private Sub fg_BeforeEdit(ByVal Row As Long, ByVal Col As Long, Cancel A s Boolean) *******先将设 editable=2 限定不可编辑列,如有 5 列 If Col = 0 Then Cancel = True If Col = 1 Then Cancel = True If Col = 2 Then Cancel = True If Col = 4 Then Cancel = True If Col = 5 Then Cancel = True End Sub 3、怎么获得当前单元个的位置，比如某单元个获得焦点，弹出msgbox(你选的 是第 4 行第 5 列) Answer: Private Sub VSFlexGrid1_Click() Dim a, b As Long a = VSFlexGrid1.Row b = VSFlexGrid1.Col MsgBox 你选的是 a 行 b 列 End Sub 4,对 vsflexgrid 进行编辑的时候，让 vsflexgrid 的某列只能输入数字? Answer: Private Sub CheckData(KeyAscii As Integer) If KeyAscii = 48 And KeyAscii = 57 Then Exit Sub 如果是数字退出 If KeyAscii 8 Then KeyAscii = 0 End Sub Private Sub vsflexgrid_KeyPressEdit(ByVal Row As Long, ByVal Col A s Long, KeyAscii As Integer) If col=1 Then 第一列只能输入数字 CheckData KeyAscii End If End Sub 5,限制某列只能输入数字 Answer: Private Sub fg_KeyPressEdit(ByVal Row As Long, ByVal Col As Long, KeyAs cii As Integer) Dim Numbers As String 允许输入的字符 If fg.Col = 6 Then 第 6 列 Numbers = 1234567890 + Chr(46) + Chr(8) If InStr(Numbers, Chr(KeyAscii)) = 0 Then KeyAscii = 0 End If End If End Sub 6,如何指定一列的输入格式 VSFlexGrid 控件属性方法一览表 VSFlexGrid 控件属性方法一览表(带()为方法) 属性/方法名称 AddItem() 功能 增加一行 示例语法 O.A String[, RowIndex] Aggregate Col2) Align 返回集合合计(总数,平均,等等) O.A = (A,Row1,Col1,Row2, 对象在窗体上的显示位置 O.A = 0|1|2|3|4 AllowBigSelection AllowSelection AllowUserFreezing AllowUserResizing Appearance 设定列头是否整行或整列选择 O.A = True|False 是否可多单元选择 运行时用鼠标冻结行或列 调整(行/列)大小方式 边框平面/凹陷/凸起 O.A = True|False O.A = 0|1|2|3 O.A = 0|1|2|3|4 O.A = 0|1|2 Archive() |1|2|3 ArchiveInfo ineIndex 存储或清除一个二进制文件内容 O.A ArcFileName,FileName,0 返回一个二进制文件信息 O.A ArcFileName,0|1|2|3|4,L AutoReSize AutoSearch AutoSearchDelay AutoSize() 0 AutoSizeMode AutoSizeMouse BackColor 是否自动调整大小设置自动搜索O.A = 是否自动调整大小 设置自动搜索 O.A = 0|1|2 设置 AutoSearch 多少秒