VSFLEXgrid控件几个特殊的属性方法的使用

几个特殊的属性方法的使用：
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)), ".", "")
   Next
   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
   Next
   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, "亿万", "亿")
   Next
   ''〓上面为非正式财务算法，可以去掉〓
   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 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
    Next
    .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)
        Next
        .TextMatrix(r, c) = tot
    Next

'*****************
,'在合计头列标明合计,合并单元格
'        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  '可调行和列