[分享VSFlexgrid控件的用法 VSflexarray相近

fang5852

vsflexGrid 如何只能让某些特定列可编辑

'修改前看到是否需要修改

Private Sub Grid_BeforeEdit(ByVal Row As Long, ByVal Col As Long, Cancel As Boolean)

'On Error GoTo err

 

    If UiI10101.valueInt > 2 Then           '*************定义允许修改的状态，需修改

        Cancel = True

        Exit Sub

    End If

    If Grid.Col = Grid.cols - 8 Or Grid.Col = Grid.cols - 7 Then        '*************定义可以修改的列，需修改

        Cancel = False      '使其有效

    Else

        Cancel = True       '使其无效为真

    End If

    Exit Sub

Err:

    RaiseErr "frmY005-Grid_MouseDown()"

End Sub

fang5852

删除连续选择的记录

If VSFlexGrid1.Row <> -1 And VSFlexGrid1.RowSel <> -1 Then

   msg = MsgBox("你真的要删除这些记录吗？", vbYesNo + vbQuestion)

   Select Case msg

    Case vbYes

      For I = VSFlexGrid1.Row To VSFlexGrid1.RowSel

        Str = Str + VSFlexGrid1.TextMatrix(I, 1) + ","

      Next

      Str = Mid(Str, 1, Len(Str) - 1)

      Cmd_Zl.ActiveConnection = Cnn_Zl

      Cmd_Zl.CommandText = "delete from zlk where 序号 in (" + Str + ")"

      Cmd_Zl.Execute

      Set Cmd_Zl = Nothing

    Case vbNo

       Command6.Enabled = True

       Rst_Zl.Close

       Exit Sub

    End Select

Else

    MsgBox "请选择您要删除的记录！！！", vbExclamation

    Exit Sub

 End If

fang5852

VSFlexGrid 常用属性或方法：

.FixedRows = 1                            '固定几行

.FixedCols = 1                            '固定几列

.Editable = True                          '允许修改

.AllowUserResizing = flexResizeBoth       '可调整行/列

.FocusRect = flexFocusNone                '无虚框

.SelectionMode = flexSelectionListBox     '焦点选中样式

.BackColor = RGB(255, 255, 255)           '单元背景色

.BackColorSel = vbBlue                    '单元选择色

.BackColorFixed = RGB(208, 192, 160)      '固定单元色

.BackColorAlternate = RGB(255, 250, 230)  '间隔行背景色

.GridColor = RGB(245, 240, 210)           '单元线条色

.ForeColor = RGB(0, 0, 0)                 '单元前景色(字符色)

.RowHeightMin = 260                       '最小行高

.RowHeightMax = 800                       '最大行高

.ColHeightMin = 50                        '最小列宽

.ColHeightMax = 3000                      '最大列宽

.ColWidth(Col) = 1000                     '指定列宽

.RowHeight(Row) = 260                     '指定行高

.TextMatrix(Row,Col) = "Text"             '指定单元字符

.Text = "Text"                            '选定单元字符

.MergeCol(Col) = True                     '允许合并列

.MergeRow(Row) = True                     '允许合并行

.MergeCells = 0|1|2|3|4|5|6               '合并选项

.Cell(选项准则, Row1, Col1, Row2, Col2)   '选择部分的相应准则值

.EditCell                                 '当移动到当前单元时自动选择

.EditSelStart                             '移动到单元时的光标位置

.MousePointer                             '设置对象的鼠标指针样式 O.A = 0 到 15|99

anjing572

我的机子上没有,我用的也是2003,完全安装的??附加控件-Componentone Flexgrid 8.0

[此贴子已经被作者于2006-12-31 23:59:13编辑过]

wawjx_za

做得不错

fang5852

我不知道怎么上传这个控件呀？告诉我，我传呀!

cinlo

偶的机器上也没有这个控件,偶也是OFFICE2003啊.

fanrong88

学习

z-xw

怎么后来没有人讨论这个控件了，大概是因为excel本身就是更强大的表格吧，这个控件在VB中用的较多，不过在现在的7.1版在execel中依然有妙用啊

quiner

gggggggggggggggggggggggggggggggsssssssssssssssssssssss