请问如何在datagrid中某一设置button属性的列中添加选项,就象comobox一样?

Question

加一个listbox，设置其。
在buttonclick事件中，根据当前单元格重新设置的top,left，并使visible = true。在list1_click事件中:
datagrid.text = list1.list(list1.listindex)
list1.visible = false此外，datagrid的rowcolchange,lostfocus事件中设置list1.visible = false

Answer 1

加一个listbox，设置其visible = false。

Answer 2

谢谢of123,但datagrid控件本来就有一个button属性,当设置为true时,在那一列中就会出现那个类似的控件,现在就是不知道该如何把内容添加到选项中.请问这个该怎么做?

Answer 3

如果用of123的方法如何定位?其top,left该如何定?

Answer 4

Option ExplicitPrivate Sub DataGrid1_ButtonClick(ByVal ColIndex As Integer)
With DataGrid1
List1.Left = .Left + .Columns(ColIndex).Left
List1.Top = .Top + .RowHeight * (.Row + 2)
End With
List1.Visible = True
End SubPrivate Sub DataGrid1_LostFocus()
List1.Visible = False
End SubPrivate Sub DataGrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer)
List1.Visible = False
End SubPrivate Sub List1_Click()
List1.Visible = False
End Sub