vsflexgrid属性方法全集.doc

VSFlexGrid 属性 方法全集属性/方法名称 功能 示例语法AddItem() 增加一行 O.A String, RowIndexAggregate 返回集合合计(总数,平均,等等) O.A = (A,Row1,Col1,Row2,Col2)Align 对象在窗体上的显示位置 O.A = 0|1|2|3|4AllowBigSelection 设定列头是否整行或整列选择 O.A = True|FalseAllowSelection 是否可多单元选择 O.A = True|FalseAllowUserFreezing 运行时用鼠标冻结行或列 O.A = 0|1|2|3AllowUserResizing 调整(行/列)大小方式 O.A = 0|1|2|3|4Appearance 边框平面/凹陷/凸起 O.A = 0|1|2Archive() 存储或清除一个二进制文件内容 O.A ArcFileName,FileName,0|1|2|3ArchiveInfo 返回一个二进制文件信息 O.A ArcFileName,0|1|2|3|4,LineIndexAutoReSize 是否自动调整大小 O.A = True|FalseAutoSearch 设置自动搜索 O.A = 0|1|2AutoSearchDelay 设置AutoSearch多少秒刷新 O.A = 2AutoSize() 自动调整列到指定宽度 O.A Col1,Col2,True|False,1000AutoSizeMode 自动调整适合行列内容 O.A = 0|1AutoSizeMouse 是否双击列首自动调整适合行列 O.A = True|FalseBackColor 所有非固定行列的背景色 O.A = ColorBackColorAlternate 所有非固定行列的交替行颜色 O.A = ColorBackColorBkg 表格背景坐底色 O.A = ColorBackColorFixed 固定的行/列背景色 O.A = ColorBackColorFrozen 冻结部分的行列背景色 O.A = ColorBackColorSel 单元被选中的背景色 O.A = ColorBindToArray() 绑定数组 O.A ArrayStr,RowDim,ColDim,PageDim,CurrentPageBookmark 返回ADO Recordset行书签(只读) O.A(Row)BorderStyle 边框粗细样式 O.A = 0|1BottomRow 返回可见范围的最大行号(只读) O.ABuildComboList() 将数据库中的内容写入下拉框 O.A(rs, FieldList, KeyField, BackColor)CausesValidation ?目标事件确认 O.A = False|TrueCell 选择部分的相应准则值 O.A(准则, Row1, Col1, Row2, Col2) = 准则值CellAlignment 设定单元里数据的排列方式 O.A = 0 至 9CellBackColor 指定单元范围的背景颜色 O.A = ColorCellBorder() 选择单元范围的边界颜色 O.A Color,左,上,右,下,垂直,水平CellButtonPicture 选择单元范围的按钮图片 O.A = LoadPicture(D:Icon.ico)CellChecked 选择单元范围的复选框 O.A = 0|1|2CellFloodColor 选择单元范围的流程颜色 O.A = ColorCellFloodPercent 选择单元范围的流程百分比 O.A = 1 至 100CellFontBold 指定单元范围设为黑体字 O.A = False|TrueCellFontItalic 指定单元范围设为斜体字 O.A = False|TrueCellFontName 对象所使用的字体名称 O.A = FontNameCellFontSize 对象文字像数大小(默认9pt) O.A = 9CellFontStrikethru 选择范围是否有删除线 O.A = False|TrueCellFontUnderline 选择范围是否有下画线 O.A = False|TrueCellFontWidth 设定单元或指定范围字体的宽度 O.A = 2CellForeColor 设定单元或指定范围字体的颜色 O.A = ColorCellHeight 返回/显示到当前单元高度(只读) O.ACellLeft 返回当前单元的左端位置(只读) O.ACellPicture 显示在单元或指定范围中的图片 O.A = LoadPicture(D:Icon.ico)CellPictureAlingment 单元或指定范围图片的显示位置 O.A = 0 至 10CellTextStyle 设定单元文本的显示形式 O.A = 0|1|2|3|4CellTop 返回当前单元的顶端位置(只读) O.ACellWidth 返回当前单元的宽度(只读) O.AClear() 清除表格内容 O.A(0|1|2,0|1|2|3)ClientHeight 返回客户可见范围高度 O.AClientWidth 返回客户可见范围宽度 O.AClip 设置选择范围的内容 O.A = TextClipSeparators ?Col 设置激活单元的列号 O.A = 2ColAlignment 列对齐排列方式 O.A(Col) = 0 至 9ColComboList 向下拉框写入管道字符 O.A(Col) = |ListStr1|ListStr2|.ColData 设置用户定义的长整形数据 O.A(Col) = UserLongColDataType 列数据类型 O.A(Col)=0至14到20(&H14),30(&H1E),31(&H1F)ColEditMask 列编辑套用格式字符串 O.A(Col) = 指定的格式如：#ColFormat 格式化显示列 O.A(Col) = Currency|#.#%.ColHidden 是否隐藏指定列 O.A(Col) = True|FalseColImageList 设置图像列表句柄到列ColIndent 缩进指定列 O.A Col= 100ColIndex 返回列索引(只读) O.A ColColIsVisible 返回列是否可见(只读) O.A ColColKey 设置列钥匙 O.A(Col) = KeyStrColPos 返回列距左边宽度(只读) O.A ColColPosition 移动列的位置 O.A(Col) = ReColCols 返回/设置总列数 O.A = 2ColSel 返回/设置最后选择的列 O.A = 3ColSort 设置列种类 O.A(Col) = 0 至 10ColWidth 返回/设置指定列宽 O.A(Col) = 100ColWidthMax 最大列宽 O.A(Col) = 5000ColWidthMin 最小列宽 O.A(Col) = 100ComboCount 取得Combo下拉按钮总数(只读) O.AComboData Combo下拉按钮数据(只读) O.AComboIndex Combo下拉按钮索引 O.A = 1ComboItem Combo下拉按钮项目(只读) O.AComboList 向下拉框写入管道字符内容 O.A = a|b|cComboSearch Combo下拉按钮搜寻方式 O.A = 0|1|2|3Container 返回/设置对象的容器 O.A.Caption = FormsDataBindings 返回数据装入数(只读) O.ADataMember 返回/设置数据描述成员 O.A = DataStrDataMode 设置数据链接状态 O.A = 0|1|2|3|4DataRefresh() 刷新数据源 O.ADataSource 设置数据源 Set O.A = DataDimDrag() 拖放 O.A 0|1|2DragIcon 拖放图标 O.A = LoadPicture(D:Icon.ico)DragMode 拖放方式 O.A = 0|1DragRow() 拖放行(本示例在MouseDown过程) O.A O.RowSelEditable 设置表格是否可编辑修改 O.A = 0|1|2EditCell() 当移动到当前单元时自动选择 O.AEditMask 当编辑时只能使用指定值 O.A = StrvalueEditMaxLength 所有单元限制字节大小 O.A = 2EditSelLength 编辑时选择长度 O.A = 5EditSelStart 移动到单元时的光标位置 O.A = 0(或者Len(vsg.text)EditSelText 编辑选择处放文本 O.A = StrEditText 编辑文本 O.A = StrEditWindow 返回编辑窗口(只读) O.AEllipsis 超宽字符加省略号 O.A = 0|1|2Enabled 对象是否激活可用 O.A = False|TrueExplorerBar 单击列头的选择、拖动或排序样式 O.A = 0 至 15ExtendLastCol 是否扩充最后的列到适合宽度 O.A = False|TrueFillStyle 是否改变当前范围的内容或格式 O.A = 0|1FindRow 查找符和条件返回的行(只读) O.A FindStr,Row,Col,敏感,精度)FinishEditing() 完成编辑的 O.A = False|TrueFixedAlignment 固定列的对齐方式 O.A(Col) = 0 至 9FixedCols 固定几列 O.A = 1FixedRows 固定几行 O.A = 1FlexDataSource 流动数据源 O.A = rsDateFloodColor 设置流程颜色 O.A = ColorFocusRect 单元的选择虚框样式类型 O.A = 0|1|2|3|4|5Font 设定字体 O.A = FontNameFontBold 设定字体粗体 O.A = False|TrueFontItalic 设定字体斜体 O.A = False|TrueFontName 设定字体名称 O.A = FontNameFontSize 设定字体大小 O.A = 10FontStrikethru 设定字体删除线 O.A = False|TrueFontUnderline 设定字体下划线 O.A = False|TrueFontWidth 设定字体的宽度(非间距) O.A = 2ForeColor 设定字体前景颜色 O.A = ColorForeColorFixed 设定固定单元的文本颜色 O.A = ColorForeColorFrozen 设定字体冻结部分的前景颜色 O.A = ColorForeColorSel 设定选择单元的文本颜色 O.A = ColorFormatString 设计管道符格式化行/列字符串 O.A = Format(1,#0.00)FrozenCols 需要冻结的列数 O.A = 2FrozenRows 需要冻结的行数 O.A = 2GetMergedRange() ?获得合并山脉GetNode() ?获得节点GetNodeRow() ?获得节点行GetSelection() ?获得选择 O.A Row1, Col1, Row2, Col2GridColor 单元行列的网格线颜色 O.A = ColorGridColorFixed 设定固定网格线的颜色 O.A = ColorGridLines 可编辑区的网格线类型 O.A = 0 至 14GridLinesFixed 固定行列网格效果类型 O.A = 0 至 14GridLineWidth 编辑区的网格线线粗细 O.A = 1Height 设置对象高度 O.A = 1000HelpContextID 对象缺省上下文帮助ID O.A = HelpIDHighLight 是否突出加亮显示选中单元 O.A = 0无|1默认|2仅焦点时有hWnd 获取对象句柄 O.AIndex 对象索引号(运行时只读) O.AIsCollapsed ?IsSelected 是否已选择 O.AIsSubtotal 是否已小记 O.ALeft 对象距左边位置 O.A = 100LeftCol 指定显示在最左边的列 O.A = 1LoadArray() 载入数组LoadGrid() 载入网格 O.A FileName, 0 至 6,True(含固定行列)|FalseLoadGridURL() 载入网格URLMergeCells 相同内容的单元格合并类型 O.A = 0|1|2|3|4|5|6MergeCol 是否上下列合并 O.A(Col) = TrueMergeCompare 返回/设置合并比较类型 O.A = 0|1|2MergeRow 是否左右行合并 O.A(Row) = TrueMouseCol 返回鼠标指向的当前列号 O.AMouseIcon 设定鼠标指向的当前图形 O.A = LoadPicture(C:.ico)MousePointer 设置对象的鼠标指针样式 O.A = 0 到 15|99MouseRow 返回鼠标指向的当前行号 O.AMove() 移动对象 O.A Left,Top,Width,HeightMultiTotals ?Multi总数Name 对象名称(运行时只读) O.ANodeClosedPicture 节点封闭的图标 O.A = LoadPicture(C:.ico)NodeOpenPicture 节点打开的图标 O.A = LoadPicture(C:.ico)Object 返回/设置该对象变量 Set DimObjName = O.AOLEDrag() OLE拖拽数据 O.AOLEDragMode OLE拖拽方式 O.A = 0|1OLEDropMode OLE拖拽落下方式 O.A = 0|1|2Outline() ?外面的线OutlineBar 返回/设置显示目录树的线条 O.A = 0 至 6OutlineCol ?外面的线列OwnerDraw 返回或设置执行 DrawCell 事件 O.A = 0 至 6Parent 返回该对象所在的对象(只读) O.A.Caption = FormsPicture 返回控件的图片(只读) O.A.属性|方法 = 相应值PicturesOver 返回控件图片结束 O.A = False|TruePictureType 用Picture属性生成的图片类型 O.A = 0|1PrintGrid() 打印网格数据 O.A 主题,True|False,1|2,左右空,上下空Redraw 设定是否刷新控件 O.A = 0|1|2Refresh() 刷新表格 O.ARemoveItem() 删除指定行 O.A VSG1.RowSelRightCol 返回右边最大的可见列范围 O.ARightToLeft 是否将固定行放到右边 O.A = TrueRow 设置激活单元的行号 O.A = 2RowData 设置用户定义的长整形数据 O.A(Row) = UserLongRowHeight 返回/设置指定行高 O.A(Row) = 100RowHeightMax 行高的最大值 O.A(Row) = 500RowHeightMin 行高的最小值 O.A(Row) = 230RowHidden 是否隐藏指定行 O.A(2) = True|FalseRowIsVisible 返回行是否在可见范围中(只读) O.A(Row)RowOutlineLevel 返回/设置水平行小记 O.A(Row) = 0|1RowPos 返回行距上边高度(只读) O.A RowRowPosition 移动行的位置 O.A(Row) = NewRowRows 返回/设置总行数 O.A = 2RowSel 返回/设置最后选择的行 O.A = 2RowStatus 设置行状态 O.A = 0|1|2|3SaveGrid() 保存网格内容到二进制文件 O.A FileName, 0 至 6,True(含固定行列)|FalseScrollBars 设定卷动轴的方式 O.A = 0|1|2|3ScrollTips 卷轴提示 O.A = False|TrueScrollTipText 卷轴提示文本 O.A = TextScrollTrack 行是否随拖动条卷动显示 O.A = False|TrueSelect() 选择行列范围 O.A Row,Col,RowSel,ColSelSelectedRow 已选择行(只读) O.A(Row)SelectedRows 返回所选总行数(只读) O.ASelectionMode 设置单元焦点选中方式 O.A = 0|1|2|3SetFocus() 设置到对象焦点 O.ASheetBorder 表格边框颜色 O.A = ColorShowCell() 立刻显示到指定单元 O.A Row, ColShowComboButton 是否显示当选择时拉下按钮 O.A = 0|1|2ShowWhatsThis() 显示“这是什么” O.ASort 按照选择的基准重新排序顺序方式 O.A = 0 到 10Subtotal() 小计 O.A 属性名,其它共9个可省略参数SubtotalPosition 是否小计上面或下面的数值 O.A = 0|1TabBehavior Tab键跳转顺序禁止 O.A = 0|1TabIndex 对象的Tab选择顺序 O.A = 2TabStop 是否允许Tab自动选择 O.A = True|FalseTag 存储数据时所需的附加数据 O.A = StrText 返回/写入当前单元的文字 O.A = StrTextMatrix 返回/写入指定单元的文字 O.A(Row, Col) = StrTextStyle 单元格文字效果 O.A = 0|1|2|3|4TextStyleFixed 固定行列文本的3D效果 O.A = 0|1|2|3|4ToolTipText 鼠标指向表格的说明消息 O.A = TextStringTop 对象上边距 O.A = 100TopRow 指定显示在最上面的行 O.A = 5TreeColor 目录树颜色 O.A = Colorvalue 返回当前单元数值部分(只读) O.AvalueMatrix 返回指定单元数值部分(只读) O.A Row, ColVersion 返回控件的版本号(只读) O.AVirtualData 虚拟数据 O.A = True|FalseVisible 是否显示对象 O.A = True|FalseWallPaper 表格壁纸背景图 O.A=LoadPicture(Image) | O.A.属性|方法 = 相应值WallPaperAlignment 壁纸背景图墙报对齐方式 O.A(Col) = 0 至 10WhatsThisHelpID 设置与对象相关联的上下文号 O.A = HelpIDStringWidth 设置对象宽度 O.A = 5000WordWrap 设定单元中的文本是否换行 O.A = True|FalseZOrder() 设置对象Z顺序 O.A 0|1 VB vsflexgrid 清空表格vsflexgrid的一个隐藏参数清除表格内容时有一个方法。vsflexgrid.clear这个方法有一个可选参数 (where),(what)，我用vsflexgrid.clear 1,1 试了一下，发现清除了固定行和列以外的所有内容。这正是我所要的。 在vsflexgrid中单元格输入完毕后，设置按回车键跳到同一行的下一个单元Private Sub VSFlexGrid1_AfterEdit(ByVal Row As Long, ByVal Col As Long) With VSFlexGrid1 If .Col = .Cols - 1 Then 如果到了最右边的列就跳到下一行第一个可非固定列 .Row = Row + 1 .Col = .FixedCols Else 向右移动一列 .Col = Col + 1 End If End WithEnd SubvsflexGrid 如何只能让某些特定列可编辑修改前看到是否需要修改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 SubErr: RaiseErr frmY005-Grid_MouseDown()End Sub修改后判断是否合法cancel=true 取消修改的Private Sub Grid_ValidateEdit(ByVal Row As Long, ByVal Col As Long, Cancel As Boolean)On Error Resume Next If Not IsNumeric(Grid.EditText) Then MsgBox 输入不合法,应输入一个数值, vbInformation, 提示 Cancel = True Exit Sub End If End Sub修改后来更改别的一些数据Private Sub Grid_AfterEdit(ByVal Row As Long, ByVal Col As Long)On Error Resume Next进货数量=包装数量 * 整装数量 + 零装数量 Grid.TextMatrix(Row, Grid.cols - 6) = Grid.TextMatrix(Row, Grid.cols - 9) * Grid.TextMatrix(Row, Grid.cols - 8) + Grid.TextMatrix(Row, Grid.cols - 7)End Sub用.AddItem在最后一行显示数据Rst_Hj.Open HjSQL, Cnn_Zl, adOpenDynamic, adLockOptimistic RST_hj是合计的记录集Main_YX.VSFlexGrid1.AddItem vbTab & vbTab & vbTab & vbTab & vbTab & vbTab & vbTab & vbTab & vbTab & vbTab & 合计 & vbTab & Rst_Hj.Fields(0) & vbTab & Rst_Hj.Fields(1) & vbTab & Rst_Hj.Fields(2) & vbTab & Rst_Hj.Fields(3) VBTAB是跳过一格填写Rst_Hj.Close删除连续选择的记录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 SelectElse MsgBox 请选择您要删除的记录！, vbExclamation Exit SubEnd IfVB VSFlexGrid 合计项与排序问题的解决方法Private Sub VS1_BeforeSort(ByVal Col As Long, Order As Integer) 排序前删除合计项 With VS1 If .TextMatrix(.Rows - 1, 1) = 合 计 Then 判断最后列是否是合计行 .Redraw = False .RemoveItem (.Rows - 1) End If End WithEnd SubPrivate Sub VS1_AfterSort(ByVal Col As Long, Order As Integer) 排序后添加合计项 With VS1 If .TextMatrix(.Rows - 1, 1) 合 计 Then 判断如果最后列不是合计行那么添加合计行 .Rows = .Rows + 1 Dim r&, c&, tot! For c = 6 To 8 tot = 0 For r = 1 To .Rows - 2 tot = tot + .ValueMatrix(r, c) Next .TextMatrix(r, c) = tot Next .TextMatrix(.Rows - 1, 1) = 合 计 .Cell(flexcpAlignment, .Rows - 1, 1, .Rows - 1, 1) = flexAlignCenterCenter 合计两字居中对齐 End If .Redraw = True End WithEnd Sub VB VSFlexGrid 分类小计、合计、合并单元格方法 With VS1 .Redraw = False For i = 0 To 6 .ColWidth(i) = s(i) 设置列宽 .TextMatrix(0, i) = t1(i) 设置表头文字 Next i .BackColorBkg = vbWhite 表格背景色为白色 .SheetBorder = vbWhite 网格边框为白色 .RowHeightMin = 300 最小行高 .ExplorerBar = 7 可排序列并在列头显示相应箭头，还可拖动行 .AllowUserResizing = 1 可调列 .SelectionMode = 1 鼠标单击选择整行内容 .BackColorAlternate = RGB(216, 226, 246) 间隔行颜色 .ColFormat(4) = #0.00 格式化显示列 .ColFormat(5) = #0.00 格式化显示列 .ColFormat(6) = #0.00 格式化显示列 .ColAlignment(1) = 4 居中 .ColAlignment(2) = 4 居中 表头文字居中 .Row = 0 For i = 0 To .Cols - 1 .Col = i .CellAlignment = flexAlignCenterCenter 居中对齐 Next i 小计 .SubtotalPosition = flexSTBelow 合计显示在下面 .Col = 2 结算月份那一列 .Sort = flexSortGenericAscending 先将结算月份排序 .Subtotal flexSTSum, 1, 4, , , vbMagenta, True, 大类小计 .Subtotal flexSTSum, 1, 5, , , vbMagenta, True, 大类小计 .Subtotal flexSTSum, 1, 6, , , vbMagenta, True, 大类小计 合并单元格 .MergeCells = flexMergeFree .MergeCol(1) = True .Redraw = True End With VSFlexGrid ColComboList连接SQLPrivate Sub Form_Load() MDI子窗体启动后居中 Me.Left = (MDIFrm_main.Width - Me.Width) / 2 Me.Top = (MDIFrm_main.Height - Me.Height) / 4 Me.Icon = LoadPicture(App.Path & .Picturetop_ico.ico) 窗体图标路径 If cnn.State = 0 Then Call sql_link End If Dim strComboList As String SQL = select