VSFlexGrid控件-白红宇

VSFlexGrid控件

阅读量：5081 次

发布时间：2019-06-12

本文共 35525 字，大约阅读时间需要 118 分钟。

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 As Long, Cancel As Boolean)

'*******先将设editable=2

'限定不可编辑列,如有5列

If Col = 0 Then Cancel = True

If Col = 1 Then Cancel = True

If Col = 2 Then Cancel = True

If Col = 4 Then Cancel = True

If Col = 5 Then Cancel = True

End Sub

3、怎么获得当前单元个的位置，比如某单元个获得焦点，弹出msgbox("你选的是第4行第5列")

Answer:

Private Sub VSFlexGrid1_Click()

Dim a, b As Long

a = VSFlexGrid1.Row

b = VSFlexGrid1.Col

MsgBox "你选的是" & a & "行" & b & "列"

End Sub

4,对vsflexgrid进行编辑的时候，让vsflexgrid的某列只能输入数字?

Answer:

Private Sub CheckData(KeyAscii As Integer)

If KeyAscii >= 48 And KeyAscii <= 57 Then Exit Sub '如果是数字退出

If KeyAscii <> 8 Then KeyAscii = 0

End Sub

Private Sub vsflexgrid_KeyPressEdit(ByVal Row As Long, ByVal Col As Long, KeyAscii As Integer)

If col=1 Then '第一列只能输入数字

CheckData KeyAscii

End If

End Sub

5,限制某列只能输入数字

Answer:

Private Sub fg_KeyPressEdit(ByVal Row As Long, ByVal Col As Long, KeyAscii As Integer)

Dim Numbers As String '允许输入的字符

If fg.Col = 6 Then '第6列

Numbers = "1234567890" + Chr(46) + Chr(8)

If InStr(Numbers, Chr(KeyAscii)) = 0 Then

KeyAscii = 0

End If

End Sub

6,如何指定一列的输入格式

VSFlexGrid 控件属性方法一览表VSFlexGrid 控件属性方法一览表(带()为方法)

属性/方法名称功能示例语法

AddItem() 增加一行 O.A String[, 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.A ArcFileName,FileName,0|1|2|3

ArchiveInfo 返回一个二进制文件信息 O.A ArcFileName,0|1|2|3|4,LineIndex

AutoReSize 是否自动调整大小 O.A = True|False

AutoSearch 设置自动搜索 O.A = 0|1|2

AutoSearchDelay 设置AutoSearch多少秒刷新 O.A = 2

AutoSize() 自动调整列到指定宽度 O.A Col1,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.A ArrayStr,RowDim,ColDim,PageDim,CurrentPage

Bookmark 返回ADO Recordset行书签(只读) 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.A Color,左,上,右,下,垂直,水平

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.A Col= 100

ColIndex 返回列索引(只读) O.A Col

ColIsVisible 返回列是否可见(只读) O.A Col

ColKey 设置列钥匙 O.A(Col) = KeyStr

ColPos 返回列距左边宽度(只读) O.A Col

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

ComboData Combo下拉按钮数据(只读) O.A

ComboIndex Combo下拉按钮索引 O.A = 1

ComboItem Combo下拉按钮项目(只读) O.A

ComboList 向下拉框写入管道字符内容 O.A = "a|b|c"

ComboSearch Combo下拉按钮搜寻方式 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 设置数据源 Set O.A = DataDim

Drag() 拖放 O.A [0|1|2]

DragIcon 拖放图标 O.A = LoadPicture("D:\Icon.ico")

DragMode 拖放方式 O.A = 0|1

DragRow() 拖放行(本示例在MouseDown过程) O.A O.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.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,"#0.00")

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("C:\.ico")

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("C:\.ico")

NodeOpenPicture 节点打开的图标 O.A = LoadPicture("C:\.ico")

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 = "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.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 = "Text"

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 = "TextString"

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 = "" Then

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

二、添加行

　　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)

fg.Refresh

End Sub

Private Sub CmdAdd_Click()

On Error Resume Next

Adodc1.Recordset.AddNew

If Err.Number <> 0 Then MsgBox Err.Description

End Sub

Private Sub CmdUpdate()

Adodc1.Recordset.UpdateBatch adAffectAllChapters

End Sub

Private Sub CmdCancel_Click()

Adodc1.Recordset.CancelBatch

fg.DataRefresh

End Sub

Private Sub Form_Load()

