[主要特點]
VSFlexGrid Pro 7.0 是一功能強大的數(shù)據(jù)表格控件，高速、緊湊、靈活、輕便、無須依賴任何應用工具，支持數(shù)據(jù)化格式選項，能將表格列連接到圖象列和墻紙屬性上以提高應用工具的實現(xiàn)程度。如果應用工具無須數(shù)據(jù)庫的支持，如果你的應用程序不需要數(shù)據(jù)庫的支持,那么使用VSFlexGrid Pro新的非綁定版本可以使應用程序的尺寸最小,而且發(fā)布應用程序時也不需要發(fā)布相應的ADO動態(tài)鏈接庫. VSFlexGrid Pro 7.0可代替任何簡單的列表框，瀏覽器，記事本等等，所以說它不僅僅只是一個表格控件。
FLexArray網格擴展控件
能夠設置每個單元格的顏色和字體/能夠對單元內容能進行快速有效的排序/設置RowPosition和ColPosition屬性，即可在運行狀態(tài)移動行列的位置/使用MergeCell屬性，無須改寫代碼即可將內容一致的單元格加以合并/能夠在設計過程定義行列的頁眉、寬度和位置，進行界面設計/改變缺省字體大小，能夠自動調整與之相對應的單元格尺寸/支持2000行以上表格，單元格內容可達32k以上/能夠進行行列的隱藏/能夠進行字體的微調整（參考FontWidth屬性）/具有多種多樣的網格形式和色彩/支持圖文混排/多種光標和被選擇內容的顯示方式等等。
FlexString字符串處理控件
能夠設定檢索字符串與置換字符串， 在表格中找到與檢索字符串相符的字符并將其置換為置換字符串中設置的字符/可以將檢索字符串分成幾個字段，給每個字段加入標簽，使用標簽代替字符串進行檢索與置換/使用規(guī)范化表達式，規(guī)范化表達式是一個設定和匹配字符串的注釋，類似于數(shù)學公式里的運算符。
[功能]
最新功能
提供了豐富的功能可以迅速創(chuàng)建靈活、功能強大的前端，無須用戶額外支出。VSFlexGrid Pro 7.0 100%向下兼容VB環(huán)境下的MSFlexGrid，所以對于目前的版本升級非常容易。
提供的新功能可顯示、模塊編輯、格式化、組織、概括、打印表格數(shù)據(jù)。數(shù)據(jù)可以按條件初始化，對于超出指定范圍的數(shù)據(jù)會加強表示?？捎脩艋斎刖W格和單個單元外觀幾乎所有的方面，并利用相似值合并鄰近單元，使得表格更容易讀取分析。
支持ADO和OLE DB
VSFlexGrid Pro支持ADO和OLE DB，支持統(tǒng)一的字符編碼以及DAO數(shù)據(jù)的 存取，提供多重數(shù)據(jù)連接的選擇。 ADO/OLEDB、DAO可連接到二維、三維 數(shù)組或其他VSFlexGrid控件，用戶也可創(chuàng)建用戶自己的數(shù)據(jù)源類。甚至可以 在無界模式中使用表格，或將表格連接到變量數(shù)組及一用戶可自己開發(fā)的數(shù)據(jù) 源。
完整的打印功能
可以保存、檢索多張表格和打印格式。最新的PrintGrid方法可讓用戶打印單 條語句，能夠控制紙張定位、頁邊、文本字體，顯示一對話框讓用戶選擇設 置打印機。同時也可控制頁中斷，添加表頭，并在每一頁上添加用戶單元。
支持分層數(shù)據(jù)
可進行排序， 模塊編輯，轉化組合框和圖表框和自動數(shù)據(jù)聚合。甚至可使用 VSFlexGrid Pro 分級顯示數(shù)據(jù)。類似于樹形控件，通過顯示刪除或擴張的結點 用來表示含有附加數(shù)據(jù)的分支。分級顯示樹可在任一列中出現(xiàn)，甚至可出現(xiàn) 在異步分支上。分級顯示樹的外觀可用NodeOpenPicture 和NodeClosedPicture 的屬性用戶化。
更簡單的版本
如果用戶的應用工具無須數(shù)據(jù)庫的支持，VSFlexGrid Pro包含了表格控件更簡 單的版本。使用VSFlexGrid Pro新的非綁定版本可以使應用程序的尺寸最小, 發(fā)布應用程序時也不需要發(fā)布相應的ADO動態(tài)鏈接庫.消除了DLL版本的問題。
其他功能
合并單元
VSFlexGrid控件允許跨越多重行與列合并值相同的鄰近單元。提高了數(shù)據(jù)在表 格中顯示，提高了數(shù)據(jù)的讀取和分析。單元合并可用于創(chuàng)建合并的圖表表頭、 合并的數(shù)據(jù)視圖，以及創(chuàng)建能將文本溢出到相鄰列的表格。
屏蔽模塊
輸入模板可說明自動控件以及有效數(shù)據(jù)的輸入，減少了數(shù)據(jù)輸入的錯誤。模塊 語法類似于Microsoft MaskedEdit 控件和 Microsoft Access中的模塊語法。
Component One Vs-Flex Grid pro 7.0
VB標準網絡控件和文本控件的擴展
版本：7.0
標準價格：41,300.00 元
使用權限：發(fā)布免費
近期推出Videosoft公司一款全新的ActiveX控件---VSFlexGridPro7.0。 VSFlexGrid Pro 7.0 是一功能強大 的數(shù)據(jù)表格控件，高速、緊湊、靈活、輕便、無須依賴任何應用工具，支持數(shù)據(jù)化格式選項，能將表格列連接到圖象列和墻紙屬性上以提高應用工具的實現(xiàn)程度。如果應用工具無須數(shù)據(jù)庫的支持，如果你的應用程序不需要數(shù)據(jù)庫的支持,那么使用VSFlexGrid Pro新的非綁定版本可以使應用程序的尺寸最小,而且發(fā)布應用程序時也不需要發(fā)布相應的ADO動態(tài)鏈接庫. VSFlexGrid Pro 7.0可代替任何簡單的列表框，瀏覽器，記事本等等，所以說它不僅僅只是一個表格控件。
[主要特點]
FLexArray網格擴展控件
能夠設置每個單元格的顏色和字體/能夠對單元內容能進行快速有效的排序/設置RowPosition和ColPosition屬性，即可在運行狀態(tài)移動行列的位置/使用MergeCell屬性，無須改寫代碼即可將內容一致的單元格加以合并/能夠在設計過程定義行列的頁眉、寬度和位置，進行界面設計/改變缺省字體大小，能夠自動調整與之相對應的單元格尺寸/支持2000行以上表格，單元格內容可達32k以上/能夠進行行列的隱藏/能夠進行字體的微調整（參考FontWidth屬性）/具有多種多樣的網格形式和色彩/支持圖文混排/多種光標和被選擇內容的顯示方式等等
FlexString字符串處理控件
能夠設定檢索字符串與置換字符串， 在表格中找到與檢索字符串相符的字符并將其置換為置換字符串中設置的字符/可以將檢索字符串分成幾個字段，給每個字段加入標簽，使用標簽代替字符串進行檢索與置換/使用規(guī)范化表達式，規(guī)范化表達式是一個設定和匹配字符串的注釋，類似于數(shù)學公式里的運算符。
[新特性]
最新功能
提供了豐富的功能可以迅速創(chuàng)建靈活、功能強大的前端，無須用戶額外支出。VSFlexGrid Pro 7.0 100%向下兼容VB環(huán)境下的MSFlexGrid，所以對于目前的版本升級非常容易。
提供的新功能可顯示、模塊編輯、格式化、組織、概括、打印表格數(shù)據(jù)。數(shù)據(jù)可以按條件初始化，對于超出指定范圍的數(shù)據(jù)會加強表示?？捎脩艋斎刖W格和單個單元外觀幾乎所有的方面，并利用相似值合并鄰近單元，使得表格更容易讀取分析。
支持ADO和OLE DB
VSFlexGrid Pro支持ADO和OLE DB，支持統(tǒng)一的字符編碼以及DAO數(shù)據(jù)的 存取，提供多重數(shù)據(jù)連接的選擇。 ADO/OLEDB、DAO可連接到二維、三維 數(shù)組或其他VSFlexGrid控件，用戶也可創(chuàng)建用戶自己的數(shù)據(jù)源類。甚至可以 在無界模式中使用表格，或將表格連接到變量數(shù)組及一用戶可自己開發(fā)的數(shù)據(jù) 源。
完整的打印功能
可以保存、檢索多張表格和打印格式。最新的PrintGrid方法可讓用戶打印單 條語句，能夠控制紙張定位、頁邊、文本字體，顯示一對話框讓用戶選擇設 置打印機。同時也可控制頁中斷，添加表頭，并在每一頁上添加用戶單元。
支持分層數(shù)據(jù)
可進行排序， 模塊編輯，轉化組合框和圖表框和自動數(shù)據(jù)聚合。甚至可使用 VSFlexGrid Pro 分級顯示數(shù)據(jù)。類似于樹形控件，通過顯示刪除或擴張的結點 用來表示含有附加數(shù)據(jù)的分支。分級顯示樹可在任一列中出現(xiàn)，甚至可出現(xiàn) 在異步分支上。分級顯示樹的外觀可用NodeOpenPicture 和NodeClosedPicture 的屬性用戶化。
更簡單的版本
如果用戶的應用工具無須數(shù)據(jù)庫的支持，VSFlexGrid Pro包含了表格控件更簡 單的版本。使用VSFlexGrid Pro新的非綁定版本可以使應用程序的尺寸最小, 發(fā)布應用程序時也不需要發(fā)布相應的ADO動態(tài)鏈接庫.消除了DLL版本的問題。
其他功能
合并單元
VSFlexGrid控件允許跨越多重行與列合并值相同的鄰近單元。提高了數(shù)據(jù)在表 格中顯示，提高了數(shù)據(jù)的讀取和分析。單元合并可用于創(chuàng)建合并的圖表表頭、 合并的數(shù)據(jù)視圖，以及創(chuàng)建能將文本溢出到相鄰列的表格。
屏蔽模塊
輸入模板可說明自動控件以及有效數(shù)據(jù)的輸入，減少了數(shù)據(jù)輸入的錯誤。模塊 語法類似于Microsoft MaskedEdit 控件和 Microsoft Access中的模塊語法
[控件屬性一覽表]
FlexString控件屬性一覽表
Error失敗時取得錯誤信息
MatchCount取得與檢索條件相一致的字符串數(shù)量
MatchIndex設定與檢索條件相一致的字符串的索引
MatchLength取得與檢索條件相一致的字符串長度
MatchStart
取得與檢索條件相一致的字符串起始位置
MatchString取得與檢索條件相一致的字符串
Pattern 設定檢索條件
Replace設定置換字符串
SoundexText取得代表當前檢索字符的聲音代碼
TagCount取得與檢索條件相一致的標簽數(shù)量
TagIndex在多個標簽情況下，設定/取得與檢索條件相一致的標簽索引
TagLength取得與檢索條件相一致的標簽長度
TagStart取得與檢索條件相一致的標簽起始位置
TagString取得與檢索條件相一致的標簽的字符串
Text設定成為檢索對象
Version取得FlexString的版本號
FlexString控件屬性一覽表
AllowBigSelection設定行列頭的選擇
AllowUserResizing設定行列大小的設定
BackColor設定FlexArray所有表格的背景顏色
BackColorBkg設定背景顏色
BackColorFixed設定固定行/列的背景顏色
BackColorSel設定選擇單元的背景顏色
CellAlignment設定單元里數(shù)據(jù)的排列方式
CellBackColor設定單元或指定范圍的背景顏色
CellFontBold把單元或指定范圍的字體設定為黑體字
CellFontItalic把單元或指定范圍的字體設定為斜體字
CellFontName設定單元或指定范圍的字體
CellFontSize設定單元或指定范圍字體的大小
CellFontWidth設定單元或指定范圍字體的寬度
CellForeColor設定單元或指定范圍字體的顏色
CellHeight返回當前單元的高度
CellLeft返回當前單元的左端位置
CellTop返回當前單元的頂端位置
CellWidth返回當前單元的寬度
CellPicture指定顯示在單元或指定范圍中的圖片
CellPicture
Alingment指定單元或范圍中圖片的顯示位置
CellTextStyle設定單元文本的顯示形式
Clip<設定/返回選擇范圍的內容
Col設定/返回激活單元的列號
ColAlingment( )設定/返回列的排列方式
ColData( )設定/返回一個用戶定義信息的長整形數(shù)據(jù)
ColPosition( )移動列的位置
Cols指定返回列的總數(shù)
ColSel指定選擇范
ColWidth( )設定所指定列的寬度
FillStyle指定是否改變當前單元或選擇范圍的內容或單元格式
FixedCols設定固定列的總數(shù)
FixedRows設定固定行的總數(shù)
FocusRect設定選中單元周圍的Focus Rectangle類型
FontWidth設定字體的寬度
ForeColorFixed設定固定單元的文本顏色
ForeColorSel設定選擇單元的文本顏色
FormatString在設計過程中設定列寬、排列方式及固定的行/列
GridColor指定網格線的顏色
GridColorFixed設定固定網格線的顏色
GridLines指定網格線的類型
GridLinesFixed指定固定單元的網格線形式
HighLight設定是否突出顯示選中單元
LeftCol指定顯示在最左邊的列
MergeCells設定是否合并內容相同的單元格
MergeCol( )設定指定列的單元合并
MergeRow( )設定指定行的單元合并
MouseCol設定鼠標指向的列號
MouseRow設定鼠標指向的行號
ReDraw設定是否刷新FlexArray控件
Picture返回FlexArray控件的圖片
PictureType指定用Picture屬性生成的圖片類型
Row設定/返回激活單元的行號
RowData( )設定/返回一個用戶定義信息的長整形數(shù)據(jù)
RowHeight( )設定指定行的高度
RowHeightMin設定行高的最小值
RowPosition( )移動行的位置
Rows指定行的總數(shù)
RowSel指定行的選擇范圍
SelectionMode設定行、列或單元的選擇方式
ScrollBars設定卷動軸的類型
ScrollTrack設定卷動方式
Sort按照選擇的基準重新排列行的順序
Text設定/取得單元的文本
TextArray( )設定/取得任意單元的文本
TextMatrix( )設定/取得任意單元的文本
TextStyle顯示單元中文本的3D效果
TextStyleFixed顯示固定行/列中文本的3D效果
TopRow指定顯示在最上面的行
Version
FlexArray控件的版本號
WordWrap設定單元中的文本是否換行
VSflexgrid的破解方法
注冊方法:編輯注冊表
HKEY_CLASSES_ROOT\Licenses\403E0785-49A9-11d3-9BD5-D2DC2DD96072
聽過vsview7.0沒有？這是破解方法，只需要在注冊表里建立三個鍵就可以.如下:
REGEDIT4
VSVIEW 7
[HKEY_CLASSES_ROOT\Licenses\04589820-F8F4-11d3-9A1F-AE842F4A083B]
@=""
[HKEY_CLASSES_ROOT\Licenses\F403E0785-49A9-11d3-9BD5-D2DC2DD96072]
@=""
[HKEY_CLASSES_ROOT\Licenses\403E0785-49A9-11d3-9BD5-D2DC2DD96072]
@=""
在vsflexgrid中單元格輸入完畢后，設置按回車鍵跳到同一行的下一個單元
Private Sub VSFlexGrid1_AfterEdit(ByVal Row As Long, ByVal Col As Long)
With VSFlexGrid1
If .Col = .Cols - 1 Then
'如果到了最右邊的列就跳到下一行第一個可非固定列
.Row = Row + 1
.Col = .FixedCols
Else
'向右移動一列
.Col = Col + 1
End If
End With
End Sub
vsflexGrid 如何只能讓某些特定列可編輯
'修改前看到是否需要修改
Private Sub Grid_BeforeEdit(ByVal Row As Long, ByVal Col As Long, Cancel As Boolean)
'On Error GoTo err
If UiI10101.valueInt > 2 Then '*************定義允許修改的狀態(tài)，需修改
Cancel = True
Exit Sub
End If
If Grid.Col = Grid.cols - 8 Or Grid.Col = Grid.cols - 7 Then '*************定義可以修改的列，需修改
Cancel = False '使其有效
Else
Cancel = True '使其無效為真
End If
Exit Sub
Err:
RaiseErr "frmY005-Grid_MouseDown()"
End Sub
'修改后判斷是否合法
'cancel=true 取消修改的
Private Sub Grid_ValidateEdit(ByVal Row As Long, ByVal Col As Long, Cancel As Boolean)
On Error Resume Next
If Not IsNumeric(Grid.EditText) Then
MsgBox "輸入不合法,應輸入一個數(shù)值", vbInformation, "提示"
Cancel = True
Exit Sub
End If
End Sub
'修改后來更改別的一些數(shù)據(jù)
Private Sub Grid_AfterEdit(ByVal Row As Long, ByVal Col As Long)
On Error Resume Next
'進貨數(shù)量=包裝數(shù)量 * 整裝數(shù)量 + 零裝數(shù)量
Grid.TextMatrix(Row, Grid.cols - 6) = Grid.TextMatrix(Row, Grid.cols - 9) * Grid.TextMatrix(Row, Grid.cols - 8) + Grid.TextMatrix(Row, Grid.cols - 7)
End Sub
VSFLEXGRID7 中文輸入法自動關閉問題提示
同種數(shù)據(jù)類型的單元格之間變換不要重啟輸入法.....
還有可以看看這代碼
Private Declare Function GetKeyboardLayoutList Lib "user32" (ByVal nBuff As Long, _
lpList As Long) As Long
Private Declare Function GetKeyboardLayoutName Lib "user32" Alias "GetKeyboardLayoutNameA" _
(ByVal pwszKLID As String) As Long
Private Declare Function GetKeyboardLayout Lib "user32" (ByVal dwLayout As Long) As Long
Private Declare Function ImmGetDescription Lib "imm32.dll" Alias "ImmGetDescriptionA" (ByVal _
hkl As Long, ByVal lpsz As String, ByVal uBufLen As Long) As Long
Private Declare Function ActivateKeyboardLayout Lib "user32" (ByVal hkl As Long, ByVal _
flags As Long) As Long
Const IME_CONFIG_GENERAL = 1
Const KLF_REORDER = &H8
Const KLF_ACTIVATE = &H1
Dim la(1 To 16) As Long '輸入法列表
Dim ActIme As Long '當前輸入法
Dim X% '當單前輸入法數(shù)量
Private Sub Form_Load()
X = GetKeyboardLayoutList(32, la(1))
end sub
Private Sub vs1_AfterEdit(ByVal Row As Long, ByVal Col As long) 'vsflexgrid 控件存在輸入問題？ 以下為避免方法
Dim colNumber As Long
Dim i As Long
Dim strName$
if col=1 then
ActivateKeyboardLayout la(1), 1
else
ActivateKeyboardLayout la(2), 2
end if
end Sub
用.AddItem在最后一行顯示數(shù)據(jù)
Rst_Hj.Open HjSQL, Cnn_Zl, adOpenDynamic, adLockOptimistic 'RST_hj是合計的記錄集
Main_YX.VSFlexGrid1.AddItem vbTab & vbTab & vbTab & vbTab & vbTab & vbTab & vbTab & vbTab & vbTab & vbTab & "合計" & vbTab & Rst_Hj.Fields(0) & vbTab & Rst_Hj.Fields(1) & vbTab & Rst_Hj.Fields(2) & vbTab & Rst_Hj.Fields(3) 'VBTAB是跳過一格填寫
Rst_Hj.Close
'刪除連續(xù)選擇的記錄
If VSFlexGrid1.Row <> -1 And VSFlexGrid1.RowSel <> -1 Then
msg = MsgBox("你真的要刪除這些記錄嗎？", vbYesNo + vbQuestion)
Select Case msg
Case vbYes
For I = VSFlexGrid1.Row To VSFlexGrid1.RowSel
Str = Str + VSFlexGrid1.TextMatrix(I, 1) + ","
Next
Str = Mid(Str, 1, Len(Str) - 1)
Cmd_Zl.ActiveConnection = Cnn_Zl
Cmd_Zl.CommandText = "delete from zlk where 序號 in (" + Str + ")"
Cmd_Zl.Execute
Set Cmd_Zl = Nothing
Case vbNo
Command6.Enabled = True
Rst_Zl.Close
Exit Sub
End Select
Else
MsgBox "請選擇您要刪除的記錄?。。?, vbExclamation
Exit Sub
End If
這是用vsprinter打印vsflexgrid內容的例子，你可做參考。頁面設置的功能我也正在查找，如果找到肯定共享。
With VSPrinter1
'設置表頭,創(chuàng)建打印文檔
.Header = "|" & strTitle & vbCrLf & "|Page %d " '顯示Page n功能
.StartDoc
.Zoom = 100'顯示比例
.RenderControl = vsFlexGrid1.Hwnd'把網格內容傳遞給vsView顯示
.EndDoc
End With
有誰知道vsflexgrid1.PrintGrid命令參數(shù)怎么用？附上原英文幫助，有誰看懂了請解釋一下好嗎！
Prints the grid on the printer.
Syntax
[form!]VSFlexGrid.PrintGrid [ DocName As String ], [ ShowDialog As Boolean ], [ Orientation As Integer ], [ MarginLR As Long ], [ MarginTB As Long ]
Remarks
The parameters for the PrintGrid method are described below:
DocName As String (optional)
Contains the name of the document being printed. This string appears in the printer window's job list and is also used as a footer.
ShowDialog As Variant (optional, default value = False)
If set to True, a printer selection/setup dialog is displayed before the document start printing. The user can then select which printer to use, page orientation etc.
Orientation As Variant (optional, default value = printer default)
Set this parameter to 1 to print the grid in Portrait mode, or set it to 2 to print the grid in Landscape mode. The default setting, zero, uses the default printer orientation.
MarginLR As Variant (optional, default value = 1440)
Left and right margins, in twips. The margins must be equal. The default value, 1440, corresponds to a one-inch margin.
MarginTB As Variant (optional)
Top and bottom margins, in twips. The margins must be equal. The default value, 1440, corresponds to a one-inch margin.
The grid is printed using the same fonts used to display it on the screen, so to achieve best results, make sure the grid's Font property is set to a TrueType font (such as Arial, Times New Roman, Tahoma, or Verdana).
While printing the grid, the control fires the BeforePageBreak and GetHeaderRow events. These events allow you to control page breaks and setup repeating headers.
The PrintGrid method prints the entire grid, possibly spilling across and down to new pages. To print only a part of the grid, hide to rows and columns you don't want to print, call the PrintGrid method, and restore the hidden rows and columns when you are done.
The code below shows how you can do this:
Private Sub PrintSelection(fg As VSFlexGrid, Row1&, Col1&, Row2&, Col2&)
' save current settings
Dim hl%, tr&, lc&, rd%
hl = fg.HighLight: tr = fg.TopRow: lc = fg.LeftCol: rd = fg.Redraw
fg.HighLight = 0
fg.Redraw = flexRDNone
' hide non-selected rows and columns
Dim i&
For i = fg.FixedRows To fg.Rows - 1
If i < Row1 Or i > Row2 Then fg.RowHidden(i) = True
Next
For i = fg.FixedCols To fg.Cols - 1
If i < Col1 Or i > Col2 Then fg.ColHidden(i) = True
Next
' scroll to top left corner
fg.TopRow = fg.FixedRows
fg.LeftCol = fg.FixedCols
' print visible area
fg.PrintGrid
' restore control
fg.RowHidden(-1) = False
fg.ColHidden(-1) = False
fg.TopRow = tr: fg.LeftCol = lc: fg.HighLight = hl
fg.Redraw = rd
End Sub
960521，提供的“如何設置vsflexgrid某行背景色”：
VSFlexGrid1.Cell(flexcpBackColor, row1, col1,row2, col2) = vbRed
例：設置第三行北景色為紅
VSFlexGrid1.Cell(flexcpBackColor, 3, 1, 3, VSFlexGrid1.Cols - 1) = vbRed
