VSflexgrid使用说明

1、1,如果想把某一列设置成下拉匡中选择，只能写成 grid.colcombolist(1) = "a|b|c" 吗？能不能把下拉框中的数据和 recordset 或数组绑定。  答案:grid.colcombolist(1)grid.buildcombolist(rs!abc)2,怎样限定第三列可编辑,其他列不可编辑?答案:Private Sub fg_BeforeEdit(ByVal Row As Long, ByVal Col

2、0;As Long, Cancel As Boolean)  '*先将设editable=2  '限定不可编辑列,如有5列  If Col = 0 Then Cancel = True  If Col = 1 Then Cancel = True  If Col = 2&#

3、160;Then Cancel = True  If Col = 4 Then Cancel = True  If Col = 5 Then Cancel = TrueEnd Sub3、怎么获得当前单元个的位置，比如某单元个获得焦点，弹出msgbox("你选的是第4行第5列")Answer:Private Sub VSFlexGrid1_

4、Click()    Dim a, b As Long        a = VSFlexGrid1.Row        b = VSFlexGrid1.Col    MsgBox "你选的是" & a &am

5、p; "行" & b & "列"End Sub4,对vsflexgrid进行编辑的时候，让vsflexgrid的某列只能输入数字?Answer:Private Sub CheckData(KeyAscii As Integer)   If KeyAscii >= 48 And KeyAscii <= 57 Then

6、60;Exit Sub '如果是数字退出   If KeyAscii <> 8 Then KeyAscii = 0End SubPrivate Sub vsflexgrid_KeyPressEdit(ByVal Row As Long, ByVal Col As Long, KeyAscii As Integer) &

7、#160; If col=1  Then    '第一列只能输入数字      CheckData KeyAscii   End IfEnd Sub5,限制某列只能输入数字Answer:Private Sub fg_KeyPressEdit(ByVal Row As Long, ByVal Col As

