vsflexgrid属性方法全集.docx
《vsflexgrid属性方法全集.docx》由会员分享，可在线阅读，更多相关《vsflexgrid属性方法全集.docx（37页珍藏版）》请在冰点文库上搜索。
vsflexgrid属性方法全集
VSFlexGrid属性方法全集
属性/方法名称功能示例语法
AddItem（）增加一行O.AString[,RowIndex]
Aggregate返回集合合计（总数,平均,等等）O.A=（A,Row1,Col1,Row2,Col2）
Align对象在窗体上的显示位置O.A=0|1|2|3|4
AllowBigSelection设定列头是否整行或整列选择O.A=True|False
AllowSelection是否可多单元选择O.A=True|False
AllowUserFreezing运行时用鼠标冻结行或列O.A=0|1|2|3
AllowUserResizing调整（行/列）大小方式O.A=0|1|2|3|4
Appearance边框平面/凹陷/凸起O.A=0|1|2
Archive（）存储或清除一个二进制文件内容O.AArcFileName,FileName,0|1|2|3
ArchiveInfo返回一个二进制文件信息O.AArcFileName,0|1|2|3|4,LineIndex
AutoReSize是否自动调整大小O.A=True|False
AutoSearch设置自动搜索O.A=0|1|2
AutoSearchDelay设置AutoSearch多少秒刷新O.A=2
AutoSize（）自动调整列到指定宽度O.ACol1,Col2,True|False,1000
AutoSizeMode自动调整适合行列内容O.A=0|1
AutoSizeMouse是否双击列首自动调整适合行列O.A=True|False
BackColor所有非固定行列的背景色O.A=Color
BackColorAlternate所有非固定行列的交替行颜色O.A=Color
BackColorBkg表格背景坐底色O.A=Color
BackColorFixed固定的行/列背景色O.A=Color
BackColorFrozen冻结部分的行列背景色O.A=Color
BackColorSel单元被选中的背景色O.A=Color
BindToArray（）绑定数组O.AArrayStr,RowDim,ColDim,PageDim,CurrentPage
Bookmark返回ADORecordset行书签（只读）O.A（Row）
BorderStyle边框粗细样式O.A=0|1
BottomRow返回可见范围的最大行号（只读）O.A
BuildComboList（）将数据库中的内容写入下拉框O.A（rs,FieldList,KeyField,BackColor）
CausesValidation?
?
?
目标事件确认O.A=False|True
Cell选择部分的相应准则值O.A（准则,Row1,Col1,Row2,Col2）=准则值
CellAlignment设定单元里数据的排列方式O.A=0至9
CellBackColor指定单元范围的背景颜色O.A=Color
CellBorder（）选择单元范围的边界颜色O.AColor,左,上,右,下,垂直,水平
CellButtonPicture选择单元范围的按钮图片O.A=LoadPicture（"D:
\Icon.ico"）
CellChecked选择单元范围的复选框O.A=0|1|2
CellFloodColor选择单元范围的流程颜色O.A=Color
CellFloodPercent选择单元范围的流程百分比O.A=1至100
CellFontBold指定单元范围设为黑体字O.A=False|True
CellFontItalic指定单元范围设为斜体字O.A=False|True
CellFontName对象所使用的字体名称O.A=FontName
CellFontSize对象文字像数大小（默认9pt）O.A=9
CellFontStrikethru选择范围是否有删除线O.A=False|True
CellFontUnderline选择范围是否有下画线O.A=False|True
CellFontWidth设定单元或指定范围字体的宽度O.A=2
CellForeColor设定单元或指定范围字体的颜色O.A=Color
CellHeight返回/显示到当前单元高度（只读）O.A
CellLeft返回当前单元的左端位置（只读）O.A
CellPicture显示在单元或指定范围中的图片O.A=LoadPicture（"D:
\Icon.ico"）
CellPictureAlingment单元或指定范围图片的显示位置O.A=0至10
CellTextStyle设定单元文本的显示形式O.A=0|1|2|3|4
CellTop返回当前单元的顶端位置（只读）O.A
CellWidth返回当前单元的宽度（只读）O.A
Clear（）清除表格内容O.A（[0|1|2],[0|1|2|3]）
ClientHeight返回客户可见范围高度O.A
ClientWidth返回客户可见范围宽度O.A
Clip设置选择范围的内容O.A=Text
ClipSeparators?
?
?
Col设置激活单元的列号O.A=2
ColAlignment列对齐排列方式O.A（Col）=0至9
ColComboList向下拉框写入管道字符O.A（Col）="|ListStr1|ListStr2|..."
ColData设置用户定义的长整形数据O.A（Col）=UserLong
ColDataType列数据类型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|False
ColImageList设置图像列表句柄到列
ColIndent缩进指定列O.ACol=100
ColIndex返回列索引（只读）O.ACol
ColIsVisible返回列是否可见（只读）O.ACol
ColKey设置列钥匙O.A（Col）=KeyStr
ColPos返回列距左边宽度（只读）O.ACol
ColPosition移动列的位置O.A（Col）=ReCol
Cols返回/设置总列数O.A=2
ColSel返回/设置最后选择的列O.A=3
ColSort设置列种类O.A（Col）=0至10
ColWidth返回/设置指定列宽O.A（Col）=100
ColWidthMax最大列宽O.A（Col）=5000
ColWidthMin最小列宽O.A（Col）=100
ComboCount取得Combo下拉按钮总数（只读）O.A
ComboDataCombo下拉按钮数据（只读）O.A
ComboIndexCombo下拉按钮索引O.A=1
ComboItemCombo下拉按钮项目（只读）O.A
ComboList向下拉框写入管道字符内容O.A="a|b|c"
ComboSearchCombo下拉按钮搜寻方式O.A=0|1|2|3
Container返回/设置对象的容器O.A.Caption="Forms"
DataBindings返回数据装入数（只读）O.A
DataMember返回/设置数据描述成员O.A=DataStr
DataMode设置数据链接状态O.A=0|1|2|3|4
DataRefresh（）刷新数据源O.A
DataSource设置数据源SetO.A=DataDim
Drag（）拖放O.A[0|1|2]
DragIcon拖放图标O.A=LoadPicture（"D:
\Icon.ico"）
DragMode拖放方式O.A=0|1
DragRow（）拖放行（本示例在MouseDown过程）O.AO.RowSel
Editable设置表格是否可编辑修改O.A=0|1|2
EditCell（）当移动到当前单元时自动选择O.A
EditMask当编辑时只能使用指定值O.A=Strvalue
EditMaxLength所有单元限制字节大小O.A=2
EditSelLength编辑时选择长度O.A=5
EditSelStart移动到单元时的光标位置O.A=0（或者Len（vsg.text））
EditSelText编辑选择处放文本O.A="Str"
EditText编辑文本O.A="Str"
EditWindow返回编辑窗口（只读）O.A
Ellipsis超宽字符加省略号O.A=0|1|2
Enabled对象是否激活可用O.A=False|True
ExplorerBar单击列头的选择、拖动或排序样式O.A=0至15
ExtendLastCol是否扩充最后的列到适合宽度O.A=False|True
FillStyle是否改变当前范围的内容或格式O.A=0|1
FindRow查找符和条件返回的行（只读）O.AFindStr,[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,"#0.00"）
FrozenCols需要冻结的列数O.A=2
FrozenRows需要冻结的行数O.A=2
GetMergedRange（）?
?
?
获得合并山脉
GetNode（）?
?
?
获得节点
GetNodeRow（）?
?
?
获得节点行
GetSelection（）?
?
?
获得选择O.ARow1,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对象缺省上下文帮助IDO.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.AFileName,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（"C:
\.ico"）
MousePointer设置对象的鼠标指针样式O.A=0到15|99
MouseRow返回鼠标指向的当前行号O.A
Move（）移动对象O.ALeft,[Top],[Width],[Height]
MultiTotals?
?
?
Multi总数
Name对象名称（运行时只读）O.A
NodeClosedPicture节点封闭的图标O.A=LoadPicture（"C:
\.ico"）
NodeOpenPicture节点打开的图标O.A=LoadPicture（"C:
\.ico"）
Object返回/设置该对象变量SetDimObjName=O.A
OLEDrag（）OLE拖拽数据O.A
OLEDragModeOLE拖拽方式O.A=0|1
OLEDropModeOLE拖拽落下方式O.A=0|1|2
Outline（）?
?
?
外面的线
OutlineBar返回/设置显示目录树的线条O.A=0至6
OutlineCol?
?
?
外面的线列
OwnerDraw返回或设置执行DrawCell事件O.A=0至6
Parent返回该对象所在的对象（只读）O.A.Caption="Forms"
Picture返回控件的图片（只读）O.A.属性|方法=相应值
PicturesOver返回控件图片结束O.A=False|True
PictureType用Picture属性生成的图片类型O.A=0|1
PrintGrid（）打印网格数据O.A["主题",True|False,1|2,左右空,上下空]
Redraw设定是否刷新控件O.A=0|1|2
Refresh（）刷新表格O.A
RemoveItem（）删除指定行O.AVSG1.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.ARow
RowPosition移动行的位置O.A（Row）=NewRow
Rows返回/设置总行数O.A=2
RowSel返回/设置最后选择的行O.A=2
RowStatus设置行状态O.A=0|1|2|3
SaveGrid（）保存网格内容到二进制文件O.AFileName,0至6[,True（含固定行列）|False]
ScrollBars设定卷动轴的方式O.A=0|1|2|3
ScrollTips卷轴提示O.A=False|True
ScrollTipText卷轴提示文本O.A="Text"
ScrollTrack行是否随拖动条卷动显示O.A=False|True
Select（）选择行列范围O.ARow,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.ARow,Col
ShowComboButton是否显示当选择时拉下按钮O.A=0|1|2
ShowWhatsThis（）显示“这是什么”O.A
Sort按照选择的基准重新排序顺序方式O.A=0到10
Subtotal（）小计O.A属性名[,其它共9个可省略参数]
SubtotalPosition是否小计上面或下面的数值O.A=0|1
TabBehaviorTab键跳转顺序禁止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="TextString"
Top对象上边距O.A=100
TopRow指定显示在最上面的行O.A=5
TreeColor目录树颜色O.A=Color
value返回当前单元数值部分（只读）O.A
valueMatrix返回指定单元数值部分（只读）O.ARow,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.A0|1
VBvsflexgrid清空表格
vsflexgrid的一个隐藏参数
清除表格内容时有一个方法。
vsflexgrid.clear
这个方法有一个可选参数[（where）,（what）]，我用
vsflexgrid.clear1,1试了一下，发现清除了固定行和列以外的所有内容。
这正是我所要的。
在vsflexgrid中单元格输入完毕后，设置按回车键跳到同一行的下一个单元
PrivateSubVSFlexGrid1_AfterEdit（ByValRowAsLong,ByValColAsLong）
WithVSFlexGrid1
If.Col=.Cols-1Then
'如果到了最右边的列就跳到下一行第一个可非固定列
.Row=Row+1
.Col=.FixedCols
Else
'向右移动一列
.Col=Col+1
EndIf
EndWith
EndSub
vsflexGrid如何只能让某些特定列可编辑
'修改前看到是否需要修改
PrivateSubGrid_BeforeEdit（ByValRowAsLong,ByValColAsLong,CancelAsBoolean）
'OnErrorGoToerr
IfUiI10101.valueInt>2Then'*************定义允许修改的状态，需修改
Cancel=True
ExitSub
EndIf
IfGrid.Col=Grid.cols-8OrGrid.Col=Grid.cols-7Then'*************定义可以修改的列，需修改
Cancel=False'使其有效
Else
Cancel=True'使其无效为真
EndIf
ExitSub
Err:
RaiseErr"frmY005-Grid_MouseDown（）"
EndSub
'修改后判断是否合法
'cancel=true取消修改的
PrivateSubGrid_ValidateEdit（ByValRowAsLong,ByValColAsLong,CancelAsBoolean）
OnErrorResumeNext
IfNotIsNumeric（Grid.EditText）Then
MsgBox"输入不合法,应输入一个数值",vbInformation,"提示"
Cancel=True
ExitSub
EndIf
EndSub
'修改后来更改别的一些数据
PrivateSubGrid_AfterEdit（ByValRowAsLong,ByValColAsLong）
升级会员 