Adodc1.ConnectionString = "FILE NAME=" & App.Path & "\conn.dsn"

Adodc1.LockType = adLockBatchOptimistic

Adodc1.RecordSource = "Your_Tablename"

Set fg.DataSource = Adodc1

End Sub

1、打印vsflexgrid可以使用vsprinter打印控件。跟vsflexgrid配套使用效果不错。

2、导出EXECL，可以使用grid.savegrid的方法。

用savegrid的方法，在导出execl时，如果碰到类似于银行帐号的列如：“６４６５４５６６６５”，导到ＥＸＥＣＬ中就不这样显示了，这个问题还不知道怎么解决？？

另外也可以写代码（这个方法比较实用，但慢一些）：

Dim excelApp As Excel.Application

Set excelApp = New Excel.Application

On Error Resume Next

If excelApp Is Nothing Then

Set excelApp = CreateObject("Excel.application")

If excelApp Is Nothing Then

Exit Sub

End If

excelApp.Visible = True

Me.MousePointer = vbHourglass

excelApp.Workbooks.Add

With excelApp.ActiveSheet

Dim i As Integer, j As Integer

For i = 1 To Grid1.rows

For j = 1 To Grid1.Cols

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

Next j

DoEvents

Next i

End With

Me.MousePointer = vbDefault

Set excelApp = Nothing

End Sub

EXCEL同Vsflexgrid通过

最近很多的朋友,都想知道EXCEL怎样同VSflexgrid交换数据。

实际上，利用“复制”、“粘贴”菜单即可实现。具体如下：

（1）在Vsflexgrid上弹出右键菜单

Private Sub grid1_MouseDown(Button As Integer, Shift As Integer, X As Single, y As Single)

if Button = 2 Then PopupMenu mnutccd

End Sub

（2）设置各菜单的内容

A 复制

Clipboard.Clear

Clipboard.SetText grid1.Clip

B 剪切

Dim rowc As Long

Dim rowz As Long

Dim colc As Long

dim colz As Long

dim i as long

dim s as long

If grid1.Rows = 1 Then Exit Sub

Clipboard.Clear

Clipboard.SetText grid1.Clip

If grid1.RowSel > grid1.row Then

rowc = grid1.row

rowz = grid1.RowSel

Else

rowc = grid1.RowSel

rowz = grid1.row

End If

If grid1.ColSel > grid1.Col Then

colc = grid1.Col

colz = grid1.ColSel

Else

colc = grid1.ColSel

colz = grid1.Col

End If

For i = rowc To rowz

For s = colc To colz

grid1.TextMatrix(i, s) = ""

C 粘贴（精华部分)

Dim i As Long

Dim s As Long

Dim m As Long

Dim t As Long

If grid1.Rows = 1 Then Exit Sub

t = Len(Clipboard.GetText)

If t = 0 Then Exit Sub

For i = 1 To t

If Mid(Clipboard.GetText, i, 1) = Chr(9) Then s = s + 1

If Mid(Clipboard.GetText, i, 1) = Chr(13) Then m = m + 1

If s / (m + 1) + grid1.Col > grid1.Cols - 1 Then

grid1.ColSel = grid1.Cols - 1

Else

grid1.ColSel = s / (m + 1) + grid1.Col

End If

If grid1.row + m > grid1.Rows - 1 Then

grid1.RowSel = grid1.Rows - 1

Else

grid1.RowSel = grid1.row + m

End If

grid1.Clip = Clipboard.GetText

VSFlexGrid 常用属性或方法：

.FixedRows = 1 '固定几行

.FixedCols = 1 '固定几列

.Editable = True '允许修改

.AllowUserResizing = flexResizeBoth '可调整行/列

.FocusRect = flexFocusNone '无虚框

.SelectionMode = flexSelectionListBox '焦点选中样式

.BackColor = RGB(255, 255, 255) '单元背景色

.BackColorSel = vbBlue '单元选择色

.BackColorFixed = RGB(208, 192, 160) '固定单元色

.BackColorAlternate = RGB(255, 250, 230) '间隔行背景色

.GridColor = RGB(245, 240, 210) '单元线条色

.ForeColor = RGB(0, 0, 0) '单元前景色(字符色)

.RowHeightMin = 260 '最小行高

.RowHeightMax = 800 '最大行高

.ColHeightMin = 50 '最小列宽

.ColHeightMax = 3000 '最大列宽

.ColWidth(Col) = 1000 '指定列宽

.RowHeight(Row) = 260 '指定行高

.TextMatrix(Row,Col) = "Text" '指定单元字符

.Text = "Text" '选定单元字符

.MergeCol(Col) = True '允许合并列

.MergeRow(Row) = True '允许合并行

.MergeCells = 0|1|2|3|4|5|6 '合并选项

.Cell(选项准则, Row1, Col1, Row2, Col2) '选择部分的相应准则值

.EditCell '当移动到当前单元时自动选择

.EditSelStart '移动到单元时的光标位置

.MousePointer '设置对象的鼠标指针样式 O.A = 0 到 15|99

━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━

几个特殊的属性方法的使用：

FormatString 属性：管道符格式化字符串示例：

下面定义对齐方式同字意，列宽窄同距离

VSG1.FormatString = "^ 中 |< 左 |> 右 |> 右 |^ 中 "

+++++++++++++++++++++++++

搜索(查找)表格中符合条件的行：

FindRow 属性：该属性返回一个行值

MsgBox VSG1.FindRow(关键词,[指定行],[指定列],[敏感],[精度])

关键词：String，表示要搜索的字符串

指定行/指定列：Long，表示只在指定的行或列中找

敏感：Boolean，

━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━

'限制只能在指定列输入(这里默认倒数第2列)

Private Sub VSG1_BeforeRowColChange(ByVal OldRow As Long, _

ByVal OldCol As Long, ByVal NewRow As Long, _

ByVal NewCol As Long, Cancel As Boolean)

VSG1.Editable = flexEDKbd

If VSG1.Redraw <> flexRDNone And NewCol <> VSG1.Cols - 2 Then

Cancel = True

VSG1.Select NewRow, VSG1.Cols - 2

End If

End Sub

━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━

限制不能编辑某些列：(这里限制第1列和第3列)

Private Sub VSG1_RowColChange()

If VSG1.Col = 1 or VSG1.Col = 3 Then

VSG1.FocusRect = flexFocusNone

VSG1.Editable = flexEDNone

'SendKeys "{TAB}"

Else

VSG1.Editable = flexEDKbd

SendKeys "{ENTER}"

End If

End Sub

或：

Private Sub VSG1_RowColChange()

If VSG1.Col = 1 or VSG1.Col = 3 Then

SendKeys "{RIGHT}"

Else

SendKeys "{ENTER}"

End If

End Sub

或：

Private Sub VSG1_RowColChange()

If VSG1.Col = 1 or VSG1.Col = 3 Then

VSG1.Editable = flexEDNone

Else

VSG1.Editable = flexEDKbd

VSG1.EditCell '自动选择单元内容

VSG1.EditSelStart = 0[选到最前]|1[选到指定]|Len(VSG1.Text)[选到最后]

End If

End Sub

━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━

'对齐方式(-1标示所有)

.ColAlignment(-1) = flexAlignLeftCenter|flexAlignCenterCenter|flexAlignRightCenter

示例1：(最后一行的第3列靠右对齐)

VSG1.Select VSG1.Rows - 1, 2

VSG1.CellAlignment = flexAlignRightCenter

示例2：

VSG1.Row = VSG1.Rows - 1: VSG1.Col = 1

VSG1.CellAlignment = flexAlignRightCenter

示例3：

VSG1.Cell(flexcpAlignment, VSG1.Rows - 1, 1, VSG1.Rows - 1, 3) = flexAlignRightCenter

━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━

本对象拖放：

Private Sub VSG1_MouseDown(Button As Integer, _

Shift As Integer, X As Single, Y As Single)

VSG1.Drag

VSG1.DragIcon = LoadPicture("D:\Icon.ico")

VSG1.DragRow VSG1.RowSel

End Sub

或从其它对象拖：

Private Sub VSG2_MouseDown(Button As Integer, _

Shift As Integer, X As Single, Y As Single)

VSG2.OLEDrag

VSG1.OLEDropMode = flexOLEDropAutomatic

End Sub

━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━

Public Sub VSGridCount(Optional SelRow As Long, Optional SelCol As Long)

Dim X As Long, i As Long

Dim Hj1, Hj2, Hj3 As String

Const A1 = -922337203685477#, A2 = 922337203685477#

On Error GoTo ErrTransact

With frmFG.VSG1

X = .Rows - 1

.MergeCells = flexMergeFree

.MergeRow(X) = True

.Cell(flexcpText, X, 0, X, 1) = "合计"

