Question

我在一个表单中有一个EXGrid，并且想要向一个单元格添加按钮，或者说“＃34;编辑＆＃34;和＆＃34;删除＆＃34;，或者有两个图标。这是我到目前为止的代码。

 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

非常感谢你的帮助。

Answer 1

我终于明白了。加载我使用的网格时：

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

它就像一个魅力

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

1 个答案: