初学VB6.0中的MSHFLEXGIRD控件,有个问题请教大家
哪有此控件的使用示例?小弟找了好久没找到,各位大哥大姐能不能在这里贴下有关此控件的一些代码或者链接,谢谢大家了!
MSHFlexGrid 控制項
Microsoft Hierarchical FlexGrid (MSHFlexGrid) 控制項會顯示及運算表格資料。它擁有高度靈活性來對包含字串和圖片的表格進行排序、合併及格式化。當它連結到 data 控制項上時,MSHFlexGrid 所顯示的是唯讀資料。
語法
MSHFlexGrid
請注意
您可以將文字、圖片或兩者,放在 MSHFlexGrid 的任意儲存格中。Row 和 Col 屬性指定了 MSHFlexGrid 中目前的儲存格。使用者可以指定使用程式碼來變更目前儲存格,或者也可以在執行階段,使用滑鼠或方向鍵來對其進行變更。Text 屬性會引用目前儲存格的內容。
如果儲存格中的文字過長而無法顯示在該儲存格中,而且 WordWrap 屬性被設定為 True,那麼文字就會換列到同一儲存格內的下一行。為了顯示換列的文字,可能需要增加儲存格的資料行寬度 (ColWidth 屬性) 或資料列高度 (RowHeight 屬性)。
可以用 Col 和 Row 屬性來決定 MSHFlexGrid 中的資料行數和資料列數。使用 Band 屬性來決定 MSHFlexGrid 中的 band 樣式。
顯示階層結構資料錄集
MSHFlexGrid 控制項的一個主要特性是,它能夠顯示階層結構資料錄集 — 以階層結構方式顯示的關聯資料表。建立階層結構資料錄集的最容易的方法是使用 Data Environment 設計師,並把 MSHFlexGrid 控制項的 DataSource 屬性指定給 Data Environment。您也可以用 Shape 指令作為 ADO Data Control 的 RecordSource,程式碼中建立階層結構資料錄,如下面的範例:
' 建立 ConnectionString。
Dim strCn As String
strCn = "Provider=MSDataShape.1;Data Source=Nwind;" & _
"Connect Timeout=15;Data Provider=MSDASQL"
' 建立 Shape 指令。
Dim strSh As String
strSh = "SHAPE {SELECT * FROM `Customers`} AS Customers " & _
"APPEND ({SELECT * FROM `Orders`} AS Orders RELATE " & _
"CustomerID TO CustomerID) AS Orders"
' 將 ConnectionString 指定給 ADO Data 控制項的' ConnectionString 屬性,Shape 指令以及
' 控制項的 RecordSource 屬性。
With Adodc1
.ConnectionString = strCn
.RecordSource = strSh
End With
' 將 HflexGrid 控制項的 DataSource 屬性設定到
' ADO Data 控制項。
Set HFlexGrid1.DataSource = Adodc1
詳細資訊 要查詢有關階層資料錄集的更多資訊,請參閱 階層式游標與資料呈像摘要。Shape 指令的詳細內容可參閱 一般的 Shape 指令。
附註 在應用程式中使用 MSHFlexGrid 控制項之前,您必須先將 MSHFlxGd.ocx 檔案加入專案中。為了將該檔案自動包括到專案中,可以把它放到自動載入 (Autoload) 檔案中。當散發應用程式時,應該將 MSHFlxGd.ocx 檔案安裝到使用者的 Microsoft Windows 的 System 子目錄下。關於如何將 ActiveX 控制項加入專案中的詳細資訊,請參閱《Visual Basic 程式設計者指南》中的〈標準 ActiveX 控制項〉。