在vb6中使用图标或文本向网格添加按钮

我在表单中有一个EXGrid，希望将按钮添加到一个单元格中，该单元格要么显示Edit and Remove，要么显示这两个按钮的图标。这是我到目前为止的代码

 With grdGrade
    .BeginUpdate
        '.DataSource = objCo.DAL.Connection.Execute(sql)
        .DefaultItemHeight = 21

        .TreeColumnIndex = -1
        .MarkSearchColumn = False
        .FullRowSelect = exItemSel
        .DrawGridLines = exAllLines
        .SortOnClick = exNoSort
        .BackColorHeader = grdGrade.BackColor
        .Appearance = Flat
        .BackColorAlternate = Me.BackColor
        .SelBackColor = RGB(224, 224, 224)
        .SelForeColor = vbBlack
        .UseTabKey = True
        .Font = Me.Font

    .EndUpdate
End With

Set col = grdGrade.Columns.Add("Actions")
col.AllowDragging = False
col.Width = grdGrade.Width * 0.05
col.Editor.AddButton "Edit", , 0
col.Editor.AddButton "Remove", , 0
col.Editor.EditType = ButtonType

---

非常感谢你的帮助。

我终于拿到了。加载我使用的网格时：

Me.grdGrade.Items.CellValue(h, "Actions") = " Edit " 
Me.grdGrade.Items.CellHasButton(h, "Actions") = True 
s = Me.grdGrade.Items.SplitCell(h, "Actions") 
Me.grdGrade.Items.CellValue(0, s) = " Remove " 
Me.grdGrade.Items.CellHasButton(0, s) = True 

---

它就像一个符咒

只是为了增加魅力。现在按钮就在那里，它们是空白的，我终于找到了。加载网格时，我使用了：Me.grdGrade.Items.CellValueh，Actions=Edit Me.grdGrade.Items.CellHasButtonh，Actions=True s=Me.grdGrade.Items.SplitCellh，Actions Me.grdGrade.Items.CellValue0，s=Remove Me.grdGrade.Items.CellHasButton0，s=True，它就像一个符咒。