VB为MSHFlexGrid添加表格编辑功能

最新推荐文章于 2024-04-09 14:52:11 发布

miaozk2006

最新推荐文章于 2024-04-09 14:52:11 发布

阅读量2.1k

点赞数 1

本文链接：https://blog.csdn.net/miaozk2006/article/details/82417107

版权

本文介绍如何通过在VB中结合使用MSHFlexGrid和TextBox控件，实现表格数据的编辑功能。通过编写代码，当鼠标点击单元格时，TextBox会出现在所选单元格上方，允许用户编辑数据，并在失去焦点或按下特定键时更新MSHFlexGrid的内容。

摘要由CSDN通过智能技术生成

虽然MSHFlexGrid的功能比较强大，样式比较丰富，可惜它不支持数据编辑。我以前俺用TextBox实现了它的编辑功能，总算弥补了MSHFlexGrid的不足。

首先，新建一个标准EXE工程，然后，在工程部件里选择“Microsoft Hierarchical Flex Grid Control 6.0 (OLEDB)”，在Form里添加一个MSHFlexGrid控件，命名为msGrid，再添加一个TextBox控件，命名为txtCell，最后在Form的代码窗口里粘贴以下代码，运行一下工程，一个支持数据编辑的表格就算大功告成了

代码如下：

Option Explicit

Private Sub Form_Load()
    Dim i As Long

    Me.ScaleMode = vbPixels
    msGrid.Rows = 10
    msGrid.Cols = 10
    For i = 1 To 9
        msGrid.TextMatrix(i, 0) = i
        msGrid.TextMatrix(0, i) = Chr(i + 64)
    Next
    msGrid.HighLight = flexHighlightNever
    msGrid.AllowBigSelection = False
    msGrid.SelectionMode = flexSelectionFree
    msGrid.FocusRect = flexFocusNone
    txtCell.Move -100, -100
    txtCell.BorderStyle = 0
End Sub

Private Sub msGrid_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
If Button <> 1 Then Exit Sub
msGrid.Redraw = Fa