If .Rows = 3 Then

.TextMatrix(X, 0) = 0

.Cell(flexcpText, X, 2, X, 14) = " "

.Cell(flexcpText, X, 16, X, 17) = "￥0.00"

Exit Sub

End If

'Hj1 = Val(.Aggregate(flexSTSum, 2, 2, X - 1, 2))

'Hj2 = Val(.Aggregate(flexSTSum, 2, 16, X - 1, 16))

'Hj3 = CurrencyToStr(Hj2)

For i = 2 To X - 2

Hj1 = Hj1 + Val(.TextMatrix(i, 15))

If Val(.TextMatrix(i, 16)) > 0 Then

Hj2 = Hj2 + Val(.TextMatrix(i, 15)) * Val(.TextMatrix(i, 16))

End If

Next i

If Hj2 <= A1 or Hj2 >= A2 Then

GoTo ErrTransact

End If

Hj3 = CurrencyToStr(Hj2)

.TextMatrix(X, 2) = Hj1

.Cell(flexcpText, X, 3, X, 15) = IIf(Hj3 = "", " ", Hj3)

.Cell(flexcpText, X, 16, X, 17) = Format(Hj2, "￥0.00")

.Cell(flexcpAlignment, X, 2, X, 14) = flexAlignLeftCenter

'.Select X, 3

'.CellAlignment = flexAlignLeftCenter

If SelRow > 1 And SelCol > 0 Then .Select SelRow, SelCol

End With

Exit Sub

ErrTransact:

MsgBox "你输入的数字过大无法计算！请修改！！！"

End Sub

------------------------------------------------

将数字转换为大写金额的函数：

Function CurrencyToStr(ByVal Number As Currency) As String

Number = Val(Trim(Number))

If Number = 0 Then CurrencyToStr = "": Exit Function

Dim str1Ary As Variant, str2Ary As Variant

str1Ary = Split("零壹贰叁肆伍陆柒捌玖")

str2Ary = Split("分角元拾佰仟万拾佰仟亿拾佰仟万拾佰")

Dim a As Long, b As Long '循环基数

Dim tmp1 As String '临时转换

Dim tmp2 As String '临时转换结果

Dim Point As Long '小数点位置

If Number <= -922337203685477# or Number >= 922337203685477# Then

Exit Function

End If

tmp1 = Round(Number, 2)

tmp1 = Replace(tmp1, "-", "") '先去掉“-”号

Point = InStr(tmp1, ".") '取得小数点位置

If Point = 0 Then '如果有小数点，最大佰万亿

b = Len(tmp1) + 2 '加2位小数

Else

b = Len(Left(tmp1, Point + 1)) '包括点加2位小数

End If

''先将所有数字替换为中文

For a = 9 To 0 Step -1

tmp1 = Replace(Replace(tmp1, a, str1Ary(a)), ".", "")

For a = 1 To b

b = b - 1

If Mid(tmp1, a, 1) <> "" Then

If b > UBound(str2Ary) Then Exit For

tmp2 = tmp2 & Mid(tmp1, a, 1) & str2Ary(b)

End If

If tmp2 = "" Then CurrencyToStr = "": Exit Function

''〓下面为非正式财务算法，可以去掉〓

For a = 1 To Len(tmp2)

tmp2 = Replace(tmp2, "零亿", "亿零")

tmp2 = Replace(tmp2, "零万", "万零")

tmp2 = Replace(tmp2, "零仟", "零")

tmp2 = Replace(tmp2, "零佰", "零")

tmp2 = Replace(tmp2, "零拾", "零")

tmp2 = Replace(tmp2, "零元", "元")

tmp2 = Replace(tmp2, "零零", "零")

tmp2 = Replace(tmp2, "亿万", "亿")

''〓上面为非正式财务算法，可以去掉〓

If Point = 1 Then tmp2 = "零元" + tmp2

If Number < 0 Then tmp2 = "负" + tmp2

If Point = 0 Then tmp2 = tmp2 + "整"

CurrencyToStr = tmp2

End Function

━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━

Cell 属性的使用：

Cell 的作用是给以选定区块的特定的设置值，具体值可参阅相应属性值。

语法：Cell(条件准则, Row1, Col1, Row2, Col2) = 相应准则值

其中的“条件准则”有以下准则常数，根据准则的不同而设置相应准则的值：

flexcpAlignment 对齐方式

flexcpBackColor 背景色

