關於MSHFlexGrid控制項的相關操作

1.關於它的屬性頁面設定：右擊屬性

2：屬性和方法

由於該控制項涉及到的屬性和方法比較多，我就介紹幾個我們在機房系統中最常使用的幾個吧。

.rows :行屬性第一行其返回值為0，依次類推

.rowsel:選中行數，可以為一個範圍多行

.mouserow:滑鼠所在行

.cols:列屬性

.clowidth:列寬

.textmatrix(introw,intcol):返回具體某一單元各中的內容

.cellallignment:單元格中內容的對齊

.backcolorsel:選中單元格背景色

.remouveitem:移除某一行內容

3：事件

mousedown，mouseup ：當滑鼠按下或彈起時的相應的操作

clear:清除內容，一般用在防止所需內容重複載入時

4：以上是我們遇到的一些基礎內容

Private Sub flexgriduserinfo_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single) '滑鼠按下時     With flexgriduserinfo        .Row = .MouseRow  '選中行為滑鼠所在行        currentrow = .Row '當前第幾行        .Col = 0     '以選中第0列為標準             End With     End Sub'mouseup事件，滑鼠選中某一條記錄Private Sub flexgriduserinfo_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)    With flexgriduserinfo        If currentrow > 0 Then     '如果存在選中的一行            .RowSel = currentrow     '.rowsel行為當前行即選中行            .ColSel = .Cols - 1 '保證永遠只選中一行                    End If    End With    End Sub

Private Sub cmddelete_Click()    Dim mrc As ADODB.Recordset    Dim txtSQL As String    Dim msgText As String         '將刪除的使用者從註冊表中刪除    txtSQL = "select * from user_info where user_ID='" & flexgriduserinfo.TextMatrix(flexgriduserinfo.Row, 0) & "'"    Set mrc = ExecuteSQL(txtSQL, msgText)        If Not mrc.EOF Then        mrc.Delete        mrc.Update    End If        With flexgriduserinfo        If .RowSel = 1 Then      '如果選中標題列，注意我這裡將標題列放在了第二行所以.rowsel=1            MsgBox "請選中要刪除的一行！"            Exit Sub        End If        .RemoveItem .Row         '移除要刪除的一行        MsgBox "使用者刪除成功！"        Exit Sub            End With           End Sub