8、0;Long, KeyAscii As Integer)Dim Numbers As String        '允许输入的字符If fg.Col = 6 Then    '第6列  Numbers = "1234567890" + Chr(46) + Chr(

9、8)  If InStr(Numbers, Chr(KeyAscii) = 0 Then    KeyAscii = 0  End IfEnd IfEnd Sub6,如何指定一列的输入格式VSFlexGrid 控件属性方法一览表VSFlexGrid 控件属性方法一览表(带()为方法)属性/方法名称        功能&

10、#160;                          示例语法AddItem()            增加一行        &#

11、160;              O.A String, RowIndexAggregate            返回集合合计(总数,平均,等等)   O.A = (A,Row1,Col1,Row2,Col2)Align    

12、;            对象在窗体上的显示位置         O.A = 0|1|2|3|4AllowBigSelection    设定列头是否整行或整列选择     O.A = True|FalseAllowSelection  &

13、#160;    是否可多单元选择               O.A = True|FalseAllowUserFreezing    运行时用鼠标冻结行或列         O.A = 0|1|2|3AllowUserResizing&

14、#160;   调整(行/列)大小方式            O.A = 0|1|2|3|4Appearance           边框平面/凹陷/凸起             O.A&#

15、160;= 0|1|2Archive()            存储或清除一个二进制文件内容   O.A ArcFileName,FileName,0|1|2|3ArchiveInfo          返回一个二进制文件信息        

16、0;O.A ArcFileName,0|1|2|3|4,LineIndexAutoReSize           是否自动调整大小               O.A = True|FalseAutoSearch        

17、   设置自动搜索                   O.A = 0|1|2AutoSearchDelay      设置AutoSearch多少秒刷新       O.A = 2AutoSize()

18、0;          自动调整列到指定宽度           O.A Col1,Col2,True|False,1000AutoSizeMode         自动调整适合行列内容        

19、0;  O.A = 0|1AutoSizeMouse        是否双击列首自动调整适合行列   O.A = True|FalseBackColor            所有非固定行列的背景色         O.

20、A = ColorBackColorAlternate   所有非固定行列的交替行颜色     O.A = ColorBackColorBkg         表格背景坐底色                 O.A

21、60;= ColorBackColorFixed       固定的行/列背景色              O.A = ColorBackColorFrozen      冻结部分的行列背景色         

22、  O.A = ColorBackColorSel         单元被选中的背景色             O.A = ColorBindToArray()        绑定数组    

23、0;   O.A ArrayStr,RowDim,ColDim,PageDim,CurrentPageBookmark             返回ADO Recordset行书签(只读)  O.A(Row)BorderStyle          边框粗细样式   &

24、#160;               O.A = 0|1BottomRow            返回可见范围的最大行号(只读)   O.ABuildComboList()     将数据库中的内容写入下拉框 

25、0;   O.A(rs, FieldList, KeyField, BackColor)CausesValidation     ?目标事件确认                O.A = False|TrueCell        

26、;         选择部分的相应准则值           O.A(准则, Row1, Col1, Row2, Col2) = 准则值CellAlignment        设定单元里数据的排列方式     

27、;  O.A = 0 至 9CellBackColor        指定单元范围的背景颜色         O.A = ColorCellBorder()         选择单元范围的边界颜色     &#

28、160;   O.A Color,左,上,右,下,垂直,水平CellButtonPicture    选择单元范围的按钮图片         O.A = LoadPicture("D:Icon.ico")CellChecked          选择单元范围的复选框  

29、         O.A = 0|1|2CellFloodColor       选择单元范围的流程颜色         O.A = ColorCellFloodPercent     选择单元范围的流程百分比    &

30、#160;  O.A = 1 至 100CellFontBold         指定单元范围设为黑体字         O.A = False|TrueCellFontItalic       指定单元范围设为斜体字    &#

31、160;    O.A = False|TrueCellFontName         对象所使用的字体名称           O.A = FontNameCellFontSize         对象文字像数大小(默认9pt

32、)      O.A = 9CellFontStrikethru   选择范围是否有删除线           O.A = False|TrueCellFontUnderline    选择范围是否有下画线         

33、60; O.A = False|TrueCellFontWidth        设定单元或指定范围字体的宽度   O.A = 2CellForeColor        设定单元或指定范围字体的颜色   O.A = ColorCellHeight     &

34、#160;     返回/显示到当前单元高度(只读)  O.ACellLeft             返回当前单元的左端位置(只读)   O.ACellPicture          显示在单元或指定范围中的图片   O.A 

35、= LoadPicture("D:Icon.ico")CellPictureAlingment 单元或指定范围图片的显示位置   O.A = 0 至 10CellTextStyle        设定单元文本的显示形式         O.A = 0|1|2|3|4CellTop 

36、0;            返回当前单元的顶端位置(只读)   O.ACellWidth            返回当前单元的宽度(只读)       O.AClear()       &#

37、160;      清除表格内容                   O.A(0|1|2,0|1|2|3)ClientHeight         返回客户可见范围高度       

38、0;   O.AClientWidth          返回客户可见范围宽度           O.AClip                 设置选择范围的内容  

39、           O.A = TextClipSeparators       ?Col                  设置激活单元的列号      &

40、#160;      O.A = 2ColAlignment         列对齐排列方式                 O.A(Col) = 0 至 9ColComboList   &

41、#160;     向下拉框写入管道字符           O.A(Col) = "|ListStr1|ListStr2|."ColData              设置用户定义的长整形数据     

42、60; O.A(Col) = UserLongColDataType          列数据类型                     O.A(Col)=0至14到20(&H14),30(&H1E),31(&H1F)ColEditM

43、ask          列编辑套用格式字符串           O.A(Col) = 指定的格式如：#ColFormat            格式化显示列       

44、60;           O.A(Col) = "Currency"|"#.#%".ColHidden            是否隐藏指定列              

45、   O.A(Col) = True|FalseColImageList         设置图像列表句柄到列ColIndent            缩进指定列               

46、;      O.A Col= 100ColIndex             返回列索引(只读)               O.A ColColIsVisible     &#

47、160;   返回列是否可见(只读)           O.A ColColKey               设置列钥匙              

48、0;      O.A(Col) = KeyStrColPos               返回列距左边宽度(只读)         O.A ColColPosition        &#

49、160; 移动列的位置                   O.A(Col) = ReColCols                 返回/设置总列数     

50、           O.A = 2ColSel               返回/设置最后选择的列          O.A = 3ColSort    &#

51、160;         设置列种类                     O.A(Col) = 0 至 10ColWidth           

52、  返回/设置指定列宽              O.A(Col) = 100ColWidthMax          最大列宽                

53、       O.A(Col) = 5000ColWidthMin          最小列宽                       O.A(Col) = 

54、;100ComboCount           取得Combo下拉按钮总数(只读)    O.AComboData            Combo下拉按钮数据(只读)        O.AComboIndex   &

55、#160;       Combo下拉按钮索引              O.A = 1ComboItem            Combo下拉按钮项目(只读)       

56、60;O.AComboList            向下拉框写入管道字符内容       O.A = "a|b|c"ComboSearch          Combo下拉按钮搜寻方式       

57、   O.A = 0|1|2|3Container            返回/设置对象的容器            O.A.Caption = "Forms"DataBindings       &

58、#160; 返回数据装入数(只读)           O.ADataMember           返回/设置数据描述成员          O.A = DataStrDataMode     &

59、#160;       设置数据链接状态               O.A = 0|1|2|3|4DataRefresh()        刷新数据源          

60、0;          O.ADataSource           设置数据源                     Set O.A = Dat

61、aDimDrag()               拖放                           O.A 0|1|2DragIcon  &#

62、160;          拖放图标                       O.A = LoadPicture("D:Icon.ico")DragMode      

63、;       拖放方式                       O.A = 0|1DragRow()            拖放行(本示例在MouseDo

64、wn过程)  O.A O.RowSelEditable             设置表格是否可编辑修改         O.A = 0|1|2EditCell()           当移动到当前单元时自动选择 

65、;    O.AEditMask             当编辑时只能使用指定值         O.A = StrValueEditMaxLength        所有单元限制字节大小    &#

66、160;      O.A = 2EditSelLength        编辑时选择长度                 O.A = 5EditSelStart       &#

67、160; 移动到单元时的光标位置         O.A = 0(或者Len(vsg.text)EditSelText          编辑选择处放文本               O.A = "S

68、tr"EditText             编辑文本                       O.A = "Str"EditWindow    

69、;       返回编辑窗口(只读)             O.AEllipsis             超宽字符加省略号            

70、   O.A = 0|1|2Enabled              对象是否激活可用               O.A = False|TrueExplorerBar      

71、;    单击列头的选择、拖动或排序样式 O.A = 0 至 15ExtendLastCol        是否扩充最后的列到适合宽度     O.A = False|TrueFillStyle            是否改变当前范围的内容

72、或格式   O.A = 0|1FindRow              查找符和条件返回的行(只读)     O.A FindStr,Row,Col,敏感,精度)FinishEditing()      完成编辑的      &#

73、160;              O.A = False|TrueFixedAlignment       固定列的对齐方式               O.A(Col) = 0 至

74、60;9FixedCols            固定几列                       O.A = 1FixedRows        

75、;    固定几行                       O.A = 1FlexDataSource       流动数据源         &

76、#160;           O.A = rsDateFloodColor           设置流程颜色                   O.A =&

77、#160;ColorFocusRect            单元的选择虚框样式类型          O.A = 0|1|2|3|4|5Font                 设定字体&

78、#160;                      O.A = FontNameFontBold             设定字体粗体        

79、;           O.A = False|TrueFontItalic           设定字体斜体                   O.A =&

80、#160;False|TrueFontName             设定字体名称                   O.A = FontNameFontSize        

81、;     设定字体大小                   O.A = 10FontStrikethru       设定字体删除线           &#

82、160;     O.A = False|TrueFontUnderline        设定字体下划线                 O.A = False|TrueFontWidth      

83、;      设定字体的宽度(非间距)         O.A = 2ForeColor            设定字体前景颜色               O

84、.A = ColorForeColorFixed       设定固定单元的文本颜色         O.A = ColorForeColorFrozen      设定字体冻结部分的前景颜色     O.A = ColorForeColorSel  

85、;       设定选择单元的文本颜色         O.A = ColorFormatString         设计管道符格式化行/列字符串    O.A = Format(1,"#0.00")FrozenCols  &#

86、160;        需要冻结的列数                 O.A = 2FrozenRows           需要冻结的行数      

87、60;          O.A = 2GetMergedRange()     ?获得合并山脉GetNode()            ?获得节点GetNodeRow()         ?获得节点行GetSelect

88、ion()       ?获得选择                   O.A Row1, Col1, Row2, Col2GridColor            单元行列的网格

89、线颜色           O.A = ColorGridColorFixed       设定固定网格线的颜色           O.A = ColorGridLines        

90、    可编辑区的网格线类型           O.A = 0 至 14GridLinesFixed       固定行列网格效果类型           O.A = 0 至 14Grid

91、LineWidth        编辑区的网格线线粗细           O.A = 1Height               设置对象高度        

92、           O.A = 1000HelpContextID        对象缺省上下文帮助ID           O.A = HelpIDHighLight       

93、60;    是否突出加亮显示选中单元       O.A = 0无|1默认|2仅焦点时有hWnd                 获取对象句柄             

94、      O.AIndex                对象索引号(运行时只读)         O.AIsCollapsed          ?IsSelected 

95、60;         是否已选择                     O.AIsSubtotal           是否已小记    

96、0;                O.ALeft                 对象距左边位置              &#

97、160;  O.A = 100LeftCol              指定显示在最左边的列           O.A = 1LoadArray()          载入数组LoadGr

98、id()           载入网格                       O.A FileName, 0 至 6,True(含固定行列)|FalseLoadGridURL()   

99、     载入网格URLMergeCells           相同内容的单元格合并类型       O.A = 0|1|2|3|4|5|6MergeCol             是否上下列合并  

100、;               O.A(Col) = TrueMergeCompare         返回/设置合并比较类型          O.A = 0|1|2MergeRow   

101、          是否左右行合并                 O.A(Row) = TrueMouseCol             返回鼠标指向的当前列号 

102、60;       O.AMouseIcon            设定鼠标指向的当前图形         O.A = LoadPicture("C:.ico")MousePointer        

103、; 设置对象的鼠标指针样式         O.A = 0 到 15|99MouseRow             返回鼠标指向的当前行号         O.AMove()     

104、60;         移动对象                       O.A Left,Top,Width,HeightMultiTotals          

105、?Multi总数Name                 对象名称(运行时只读)           O.ANodeClosedPicture    节点封闭的图标         

106、0;       O.A = LoadPicture("C:.ico")NodeOpenPicture      节点打开的图标                 O.A = LoadPicture("C:.ico")Ob

107、ject               返回/设置该对象变量            Set DimObjName = O.AOLEDrag()            OLE拖拽数据&

108、#160;                   O.AOLEDragMode          OLE拖拽方式                

109、0;   O.A = 0|1OLEDropMode          OLE拖拽落下方式                O.A = 0|1|2Outline()         &

110、#160;  ?外面的线OutlineBar           返回/设置显示目录树的线条       O.A = 0 至 6OutlineCol           ?外面的线列OwnerDraw    &

111、#160;       返回或设置执行 DrawCell 事件   O.A = 0 至 6Parent               返回该对象所在的对象(只读)     O.A.Caption = "Forms

112、"Picture              返回控件的图片(只读)           O.A.属性|方法 = 相应值PicturesOver         返回控件图片结束    

113、60;          O.A = False|TruePictureType          用Picture属性生成的图片类型    O.A = 0|1PrintGrid()          打印网格数据

114、60;                  O.A "主题",True|False,1|2,左右空,上下空Redraw               设定是否刷新控件      

115、60;        O.A = 0|1|2Refresh()            刷新表格                       O.ARe

116、moveItem()         删除指定行                     O.A VSG1.RowSelRightCol             

117、;返回右边最大的可见列范围       O.ARightToLeft          是否将固定行放到右边           O.A = TrueRow            

118、      设置激活单元的行号             O.A = 2RowData              设置用户定义的长整形数据       O.A(Row) =

119、 UserLongRowHeight            返回/设置指定行高              O.A(Row) = 100RowHeightMax         行高的最大值  

120、0;                O.A(Row) = 500RowHeightMin         行高的最小值                 

121、0; O.A(Row) = 230RowHidden            是否隐藏指定行                 O.A(2) = True|FalseRowIsVisible      &

122、#160;  返回行是否在可见范围中(只读)   O.A(Row)RowOutlineLevel      返回/设置水平行小记            O.A(Row) = 0|1RowPos             &

123、#160; 返回行距上边高度(只读)         O.A RowRowPosition          移动行的位置                   O.A(Row) = 

124、;NewRowRows                 返回/设置总行数                O.A = 2RowSel          

125、     返回/设置最后选择的行          O.A = 2RowStatus            设置行状态                

126、     O.A = 0|1|2|3SaveGrid()           保存网格内容到二进制文件       O.A FileName, 0 至 6,True(含固定行列)|FalseScrollBars        &#

127、160;  设定卷动轴的方式               O.A = 0|1|2|3ScrollTips           卷轴提示              

128、;         O.A = False|TrueScrollTipText        卷轴提示文本                   O.A = "Text"Scroll

129、Track          行是否随拖动条卷动显示         O.A = False|TrueSelect()             选择行列范围        

130、0;          O.A Row,Col,RowSel,ColSelSelectedRow          已选择行(只读)                 O.A(Row)SelectedRows &

131、#160;       返回所选总行数(只读)           O.ASelectionMode        设置单元焦点选中方式           O.A = 0|1|2|3SetFocus()

132、60;          设置到对象焦点                 O.ASheetBorder          表格边框颜色        

133、           O.A = ColorShowCell()           立刻显示到指定单元             O.A Row, ColShowComboButton  &

134、#160;   是否显示当选择时拉下按钮       O.A = 0|1|2ShowWhatsThis()      显示“这是什么”               O.ASort       

135、0;         按照选择的基准重新排序顺序方式  O.A = 0 到 10Subtotal()           小计                  

136、;         O.A 属性名,其它共9个可省略参数SubtotalPosition     是否小计上面或下面的数值       O.A = 0|1TabBehavior          Tab键跳转顺序禁止   

137、0;          O.A = 0|1TabIndex             对象的Tab选择顺序              O.A = 2TabStop  

138、60;           是否允许Tab自动选择            O.A = True|FalseTag                  存储数据时所需的附加数

139、据       O.A = StrText                 返回/写入当前单元的文字        O.A = StrTextMatrix       &

140、#160;   返回/写入指定单元的文字        O.A(Row, Col) = StrTextStyle            单元格文字效果                

141、; O.A = 0|1|2|3|4TextStyleFixed       固定行列文本的3D效果           O.A = 0|1|2|3|4ToolTipText          鼠标指向表格的说明消息    

142、0;    O.A = "TextString"Top                  对象上边距                    

143、 O.A = 100TopRow               指定显示在最上面的行           O.A = 5TreeColor            目录树颜色

144、                     O.A = ColorValue                返回当前单元数值部分(只读)     O.AValue

145、Matrix          返回指定单元数值部分(只读)     O.A Row, ColVersion              返回控件的版本号(只读)         O.AVirtualD

146、ata          虚拟数据                      O.A = True|FalseVisible           &#

147、160;  是否显示对象                   O.A = True|FalseWallPaper            表格壁纸背景图  O.A=LoadPicture(Image) | O.A

148、.属性|方法 = 相应值WallPaperAlignment   壁纸背景图墙报对齐方式         O.A(Col) = 0 至 10WhatsThisHelpID      设置与对象相关联的上下文号     O.A = HelpIDStringWidth  &

149、#160;             设置对象宽度                   O.A = 5000WordWrap           

150、60; 设定单元中的文本是否换行       O.A = True|FalseZOrder()             设置对象Z顺序                  O.A 0

151、|1vsflexgrid技巧大全如何实现将vsflexgrid中修改的数据反馈到数据库中？Private Sub vsflexgrid1_AfterEdit(ByVal Row As Long, ByVal Col As Long)  rs.MoveFirst    '/rs为记录集  rs.Move vsflexgrid1.Row - 1  rs.Edit 

152、 If vsflexgrid1.text = "" Then      rs.Fields(vsflexgrid1.Col - 1) = Null  Else     rs.Fields(vsflexgrid1.Col - 1) = vsflexgrid1.text  End If

153、0; rs.Updateend sub     一、增加记录使用for来循环表格行。     for i=1 to grid1.rows-1          with rs              

154、0;  .addnew                 .fileds(o)=grid1.textmariy(i,0)                 .fileds(1)=grid1.textmariy(i,1)  &

155、#160;              .fileds(2)=grid1.textmariy(i,2)                 .fileds(3)=grid1.textmariy(i,3)        

156、;         .update           end with      next二、添加行grid1.additem row三、删除当前行with grid1           

157、0;i=.row            .removeitem i      end with四、要显示下拉框，可以使用vsflexgrid中列绑定功能grid1.colcombolist(1)grid.buildcombolist(rs,"商品名称") 跟楼上的相比,仅仅是datamode不一样(2-flexDMBoundBatch)但这样做的优势是非常明显的:可以

158、撤销包括新增删除在内的所有操作,按保存键才写入数据库Private Sub CmdDel_Click()If fg.Row <> 0 Then fg.RemoveItem (fg.Row)fg.RefreshEnd SubPrivate Sub CmdAdd_Click()On Error Resume NextAdodc1.Recordset.AddNewIf Err.Number <> 0 

159、;Then MsgBox Err.DescriptionEnd SubPrivate Sub CmdUpdate()Adodc1.Recordset.UpdateBatch adAffectAllChaptersEnd SubPrivate Sub CmdCancel_Click()    Adodc1.Recordset.CancelBatch    fg.DataRefreshEnd SubPrivate

160、0;Sub Form_Load()Adodc1.ConnectionString = "FILE NAME=" & App.Path & "conn.dsn"Adodc1.LockType = adLockBatchOptimisticAdodc1.RecordSource = "Your_Tablename"Set fg.DataSource = Adodc1End&#

161、160;Sub  1、打印vsflexgrid可以使用vsprinter打印控件。跟vsflexgrid配套使用效果不错。2、导出EXECL，可以使用grid.savegrid的方法。   用savegrid的方法 ，在导出execl时，如果碰到类似于银行帐号的列如：“”，导到中就不这样显示了，这个问题还不知道怎么解决？    另外也可以写代码（这个方法比较实用，但慢一些）：   Dim excelApp As Excel.Applic

162、ation    Set excelApp = New Excel.Application    On Error Resume Next    If excelApp Is Nothing Then       Set excelApp = CreateObject(

163、"Excel.application")       If excelApp Is Nothing Then          Exit Sub       End If    End If   &#

164、160;excelApp.Visible = True    Me.MousePointer = vbHourglass    excelApp.Workbooks.Add    With excelApp.ActiveSheet        Dim i As Integer, j As 

165、;Integer        For i = 1 To Grid1.rows            For j = 1 To Grid1.Cols            

166、0;     .Cells(i, j).value ="'"& Grid1.TextMatrix(i - 1), (j - 1)'加上“'”号则可以解决上面savegrid中银行帐号的导出问题。             Next j            DoEvents        Next i    End With&