flexcpChecked 选择框

flexcpCustomFormat 格式设置

flexcpData 日期

flexcpFloodColor 颜色

flexcpFloodPercent 背景色

flexcpFont 字体

flexcpFontBold 粗体

flexcpFontItalic 斜体

flexcpFontName 字体名

flexcpFontSize 字体大小

flexcpFontStrikethru 删除线

flexcpFontUnderline 下划线

flexcpFontWidth 字符宽

flexcpForeColor 字符色

flexcpHeight 高

flexcpLeft 左

flexcpPicture 添加图

flexcpPictureAlignment 图对齐

flexcpRefresh 刷新

flexcpSort 分类

flexcpText 字符

flexcpTextDisplay 显示字符

flexcpTextStyle 文本样式

flexcpTop 返回顶端高，同 RowPos 和 valueMatrix 属性

flexcpvalue 返回字符值

flexcpVariantvalue 返回字符值

flexcpWidth 返回单元宽

━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━

flexSTSum 方法：每行增加小计行[这个方法还不会用]语法：

VSG.flexSTSum 常数名,

[GroupOn As Long], :标签列

[TotalOn As Long], :计算列

[Format As String], :格式，例 "$0.00"

[BackColor As Color], :Color

[ForeColor As Color], :Color

[FontBold As Boolean], :False|True

[Caption As String], :例 "数 %s"

[MatchFrom As Integer], :0|1|2|3

[TatalOnly As Boolean] :False|True

常数名：

常数常数值说明

flexSTNone 0 大纲唯一的，没有合计价值

flexSTClear 1 清除全部的小计

flexSTSum 2 总数

flexSTPercent 3 总数的百分比

flexSTCount 4 行数

flexSTAverage 5 平均

flexSTMax 6 最大的

flexSTMin 7 最小的

flexSTStd 8 标准偏差

flexSTVar 9 方差

━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━

MousePointer、MouseIcon 鼠标指针的应用：

0=flexDefault

1=flexArrow

2=flexCross

3=flexIBeam

4=flexIcon

5=flexSize

6=flexSizeNESW

7=flexSizeNS

8=flexSizeNWSE

9=flexSizeEW

10=flexUpArrow

11=flexHourglass

12=flexNoDrop

13=flexArrowHourGlass

14=flexArrowQuestion

15=flexSizeAll

50=flexPointerCopy '(&H32) '拖动带拷贝

51=flexPointerMove '(&H33) '拖动

52=flexSizeHorz '(&H34) '左右调整

53=flexSizeVert '(&H35) '上下调整

54=flexHand '(&H36) 手型

99=flexCustom '自定义

Const MA = "50,51,52,53,54"

Dim xy As Integer

xy = Val(Text1.Text)

If xy > 15 And xy <> 99 And InStr(MA, xy) = 0 Then xy = 15

VSG1.MousePointer = xy

If xy = 99 Then

VSG1.MouseIcon = LoadPicture("C:\icon\Icon.ico")

End If

━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━

单击列头将列互相拖动调换：

方法一：

VSG1.ExplorerBar = flexExMove '2 这是最简单的方法了

注意这个属性在VB属性表中只设置了0、1、2、3、5、7、8种常数值

ExplorerBar 属性(value=0|1|2|3|5|7|8)：

0-flexExNone：默认，单击列头选择整列，单击行头选择整行

1-flexExSort：单击列头可正反排序该列，单击行头选择整行

2-flexExMove：单击列头可交换列顺序，单击行头选择整行

3-flexExSortAndMove：具有 1 和 2 的功能

4：单击列头可正反排序该列并在列头显示相应箭头，单击行头选择整行

5-flexExSortShow：好像与 4 相同也

6：具有 2 和 4 的功能

7-flexExSortShowAndMove：好像与 6 相同也

8-flexExMoveRows：单击列头选择整列，可拖动行

9：单击列头可正反排序该列，可拖动行

10：可拖动行与列

11：可排序列及拖动行列

12：可排序列并在列头显示相应箭头，还可拖动行

13：同 12。

14：除 12 功能外，可拖动列

15：同 14。

方法二：

Private Sub VSG1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

Dim r%, c%

r = VSG1.MouseRow

c = VSG1.MouseCol

If r = 0 And c > 0 Then

VSG1.Tag = c

VSG1.Cell(flexcpBackColor, 0, c) = vbYellow

VSG1.MousePointer = flexPointerMove

