vsFlexGrid是ComponentOne公司的一個ActiveX控件，它與MS的MSHFlexGrid控件在功能上是兼容的，即MSHFlexGrid所具備的屬性和方法，它也都具備，只有少數(shù)幾個屬性名稱略有不同，使用MSHFlexGrid編寫的程序，只需要作較小的調(diào)整就可以轉(zhuǎn)換過來；但相比MSHFlexGrid，vsFlexGrid多了很多功能，它的屬性和事件非常豐富，可以實(shí)現(xiàn)非常靈活的控制和快捷的編碼.

在VB6開發(fā)環(huán)境下使用, winxp, win7, win8, win10 親測可用.

功能強(qiáng)大的數(shù)據(jù)表格控件，高速、緊湊、靈活、輕便、無須依賴任何應(yīng)用工具，支持?jǐn)?shù)據(jù)化格式選項(xiàng)，能將表格列連接到圖象列和墻紙屬性上以提高應(yīng)用工具的實(shí)現(xiàn)程度。

vsFlexGrid常用功能介紹

一、數(shù)據(jù)批量操作

l 利用Cell屬性批量存取數(shù)據(jù)
比如要清除一塊區(qū)域的文本，或者設(shè)置一塊區(qū)域的字體，不用循環(huán)處理，只需要一條語句就可以完成，如：
vsFlexGrid.Cell(flexcpText,1,1,5,5) = “” ‘設(shè)置(1,1)-(5,5)這塊單元格區(qū)域的文本都為空
vsFlexGrid.Cell(flexcpFontBold,1,1,5,5)=True ‘設(shè)置(1,1)-(5,5)這塊單元格區(qū)域的字體都為粗體
類似還可以設(shè)置的有單元格對齊、圖片、顏色等。

而語句：strText = vsFlexGrid.Cell(flexcpText,1,1,5,5)
返回一個用vbTab間隔列，vbCr間隔行的字符串，當(dāng)然也可以反過來賦值，這樣該區(qū)域內(nèi)的每個單元格都可以賦不同的值。
l 使用-1對所有行列進(jìn)行處理
RowHeight(-1)=300 ‘將所有行的高度設(shè)置為300Twip，可以類似使用的屬性有：
RowHidden，ColWidth，ColHidden，ColAlignment等
 

二、大量數(shù)據(jù)存放

vsFlexGrid可以存放數(shù)據(jù)的地方有：CellText，CellData，ColData，RowData
除了CellText是String類型外，其他都是Variant類型，也就是說你可以將任意類型的數(shù)據(jù)存放在表格中，比如日期(Date)，類型變量(Type)，集合(Collection)，數(shù)組，記錄集(RecordSet)，以及各種對象(Object)，這對于關(guān)聯(lián)數(shù)據(jù)比較多的程序非常有用。

注意：vsFlexGrid.Cell(flexcpText,1,1) = rsData!Name實(shí)際是存放了一個ADO.Field對象，應(yīng)該使用CStr(rsData!Name)對類型進(jìn)行明確。
 

三、編輯特性

vsFlexGrid的單元格是可以編輯的，并且有以下幾種編輯形式：
l 文本框：只要Editable設(shè)置為可編輯，每個單元格缺省就是TextBox編輯樣式
l 下拉框：
設(shè)置當(dāng)前單元格的ComboList屬性或者指定列的ColComboList屬性，即可實(shí)現(xiàn)VB.ComboBox樣式的單元編輯，而且下拉界面中可以顯示多列，如：
vsFlexGrid.ComboList = _
“|#100*1;張三” & vbTab & “男” & vbTab & “28歲” & _
“|#101;李四” & vbTab & “男” & vbTab & “29歲” & _
“|#102;王五” & vbTab & “男” & vbTab & “30歲”
其中”|”間隔的是各行數(shù)據(jù)，vbTab間隔的是各列數(shù)據(jù)；第1個”|”表示下拉框可以輸入，”#”后面的是每行的ItemData， 第一個ItemData后面”*1”表示是第1列的數(shù)據(jù)在選擇后顯示在ComboBox中。

l 復(fù)選框：
設(shè)置指定列的ColDataType = flexDTBoolean，或者指定當(dāng)前元單格的CellChecked屬性即可。
l 選擇按鈕：
設(shè)置當(dāng)前單元格的ComboList屬性或者指定列的ColComboList屬性為”…”即可，主要配合CellButtonClick事件使用。
 

四、界面特性

1) 邊框
除了表格線之外，vsFlexGrid還可以類似Excel一樣，設(shè)置單元格式的邊框線條，包括顏色、粗細(xì)，有無：
VSFlexGrid.CellBorder Color As OLE_COLOR, Left As Integer, Top As Integer, Right As Integer, Bottom As Integer, Vertical As Integer, Horizontal As Integer

2) 自動行高，列寬
使用AutoSize方法，可以使列寬、或者行高根據(jù)單元格的內(nèi)容進(jìn)行自適應(yīng)調(diào)整。
其中列寬也可以通過雙擊表頭進(jìn)行自適應(yīng)調(diào)整。

3) 樹形縮進(jìn)(TreeList)
通過設(shè)置表格行的IsSubtotal、RowOutlineLevel屬性，可以實(shí)現(xiàn)樹形風(fēng)格的縮進(jìn)層次樣式，這樣vsFlexGrid就可以實(shí)現(xiàn)TreeView和ListView的結(jié)合。

4) 自繪
通過設(shè)置OwnerDraw屬性，可對實(shí)現(xiàn)對單元格內(nèi)容的自繪處理，主要結(jié)合DrawCell事件進(jìn)行：
DrawCell(ByVal hDC As Long, ByVal Row As Long, ByVal col As Long, ByVal left As Long, ByVal top As Long, ByVal right As Long, ByVal bottom As Long, done As Boolean)

5) 背景
可以為vsFlexGrid設(shè)置背景圖，背景圖相對單元格式內(nèi)容是透明的，并且可以設(shè)置對齊和平鋪屬性。

6) 列排序，行、列拖動
設(shè)置vsFlexGrid.ExplorerBar屬性，就可以實(shí)現(xiàn)類似Windows的資源管理器一樣，點(diǎn)擊列頭進(jìn)行列數(shù)據(jù)排序，或者用鼠標(biāo)拖動改變列、行的順序。
7) 凍結(jié)行列
除了固定行列頭外，還可以類似Excel一樣，通過vsFlexGrid.FrozenCols/FrozenRows設(shè)置凍結(jié)行列，凍結(jié)行列在滾動時，和固定行列是一樣的效果，但是光標(biāo)可以進(jìn)入到凍結(jié)行列范圍內(nèi)的單元格中去。
 

五、豐富的事件控制：

