发布时间 : 星期一 文章VSFlexGrid的用法--VB6更新完毕开始阅读d3307edcb9f3f90f76c61b3c
ExplorerBar 单击列头的选择、拖动或排序样式 O.A = 0 至 15 ExtendLastCol 是否扩充最后的列到适合宽度 O.A = False|True FillStyle 是否改变当前范围的内容或格式 O.A = 0|1
FindRow 查找符和条件返回的行(只读) O.A FindStr,[Row],[Col],[敏感],[精度])
FinishEditing() 完成编辑的 O.A = False|True FixedAlignment 固定列的对齐方式 O.A(Col) = 0 至 9 FixedCols 固定几列 O.A = 1 FixedRows 固定几行 O.A = 1 FlexDataSource 流动数据源 O.A = rsDate FloodColor 设置流程颜色 O.A = Color
FocusRect 单元的选择虚框样式类型 O.A = 0|1|2|3|4|5 Font 设定字体 O.A = FontName FontBold 设定字体粗体 O.A = False|True FontItalic 设定字体斜体 O.A = False|True FontName 设定字体名称 O.A = FontName FontSize 设定字体大小 O.A = 10
FontStrikethru 设定字体删除线 O.A = False|True FontUnderline 设定字体下划线 O.A = False|True FontWidth 设定字体的宽度(非间距) O.A = 2 ForeColor 设定字体前景颜色 O.A = Color ForeColorFixed 设定固定单元的文本颜色 O.A = Color ForeColorFrozen 设定字体冻结部分的前景颜色 O.A = Color ForeColorSel 设定选择单元的文本颜色 O.A = Color
FormatString 设计管道符格式化行/列字符串 O.A = Format(1,\FrozenCols 需要冻结的列数 O.A = 2 FrozenRows 需要冻结的行数 O.A = 2 GetMergedRange() ???获得合并山脉 GetNode() ???获得节点 GetNodeRow() ???获得节点行
GetSelection() ???获得选择 O.A Row1, Col1, Row2, Col2 GridColor 单元行列的网格线颜色 O.A = Color GridColorFixed 设定固定网格线的颜色 O.A = Color GridLines 可编辑区的网格线类型 O.A = 0 至 14 GridLinesFixed 固定行列网格效果类型 O.A = 0 至 14 GridLineWidth 编辑区的网格线线粗细 O.A = 1 Height 设置对象高度 O.A = 1000
HelpContextID 对象缺省上下文帮助ID O.A = HelpID
HighLight 是否突出加亮显示选中单元 O.A = 0[无]|1[默认]|2[仅焦点时有] hWnd 获取对象句柄 O.A Index 对象索引号(运行时只读) O.A IsCollapsed ???
IsSelected 是否已选择 O.A IsSubtotal 是否已小记 O.A
Left 对象距左边位置 O.A = 100 LeftCol 指定显示在最左边的列 O.A = 1 LoadArray() 载入数组
LoadGrid() 载入网格 O.A FileName, 0 至 6[,True(含固定行列)|False]
LoadGridURL() 载入网格URL
MergeCells 相同内容的单元格合并类型 O.A = 0|1|2|3|4|5|6 MergeCol 是否上下列合并 O.A(Col) = True MergeCompare 返回/设置合并比较类型 O.A = 0|1|2 MergeRow 是否左右行合并 O.A(Row) = True MouseCol 返回鼠标指向的当前列号 O.A
MouseIcon 设定鼠标指向的当前图形 O.A = LoadPicture(\MousePointer 设置对象的鼠标指针样式 O.A = 0 到 15|99 MouseRow 返回鼠标指向的当前行号 O.A
Move() 移动对象 O.A Left,[Top],[Width],[Height] MultiTotals ???Multi总数
Name 对象名称(运行时只读) O.A
NodeClosedPicture 节点封闭的图标 O.A = LoadPicture(\NodeOpenPicture 节点打开的图标 O.A = LoadPicture(\Object 返回/设置该对象变量 Set DimObjName = O.A OLEDrag() OLE拖拽数据 O.A
OLEDragMode OLE拖拽方式 O.A = 0|1 OLEDropMode OLE拖拽落下方式 O.A = 0|1|2 Outline() ???外面的线
OutlineBar 返回/设置显示目录树的线条 O.A = 0 至 6 OutlineCol ???外面的线列
OwnerDraw 返回或设置执行 DrawCell 事件 O.A = 0 至 6 Parent 返回该对象所在的对象(只读) O.A.Caption = \Picture 返回控件的图片(只读) O.A.属性|方法 = 相应值 PicturesOver 返回控件图片结束 O.A = False|True PictureType 用Picture属性生成的图片类型 O.A = 0|1
PrintGrid() 打印网格数据 O.A [\主题\左右空,上下空] Redraw 设定是否刷新控件 O.A = 0|1|2 Refresh() 刷新表格 O.A
RemoveItem() 删除指定行 O.A VSG1.RowSel RightCol 返回右边最大的可见列范围 O.A RightToLeft 是否将固定行放到右边 O.A = True Row 设置激活单元的行号 O.A = 2
RowData 设置用户定义的长整形数据 O.A(Row) = UserLong RowHeight 返回/设置指定行高 O.A(Row) = 100 RowHeightMax 行高的最大值 O.A(Row) = 500 RowHeightMin 行高的最小值 O.A(Row) = 230 RowHidden 是否隐藏指定行 O.A(2) = True|False RowIsVisible 返回行是否在可见范围中(只读) O.A(Row)
RowOutlineLevel 返回/设置水平行小记 O.A(Row) = 0|1 RowPos 返回行距上边高度(只读) O.A Row
RowPosition 移动行的位置 O.A(Row) = NewRow Rows 返回/设置总行数 O.A = 2 RowSel 返回/设置最后选择的行 O.A = 2 RowStatus 设置行状态 O.A = 0|1|2|3
SaveGrid() 保存网格内容到二进制文件 O.A FileName, 0 至 6[,True(含固定行列)|False]
ScrollBars 设定卷动轴的方式 O.A = 0|1|2|3 ScrollTips 卷轴提示 O.A = False|True ScrollTipText 卷轴提示文本 O.A = \ScrollTrack 行是否随拖动条卷动显示 O.A = False|True
Select() 选择行列范围 O.A Row,Col[,RowSel][,ColSel] SelectedRow 已选择行(只读) O.A(Row) SelectedRows 返回所选总行数(只读) O.A
SelectionMode 设置单元焦点选中方式 O.A = 0|1|2|3 SetFocus() 设置到对象焦点 O.A
SheetBorder 表格边框颜色 O.A = Color ShowCell() 立刻显示到指定单元 O.A Row, Col ShowComboButton 是否显示当选择时拉下按钮 O.A = 0|1|2 ShowWhatsThis() 显示“这是什么” O.A
Sort 按照选择的基准重新排序顺序方式 O.A = 0 到 10
Subtotal() 小计 O.A 属性名[,其它共9个可省略参数] SubtotalPosition 是否小计上面或下面的数值 O.A = 0|1 TabBehavior Tab键跳转顺序禁止 O.A = 0|1 TabIndex 对象的Tab选择顺序 O.A = 2
TabStop 是否允许Tab自动选择 O.A = True|False Tag 存储数据时所需的附加数据 O.A = Str Text 返回/写入当前单元的文字 O.A = Str
TextMatrix 返回/写入指定单元的文字 O.A(Row, Col) = Str TextStyle 单元格文字效果 O.A = 0|1|2|3|4 TextStyleFixed 固定行列文本的3D效果 O.A = 0|1|2|3|4 ToolTipText 鼠标指向表格的说明消息 O.A = \Top 对象上边距 O.A = 100 TopRow 指定显示在最上面的行 O.A = 5 TreeColor 目录树颜色 O.A = Color Value 返回当前单元数值部分(只读) O.A
ValueMatrix 返回指定单元数值部分(只读) O.A Row, Col Version 返回控件的版本号(只读) O.A
VirtualData 虚拟数据 O.A = True|False Visible 是否显示对象 O.A = True|False
WallPaper 表格壁纸背景图 O.A=LoadPicture(Image) | O.A.属性|方法 = 相应值
WallPaperAlignment 壁纸背景图墙报对齐方式 O.A(Col) = 0 至 10
WhatsThisHelpID 设置与对象相关联的上下文号 O.A = HelpIDString Width 设置对象宽度 O.A = 5000
WordWrap 设定单元中的文本是否换行 O.A = True|False ZOrder() 设置对象Z顺序 O.A 0|1
vsflexgrid技巧大全如何实现将vsflexgrid中修改的数据反馈到数据库中？？ Private Sub vsflexgrid1_AfterEdit(ByVal Row As Long, ByVal Col As Long) rs.MoveFirst '//rs为记录集 rs.Move vsflexgrid1.Row - 1 rs.Edit
If vsflexgrid1.text = \
rs.Fields(vsflexgrid1.Col - 1) = Null Else
rs.Fields(vsflexgrid1.Col - 1) = vsflexgrid1.text End If rs.Update end sub
一、增加记录使用for来循环表格行。 for i=1 to grid1.rows-1 with rs .addnew
.fileds(o)=grid1.textmariy(i,0) .fileds(1)=grid1.textmariy(i,1) .fileds(2)=grid1.textmariy(i,2) .fileds(3)=grid1.textmariy(i,3) .update end with next 二、添加行
grid1.additem row 三、删除当前行 with grid1 i=.row .removeitem i end with
四、要显示下拉框，可以使用vsflexgrid中列绑定功能
grid1.colcombolist(1)＝grid.buildcombolist(rs,\商品名称\跟楼上的相比,仅仅是datamode不一样(2-flexDMBoundBatch)
但这样做的优势是非常明显的:可以撤销包括新增删除在内的所有操作,按保存键才写入数据库 Private Sub CmdDel_Click()
If fg.Row <> 0 Then fg.RemoveItem (fg.Row)