End If

End Sub

Private Sub VSG1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

If Len(VSG1.Tag) Then

Dim r%, c%, p%

r = VSG1.MouseRow

c = VSG1.MouseCol

If r = 0 And c > 0 Then p = flexPointerMove

If VSG1.MousePointer <> p Then VSG1.MousePointer = p

End If

End Sub

Private Sub VSG1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)

If Len(VSG1.Tag) Then

Dim r%, c%, target%

target = VSG1.Tag

VSG1.Cell(flexcpBackColor, 0, target) = 0

VSG1.Tag = ""

VSG1.MousePointer = 0

r = VSG1.MouseRow

c = VSG1.MouseCol

If r = 0 And c > 0 And c <> target Then

VSG1.ColPosition(target) = c

End If

End Sub

━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━

VSFlexString控件属性一览表

CaseSensitive ???

Error 失败时取得错误信息

Index 索引

MatchCount 取得与检索条件相一致的字符串数量

MatchIndex 设定与检索条件相一致的字符串的索引

MatchLength 取得与检索条件相一致的字符串长度

MatchStart 取得与检索条件相一致的字符串起始位置

MatchString 取得与检索条件相一致的字符串

Name

Object

Parent

Pattern 设定检索条件

Replace 设定置换字符串

Soundex 取得代表当前检索字符的声音代码

Tag

TagCount 取得与检索条件相一致的标签数量

TagIndex 在多个标签情况下，设定/取得与检索条件相一致的标签索引

TagLength 取得与检索条件相一致的标签长度

TagStart 取得与检索条件相一致的标签起始位置

TagString 取得与检索条件相一致的标签的字符串

Text 设定成为检索对象

Version 取得FlexString的版本号

--------------------------------------------------------

MSFlexGrid与VSFlexGrid的单元格合并例子：

Private Sub Form_Load()

Dim i As Long

With fg

.WordWrap = True

.Rows = 6

.Cols = 6

.FixedRows = 2

.FixedCols = 0

.ColWidth(0) = 1500

.RowHeight(0) = 300

.RowHeight(1) = 300

.TextMatrix(1, 1) = "进货"

.TextMatrix(1, 2) = "销售"

.TextMatrix(1, 3) = "退货"

.TextMatrix(1, 4) = "结存"

For i = 1 To .Rows - 1

.RowHeight(i) = 300 '设置行高

Next i

For i = 0 To 1

.TextMatrix(i, 0) = "上月" & vbCrLf & "结存数量" '//换行

.FixedAlignment(0) = 4

Next i

For i = 0 To 1

.TextMatrix(i, 5) = "月末结存"

.FixedAlignment(5) = 4

Next i

For i = 1 To 4

.TextMatrix(0, i) = "本月进销存数量"

.ColAlignment(i) = 4

Next i

.MergeCells = flexMergeFree

' .MergeCells = flexMergeFixedOnly

.MergeCol(0) = True

.MergeRow(0) = True

.MergeCol(5) = True

End With

End Sub

请问：如何使用 VSFlexGrid Pro 分级显示和存取数据库中的数据。类似于《让 TreeView 支持无限级分类》帖子中所介绍的使用树形控件显示和存取数据库的数据。

Dim cn as New ADODB.Recordset

Dim rs As New ADODB.Recordset

Dim lngY As Long

Dim intT As Integer

cn.open "............"

rs.Open "select 系统编号 from test order by 系统编号", cn

With VSFlexGrid1

Set .DataSource = rs

.RowOutlineLevel(1) = 1

.IsSubtotal(1) = True

For lngY = 1 To .Rows - 1

intT = Len(.TextMatrix(lngY, 0)) - Len(Replace(.TextMatrix(lngY, 0), ".", ""))

.RowOutlineLevel(lngY) = intT

.IsSubtotal(lngY) = True

.OutlineCol = 0

.OutlineBar = flexOutlineBarSimpleLeaf

End With

Set VSFlexGrid1.DataSource = Rs'这一步一定要有,

With VSFlexGrid1

.DataRefresh

.Sort = flexSortGenericDescending'排序

End With

例如：显示有小数点后3位（是整数的话显示.000；没有达到3位显示.200（追加0）；超过的4舍五入）

Answer:

if fg.col=5 then '第五行

for i=1 to fg.rows-1

fg.TextMatrix(i,5)=format(fg.TextMatrix(i,5),"##0.000")

next i

end if