vsFlexGrid一共有50多個事件，這些事件主要用于編輯和界面控制，在使用過程中，經(jīng)?？赡軙l(fā)現(xiàn)某個事件特別有用；因此充分利用這些事件，可以很方便地實(shí)現(xiàn)很多功能，下面是它支持的事件及對應(yīng)列表，粗體是較常用的，從定義基本就可以看出它的作用；詳細(xì)的事件說明，可以查看幫助。
l AfterCollapse(ByVal Row As Long, ByVal State As Integer)
l AfterDataRefresh()
l AfterEdit(ByVal Row As Long, ByVal Col As Long)
l AfterMoveColumn(ByVal Col As Long, Position As Long)
l AfterMoveRow(ByVal Row As Long, Position As Long)
l AfterRowColChange(ByVal OldRow As Long, ByVal OldCol As Long, ByVal NewRow As Long, ByVal NewCol As Long)
l AfterScroll(ByVal OldTopRow As Long, ByVal OldLeftCol As Long, ByVal NewTopRow As Long, ByVal NewLeftCol As Long)
l AfterSelChange(ByVal OldRowSel As Long, ByVal OldColSel As Long, ByVal NewRowSel As Long, ByVal NewColSel As Long)
l AfterSort(ByVal Col As Long, Order As Integer)
l AfterUserFreeze()
l AfterUserResize(ByVal Row As Long, ByVal Col As Long)
l BeforeCollapse(ByVal Row As Long, ByVal State As Integer, Cancel As Boolean)
l BeforeDataRefresh(Cancel As Boolean)
l BeforeEdit(ByVal Row As Long, ByVal Col As Long, Cancel As Boolean)
l BeforeMouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single, Cancel As Boolean)
l BeforeMoveColumn(ByVal Col As Long, Position As Long)
l BeforeMoveRow(ByVal Row As Long, Position As Long)
l BeforePageBreak(ByVal Row As Long, BreakOK As Boolean)
l BeforeRowColChange(ByVal OldRow As Long, ByVal OldCol As Long, ByVal NewRow As Long, ByVal NewCol As Long, Cancel As Boolean)
l BeforeScroll(ByVal OldTopRow As Long, ByVal OldLeftCol As Long, ByVal NewTopRow As Long, ByVal NewLeftCol As Long, Cancel As Boolean)
l BeforeScrollTip(ByVal Row As Long)
l BeforeSelChange(ByVal OldRowSel As Long, ByVal OldColSel As Long, ByVal NewRowSel As Long, ByVal NewColSel As Long, Cancel As Boolean)
l BeforeSort(ByVal Col As Long, Order As Integer)
l BeforeUserResize(ByVal Row As Long, ByVal Col As Long, Cancel As Boolean)
l CellButtonClick(ByVal Row As Long, ByVal Col As Long)
l CellChanged(ByVal Row As Long, ByVal Col As Long)
l ChangeEdit()
l Click()
l ComboCloseUp(ByVal Row As Long, ByVal Col As Long, FinishEdit As Boolean)
l ComboDropDown(ByVal Row As Long, ByVal Col As Long)
l Compare(ByVal Row1 As Long, ByVal Row2 As Long, Cmp As Integer)
l DblClick()
l DragDrop(Source As Control, X As Single, Y As Single)
l DragOver(Source As Control, X As Single, Y As Single, State As Integer)
l DrawCell(ByVal hDC As Long, ByVal Row As Long, ByVal Col As Long, ByVal Left As Long, ByVal Top As Long, ByVal Right As Long, ByVal Bottom As Long, Done As Boolean)
l EndAutoSearch()
l EnterCell()
l Error(ByVal ErrorCode As Long, ShowMsgBox As Boolean)
l FilterData(ByVal Row As Long, ByVal Col As Long, Value As String, ByVal SavingToDB As Boolean, WantThisCol As Boolean)
l GetHeaderRow(ByVal Row As Long, HeaderRow As Long)
l GotFocus()
l KeyDown(KeyCode As Integer, Shift As Integer)
l KeyDownEdit(ByVal Row As Long, ByVal Col As Long, KeyCode As Integer, ByVal Shift As Integer)
l KeyPress(KeyAscii As Integer)
l KeyPressEdit(ByVal Row As Long, ByVal Col As Long, KeyAscii As Integer)
l KeyUp(KeyCode As Integer, Shift As Integer)
l KeyUpEdit(ByVal Row As Long, ByVal Col As Long, KeyCode As Integer, ByVal Shift As Integer)
l LeaveCell()
l LostFocus()
l MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
l MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
l MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
l OLECompleteDrag(Effect As Long)
l OLEDragDrop(Data As VSFlex8Ctl.VSDataObject, Effect As Long, ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
l OLEDragOver(Data As VSFlex8Ctl.VSDataObject, Effect As Long, ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single, State As Integer)
l OLEGiveFeedback(Effect As Long, DefaultCursors As Boolean)
l OLESetCustomDataObject(CustomDataObject As Variant)
l OLESetData(Data As VSFlex8Ctl.VSDataObject, DataFormat As Integer)
l OLEStartDrag(Data As VSFlex8Ctl.VSDataObject, AllowedEffects As Long)
l RowColChange()
l SelChange()
l SetupEditStyle(ByVal Row As Long, ByVal Col As Long, ByVal IsCombo As Boolean, Style As Long, StyleEx As Long)
l SetupEditWindow(ByVal Row As Long, ByVal Col As Long, ByVal EditWindow As Long, ByVal IsCombo As Boolean)
l StartAutoSearch()
l StartEdit(ByVal Row As Long, ByVal Col As Long, Cancel As Boolean)
l StartPage(ByVal hDC As Long, ByVal Page As Long, Cancel As Boolean)
l Validate(Cancel As Boolean)
l ValidateEdit(ByVal Row As Long, ByVal Col As Long, Cancel As Boolean)

六、附加功能：
1) 屬性頁：
在vsFlexGrid的屬性頁中，可以對表格進(jìn)行格式和內(nèi)容設(shè)計，這樣可以省去一些代碼(這部分屬性頁處理的內(nèi)容保存在窗體的frx文件中)。

2) 導(dǎo)入/導(dǎo)出：
通過LoadGrid/SaveGrid方法，可以對表格內(nèi)容進(jìn)行導(dǎo)入導(dǎo)出；導(dǎo)入導(dǎo)出的格式有幾種：
l 它自已的二進(jìn)制格式。
l 帶一定分隔符的文本文件。
l Excel97格式(不需要安裝 Excel，速度很快，但有一些屬性不支持)。
3) 打印
通過PrintGrid方法，可以將vsFlexGrid按照當(dāng)前的格式和數(shù)據(jù)進(jìn)行打印輸出，但這個功能比較簡單，比如不能進(jìn)行預(yù)覽，設(shè)置頁眉頁腳等。(ComponentOne的另一套控件vsView與vsFlexGrid配合可以實(shí)現(xiàn)強(qiáng)大的打印相關(guān)功能)

作為一個只有600多K大小的控件(vsFlexGrid.ocx)，功能這么強(qiáng)大確實(shí)非常不錯，在ZLHIS中也進(jìn)行了大量的使用，上面只是簡略列舉了它的部分功能，更詳細(xì)的功能可以運(yùn)行它的Demo進(jìn)行展示，也可以查看它的幫助文件，都比較詳盡