vsFlexGrid常用功能介绍

vsFlexGrid常用功能介绍vsFlexGrid是ComponentOne公司的一个ActiveX控件，它与MS的MSHFlexGrid控件在功能上是兼容的，即MSHFlexGrid所具备的属性和方法，它也都具备，只有少数几个属性名称略有不同，使用MSHFlexGrid编写的程序，只需要作较小的调整就可以转换过来；但相比MSHFlexGrid，vsFlexGrid多了很多功能，它的属性和事件非常丰富，可以实现非常灵活的控制和快捷的编码，下面主要对一些常用和实用的功能进行介绍：一、数据批量操作l?利用Cell属性批量存取数据比如要清除一块区域的文本，或者设置一块区域的字体，不用循环处理，只需要一条语句就可以完成，如：vsFlexGrid.Cell(flexcpText,1,1,5,5)=“”‘设置(1,1)-(5,5)这块单元格区域的文本都为空vsFlexGrid.Cell(flexcpFontBold,1,1,5,5)=True‘设置(1,1)-(5,5)这块单元格区域的字体都为粗体类似还可以设置的有单元格对齐、图片、颜色等。而语句：strText=vsFlexGrid.Cell(flexcpText,1,1,5,5)返回一个用vbTab间隔列，vbCr间隔行的字符串，当然也可以反过来赋值，这样该区域内的每个单元格都可以赋不同的值。l?使用-1对所有行列进行处理RowHeight(-1)=300‘将所有行的高度设置为300Twip，可以类似使用的属性有：RowHidden，ColWidth，ColHidden，ColAlignment等二、大量数据存放vsFlexGrid可以存放数据的地方有：CellText，CellData，ColData，RowData除了CellText是String类型外，其他都是Variant类型，也就是说你可以将任意类型的数据存放在 表格 关于规范使用各类表格的通知入职表格免费下载关于主播时间做一个表格详细英语字母大小写表格下载简历表格模板下载 中，比如日期(Date)，类型变量(Type)，集合(Collection)，数组，记录集(RecordSet)，以及各种对象(Object)，这对于关联数据比较多的程序非常有用。注意：vsFlexGrid.Cell(flexcpText,1,1)=rsData!Name实际是存放了一个ADO.Field对象，应该使用CStr(rsData!Name)对类型进行明确。三、编辑特性vsFlexGrid的单元格是可以编辑的，并且有以下几种编辑形式：l?文本框：只要Editable设置为可编辑，每个单元格缺省就是TextBox编辑样式l?下拉框：设置当前单元格的ComboList属性或者指定列的ColComboList属性，即可实现VB.ComboBox样式的单元编辑，而且下拉界面中可以显示多列，如：vsFlexGrid.ComboList=_“|#100*1;张三”&vbTab&“男”&vbTab&“28岁”&_“|#101;李四”&vbTab&“男”&vbTab&“29岁”&_“|#102;王五”&vbTab&“男”&vbTab&“30岁”其中”|”间隔的是各行数据，vbTab间隔的是各列数据；第1个”|” 表 关于同志近三年现实表现材料材料类招标技术评分表图表与交易pdf视力表打印pdf用图表说话 pdf 示下拉框可以输入，”#”后面的是每行的ItemData，第一个ItemData后面”*1”表示是第1列的数据在选择后显示在ComboBox中。l?复选框：设置指定列的ColDataType=flexDTBoolean，或者指定当前元单格的CellChecked属性即可。l?选择按钮：设置当前单元格的ComboList属性或者指定列的ColComboList属性为”…”即可，主要配合CellButtonClick事件使用。四、界面特性1)????????边框除了表格线之外，vsFlexGrid还可以类似Excel一样，设置单元格式的边框线条，包括颜色、粗细，有无：VSFlexGrid.CellBorderColorAsOLE_COLOR,LeftAsInteger,TopAsInteger,RightAsInteger,BottomAsInteger,VerticalAsInteger,HorizontalAsInteger2)????????自动行高，列宽使用AutoSize方法，可以使列宽、或者行高根据单元格的内容进行自适应调整。其中列宽也可以通过双击表头进行自适应调整。3)????????树形缩进(TreeList)通过设置表格行的IsSubtotal、RowOutlineLevel属性，可以实现树形风格的缩进层次样式，这样vsFlexGrid就可以实现TreeView和ListView的结合。4)????????自绘通过设置OwnerDraw属性，可对实现对单元格内容的自绘处理，主要结合DrawCell事件进行：DrawCell(ByValhDCAsLong,ByValRowAsLong,ByValcolAsLong,ByValleftAsLong,ByValtopAsLong,ByValrightAsLong,ByValbottomAsLong,doneAsBoolean)5)????????背景可以为vsFlexGrid设置背景图，背景图相对单元格式内容是透明的，并且可以设置对齐和平铺属性。6)????????列排序，行、列拖动设置vsFlexGrid.ExplorerBar属性，就可以实现类似Windows的资源管理器一样，点击列头进行列数据排序，或者用鼠标拖动改变列、行的顺序。7)????????冻结行列除了固定行列头外，还可以类似Excel一样，通过vsFlexGrid.FrozenCols/FrozenRows设置冻结行列，冻结行列在滚动时，和固定行列是一样的效果，但是光标可以进入到冻结行列范围内的单元格中去。五、丰富的事件控制：vsFlexGrid一共有50多个事件，这些事件主要用于编辑和界面控制，在使用过程中，经常可能会发现某个事件特别有用；因此充分利用这些事件，可以很方便地实现很多功能，下面是它支持的事件及对应列表，粗体是较常用的，从定义基本就可以看出它的作用；详细的事件说明，可以查看帮助。l?AfterCollapse(ByValRowAsLong,ByValStateAsInteger)l?AfterDataRefresh()l?AfterEdit(ByValRowAsLong,ByValColAsLong)l?AfterMoveColumn(ByValColAsLong,PositionAsLong)l?AfterMoveRow(ByValRowAsLong,PositionAsLong)l?AfterRowColChange(ByValOldRowAsLong,ByValOldColAsLong,ByValNewRowAsLong,ByValNewColAsLong)l?AfterScroll(ByValOldTopRowAsLong,ByValOldLeftColAsLong,ByValNewTopRowAsLong,ByValNewLeftColAsLong)l?AfterSelChange(ByValOldRowSelAsLong,ByValOldColSelAsLong,ByValNewRowSelAsLong,ByValNewColSelAsLong)l?AfterSort(ByValColAsLong,OrderAsInteger)l?AfterUserFreeze()l?AfterUserResize(ByValRowAsLong,ByValColAsLong)l?BeforeCollapse(ByValRowAsLong,ByValStateAsInteger,CancelAsBoolean)l?BeforeDataRefresh(CancelAsBoolean)l?BeforeEdit(ByValRowAsLong,ByValColAsLong,CancelAsBoolean)l?BeforeMouseDown(ByValButtonAsInteger,ByValShiftAsInteger,ByValXAsSingle,ByValYAsSingle,CancelAsBoolean)l?BeforeMoveColumn(ByValColAsLong,PositionAsLong)l?BeforeMoveRow(ByValRowAsLong,PositionAsLong)l?BeforePageBreak(ByValRowAsLong,BreakOKAsBoolean)l?BeforeRowColChange(ByValOldRowAsLong,ByValOldColAsLong,ByValNewRowAsLong,ByValNewColAsLong,CancelAsBoolean)l?BeforeScroll(ByValOldTopRowAsLong,ByValOldLeftColAsLong,ByValNewTopRowAsLong,ByValNewLeftColAsLong,CancelAsBoolean)l?BeforeScrollTip(ByValRowAsLong)l?BeforeSelChange(ByValOldRowSelAsLong,ByValOldColSelAsLong,ByValNewRowSelAsLong,ByValNewColSelAsLong,CancelAsBoolean)l?BeforeSort(ByValColAsLong,OrderAsInteger)l?BeforeUserResize(ByValRowAsLong,ByValColAsLong,CancelAsBoolean)l?CellButtonClick(ByValRowAsLong,ByValColAsLong)l?CellChanged(ByValRowAsLong,ByValColAsLong)l?ChangeEdit()l?Click()l?ComboCloseUp(ByValRowAsLong,ByValColAsLong,FinishEditAsBoolean)l?ComboDropDown(ByValRowAsLong,ByValColAsLong)l?Compare(ByValRow1AsLong,ByValRow2AsLong,CmpAsInteger)l?DblClick()l?DragDrop(SourceAsControl,XAsSingle,YAsSingle)l?DragOver(SourceAsControl,XAsSingle,YAsSingle,StateAsInteger)l?DrawCell(ByValhDCAsLong,ByValRowAsLong,ByValColAsLong,ByValLeftAsLong,ByValTopAsLong,ByValRightAsLong,ByValBottomAsLong,DoneAsBoolean)l?EndAutoSearch()l?EnterCell()l?Error(ByValErrorCodeAsLong,ShowMsgBoxAsBoolean)l?FilterData(ByValRowAsLong,ByValColAsLong,ValueAsString,ByValSavingToDBAsBoolean,WantThisColAsBoolean)l?GetHeaderRow(ByValRowAsLong,HeaderRowAsLong)l?GotFocus()l?KeyDown(KeyCodeAsInteger,ShiftAsInteger)l?KeyDownEdit(ByValRowAsLong,ByValColAsLong,KeyCodeAsInteger,ByValShiftAsInteger)l?KeyPress(KeyAsciiAsInteger)l?KeyPressEdit(ByValRowAsLong,ByValColAsLong,KeyAsciiAsInteger)l?KeyUp(KeyCodeAsInteger,ShiftAsInteger)l?KeyUpEdit(ByValRowAsLong,ByValColAsLong,KeyCodeAsInteger,ByValShiftAsInteger)l?LeaveCell()l?LostFocus()l?MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)l?MouseMove(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)l?MouseUp(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)l?OLECompleteDrag(EffectAsLong)l?OLEDragDrop(DataAsVSFlex8Ctl.VSDataObject,EffectAsLong,ByValButtonAsInteger,ByValShiftAsInteger,ByValXAsSingle,ByValYAsSingle)l?OLEDragOver(DataAsVSFlex8Ctl.VSDataObject,EffectAsLong,ByValButtonAsInteger,ByValShiftAsInteger,ByValXAsSingle,ByValYAsSingle,StateAsInteger)l?OLEGiveFeedback(EffectAsLong,DefaultCursorsAsBoolean)l?OLESetCustomDataObject(CustomDataObjectAsVariant)l?OLESetData(DataAsVSFlex8Ctl.VSDataObject,DataFormatAsInteger)l?OLEStartDrag(DataAsVSFlex8Ctl.VSDataObject,AllowedEffectsAsLong)l?RowColChange()l?SelChange()l?SetupEditStyle(ByValRowAsLong,ByValColAsLong,ByValIsComboAsBoolean,StyleAsLong,StyleExAsLong)l?SetupEditWindow(ByValRowAsLong,ByValColAsLong,ByValEditWindowAsLong,ByValIsComboAsBoolean)l?StartAutoSearch()l?StartEdit(ByValRowAsLong,ByValColAsLong,CancelAsBoolean)l?StartPage(ByValhDCAsLong,ByValPageAsLong,CancelAsBoolean)l?Validate(CancelAsBoolean)l?ValidateEdit(ByValRowAsLong,ByValColAsLong,CancelAsBoolean)六、附加功能：1)????????属性页：在vsFlexGrid的属性页中，可以对表格进行格式和内容设计，这样可以省去一些代码(这部分属性页处理的内容保存在窗体的frx文件中)。2)????????导入/导出：通过LoadGrid/SaveGrid方法，可以对表格内容进行导入导出；导入导出的格式有几种：l?它自已的二进制格式。l?带一定分隔符的文本文件。l?Excel97格式(不需要安装Excel，速度很快，但有一些属性不支持)。3)????????打印通过PrintGrid方法，可以将vsFlexGrid按照当前的格式和数据进行打印输出，但这个功能比较简单，比如不能进行预览，设置页眉页脚等。(ComponentOne的另一套控件vsView与vsFlexGrid配合可以实现强大的打印相关功能)作为一个只有600多K大小的控件(vsFlexGrid.ocx)，功能这么强大确实非常不错，在ZLHIS中也进行了大量的使用，上面只是简略列举了它的部分功能，更详细的功能可以运行它的Demo进行展示，也可以查看它的帮助文件，都比较详尽VSFlexGrid控件?1,如果想把某一列设置成下拉匡中选择，只能写成grid.colcombolist(1)="a|b|c"吗？能不能把下拉框中的数据和recordset或数组绑定。 答案 八年级地理上册填图题岩土工程勘察试题省略号的作用及举例应急救援安全知识车间5s试题及答案 :grid.colcombolist(1)＝grid.buildcombolist(rs!abc)2,怎样限定第三列可编辑,其他列不可编辑?答案:PrivateSubfg_BeforeEdit(ByValRowAsLong,ByValColAsLong,CancelAsBoolean)?'*******先将设editable=2?'限定不可编辑列,如有5列?IfCol=0ThenCancel=True?IfCol=1ThenCancel=True?IfCol=2ThenCancel=True?IfCol=4ThenCancel=True?IfCol=5ThenCancel=TrueEndSub3、怎么获得当前单元个的位置，比如某单元个获得焦点，弹出msgbox("你选的是第4行第5列")Answer:PrivateSubVSFlexGrid1_Click()??Dima,bAsLong????a=VSFlexGrid1.Row????b=VSFlexGrid1.Col??MsgBox"你选的是"&a&"行"&b&"列"EndSub4,对vsflexgrid进行编辑的时候，让vsflexgrid的某列只能输入数字?Answer:PrivateSubCheckData(KeyAsciiAsInteger)??IfKeyAscii>=48AndKeyAscii<=57ThenExitSub'如果是数字退出??IfKeyAscii<>8ThenKeyAscii=0EndSubPrivateSubvsflexgrid_KeyPressEdit(ByValRowAsLong,ByValColAsLong,KeyAsciiAsInteger)??Ifcol=1?Then??'第一列只能输入数字???CheckDataKeyAscii??EndIfEndSub5,限制某列只能输入数字Answer:PrivateSubfg_KeyPressEdit(ByValRowAsLong,ByValColAsLong,KeyAsciiAsInteger)DimNumbersAsString????'允许输入的字符Iffg.Col=6Then??'第6列?IfInStr(Numbers,Chr(KeyAscii))=0Then??KeyAscii=0?EndIfEndIfEndSub6,如何指定一列的输入格式VSFlexGrid控件属性方法一览表VSFlexGrid控件属性方法一览表(带()为方法)属性/方法名称????功能?????????????示例语法AddItem()??????增加一行???????????O.AString[,RowIndex]Aggregate??????返回集合合计(总数,平均,等等)?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.AArcFileName,FileName,0|1|2|3ArchiveInfo?????返回一个二进制文件信息????O.AArcFileName,0|1|2|3|4,LineIndexAutoReSize?????是否自动调整大小???????O.A=True|FalseAutoSearch?????设置自动搜索?????????O.A=0|1|2AutoSearchDelay???设置AutoSearch多少秒刷新???O.A=2AutoSize()?????自动调整列到指定宽度?????O.ACol1,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.AArrayStr,RowDim,ColDim,PageDim,CurrentPageBookmark??????返回ADORecordset行书签(只读)?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.AColor,左,上,右,下,垂直,水平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.ACol=100ColIndex??????返回列索引(只读)???????O.AColColIsVisible????返回列是否可见(只读)?????O.AColColKey???????设置列钥匙??????????O.A(Col)=KeyStrColPos???????返回列距左边宽度(只读)????O.AColColPosition?????移动列的位置?????????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|c"ComboSearch?????Combo下拉按钮搜寻方式?????O.A=0|1|2|3DataBindings????返回数据装入数(只读)?????O.ADataMember?????返回/设置数据描述成员?????O.A=DataStrDataMode??????设置数据链接状态???????O.A=0|1|2|3|4DataRefresh()????刷新数据源??????????O.ADataSource?????设置数据源??????????SetO.A=DataDimDrag()???????拖放?????????????O.A[0|1|2]DragIcon??????拖放图标???????????O.A=LoadPicture("D:\Icon.ico")DragMode??????拖放方式???????????O.A=0|1DragRow()??????拖放行(本示例在MouseDown过程)?O.AO.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="Str"EditText??????编辑文本???????????O.A="Str"EditWindow?????返回编辑窗口(只读)??????O.AEllipsis??????超宽字符加省略号???????O.A=0|1|2Enabled???????对象是否激活可用???????O.A=False|TrueExplorerBar?????单击列头的选择、拖动或排序样式O.A=0至15ExtendLastCol????是否扩充最后的列到适合宽度??O.A=False|TrueFillStyle??????是否改变当前范围的内容或格式?O.A=0|1FindRow???????查找符和条件返回的行(只读)??O.AFindStr,[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.ARow1,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.AFileName,0至6[,True(含固定行列)|False]LoadGridURL()????载入网格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.ALeft,[Top],[Width],[Height]MultiTotals????????Multi总数Name????????对象名称(运行时只读)?????O.ANodeClosedPicture??节点封闭的图标????????O.A=LoadPicture("C:\.ico")NodeOpenPicture???节点打开的图标????????O.A=LoadPicture("C:\.ico")Object???????返回/设置该对象变量??????SetDimObjName=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至6Picture???????返回控件的图片(只读)?????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.AVSG1.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.ARowRowPosition?????移动行的位置?????????O.A(Row)=NewRowRows????????返回/设置总行数????????O.A=2RowSel???????返回/设置最后选择的行?????O.A=2RowStatus??????设置行状态??????????O.A=0|1|2|3SaveGrid()?????保存网格内容到二进制文件???O.AFileName,0至6[,True(含固定行列)|False]ScrollBars?????设定卷动轴的方式???????O.A=0|1|2|3ScrollTips?????卷轴提示???????????O.A=False|TrueScrollTipText????卷轴提示文本?????????O.A="Text"ScrollTrack?????行是否随拖动条卷动显示????O.A=False|TrueSelect()??????选择行列范围?????????O.ARow,Col[,RowSel][,ColSel]SelectedRow?????已选择行(只读)????????O.A(Row)SelectedRows????返回所选总行数(只读)?????O.ASelectionMode????设置单元焦点选中方式?????O.A=0|1|2|3SetFocus()?????设置到对象焦点????????O.ASheetBorder?????表格边框颜色?????????O.A=ColorShowCell()?????立刻显示到指定单元??????O.ARow,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="TextString"Top?????????对象上边距??????????O.A=100TopRow???????指定显示在最上面的行?????O.A=5TreeColor??????目录树颜色??????????O.A=ColorValue????????返回当前单元数值部分(只读)??O.AValueMatrix?????返回指定单元数值部分(只读)??O.ARow,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.A0|1vsflexgrid技巧大全如何实现将vsflexgrid中修改的数据反馈到数据库中？？PrivateSubvsflexgrid1_AfterEdit(ByValRowAsLong,ByValColAsLong)?rs.MoveFirst??'//rs为记录集?rs.Movevsflexgrid1.Row-1?rs.Edit?Ifvsflexgrid1.text=""Then???rs.Fields(vsflexgrid1.Col-1)=Null?Else???rs.Fields(vsflexgrid1.Col-1)=vsflexgrid1.text?EndIf?rs.Updateendsub?一、增加记录使用for来循环表格行。???fori=1togrid1.rows-1?????withrs?????????.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??????endwith???next二、添加行　　grid1.additemrow三、删除当前行　　withgrid1??????i=.row??????.removeitemi???endwith四、要显示下拉框，可以使用vsflexgrid中列绑定功能　　grid1.colcombolist(1)＝grid.buildcombolist(rs,"商品名称")?跟楼上的相比,仅仅是datamode不一样(2-flexDMBoundBatch)但这样做的优势是非常明显的:可以撤销包括新增删除在内的所有操作,按保存键才写入数据库PrivateSubCmdDel_Click()Iffg.Row<>0Thenfg.RemoveItem(fg.Row)fg.RefreshEndSubPrivateSubCmdAdd_Click()OnErrorResumeNextIfErr.Number<>0ThenMsgBoxErr.DescriptionEndSubPrivateSubCmdUpdate()EndSubPrivateSubCmdCancel_Click()??fg.DataRefreshEndSubPrivateSubForm_Load()Adodc1.ConnectionString="FILENAME="&App.Path&"\conn.dsn"Adodc1.LockType=adLockBatchOptimisticAdodc1.RecordSource="Your_Tablename"Setfg.DataSource=Adodc1EndSub1、打印vsflexgrid可以使用vsprinter打印控件。跟vsflexgrid配套使用效果不错。2、导出EXECL，可以使用grid.savegrid的方法。??用savegrid的方法，在导出execl时，如果碰到类似于银行帐号的列如：“６４６５４５６６６５”，导到ＥＸＥＣＬ中就不这样显示了，这个问题还不知道怎么解决？？???另外也可以写代码（这个方法比较实用，但慢一些）：??DimexcelAppAsExcel.Application??SetexcelApp=NewExcel.Application??OnErrorResumeNext??IfexcelAppIsNothingThen????SetexcelApp=CreateObject("Excel.application")????Ifexce