7,在一个单元格输入好数字回车，下一单元格（或者下一行第一个）自动获得焦点。

这个怎么实现？

Answer:

试试这个,,,,,

' With fg

' If .Col = .Cols - 1 Then

' '如果到了最右边的列就跳到下一行第一个可非固定列

' '.Row = Row + 1

' .Col = .FixedCols

' Else

' '向右移动一列

' .Col = Col + 1

' End If

' End With

8,最下面的合计的那一行是怎么加的？？希望楼主指点一下，谢谢！

Ansewr:

合计行添加代码:

'*****************************************

'显示计算合计行

.Rows = .Rows + 1

Dim r&, c&, tot!

For c = 1 To .Cols - 1

tot = 0

For r = 1 To .Rows - 2

tot = tot + .valueMatrix(r, c)

.TextMatrix(r, c) = tot

'*****************

,'在合计头列标明合计,合并单元格

' For I = 0 To 1

.TextMatrix(.Rows - 1, 0) = "合计"

' .FixedAlignment(I) = 4

' Next

.MergeCells = flexMergeFixedOnly

.MergeRow(r) = True

9,怎么样点击一条VSFlexgrid控件里的记录时下面的TEXT控件就显示相应的内容？

Ansewr:

text1=fg.TextMatrix(fg.RowSel, 2) '显示第二列信

10,如果想把某一列设置成下拉匡中选择，只能写成 grid.colcombolist(1) = "a|b|c" 吗？能不能把下拉框中的数据和 recordset 或数组绑定。

Answer:

grid.colcombolist(1)＝grid.buildcombolist(rs!abc)

11,我用的是VsFlexGrid 8

如何把表格里面的Name变成我指定的文字,

以前用的是DataGrid,实现的方法是DataGrid1.Columns.Caption="名字"

现在学用VsFlexGrid,请高手指点.

Answer:

我来了,这段时间实在太忙了,,,没能及时回答大家的问题,,,,

指定name可以这样表示:

vfg.TextMatrix(0,1)="我的名字"

12,如何让我选择的不是一个框,而是一整行,还有就是如何能把我选择的这一行的第一个框里的字添加到text1.text里.

Answer:

1,有一个属性可以让你的选择是一行的.

SelectionMode=1

2,text1=fg.TextMatrix(fg.RowSel,1)

在click事件里实现

13,运行时如何调整调行或列宽度?

Answer:

AllowUserResizing=1 '可调列

AllowUserResizing=2 '可调行

AllowUserResizing=3 '可调行和列

最近很多朋友问我关于VSflexgrid的问题,,,由于我很忙,没能及时回答,请多谅解;

特此,我找来了一些资料,供大家参考:

VSFLEXgrid控件概况】

[主要特点]

VSFlexGrid Pro 7.0 是一功能强大的数据表格控件，高速、紧凑、灵活、轻便、无须依赖任何应用工具，支持数据化格式选项，能将表格列连接到图象列和墙纸属性上以提高应用工具的实现程度。如果应用工具无须数据库的支持，如果你的应用程序不需要数据库的支持,那么使用VSFlexGrid Pro新的非绑定版本可以使应用程序的尺寸最小,而且发布应用程序时也不需要发布相应的ADO动态链接库. VSFlexGrid Pro 7.0可代替任何简单的列表框，浏览器，记事本等等，所以说它不仅仅只是一个表格控件。

FLexArray网格扩展控件

能够设置每个单元格的颜色和字体/能够对单元内容能进行快速有效的排序/设置RowPosition和ColPosition属性，即可在运行状态移动行列的位置/使用MergeCell属性，无须改写代码即可将内容一致的单元格加以合并/能够在设计过程定义行列的页眉、宽度和位置，进行界面设计/改变缺省字体大小，能够自动调整与之相对应的单元格尺寸/支持2000行以上表格，单元格内容可达32k以上/能够进行行列的隐藏/能够进行字体的微调整（参考FontWidth属性）/具有多种多样的网格形式和色彩/支持图文混排/多种光标和被选择内容的显示方式等等。

FlexString字符串处理控件

能够设定检索字符串与置换字符串，在表格中找到与检索字符串相符的字符并将其置换为置换字符串中设置的字符/可以将检索字符串分成几个字段，给每个字段加入标签，使用标签代替字符串进行检索与置换/使用规范化表达式，规范化表达式是一个设定和匹配字符串的注释，类似于数学公式里的运算符。

[功能]