VsFlexGrid怎样响应下拉列表事件？

[fei9999]

VsFlexGrid中，设置某列为下拉列表框，假设值为aaa|bbb|ccc，怎样选择某个值后弹出相应对话框？
如：选择aaa则弹出"aaa"，选择bbb则弹出"bbb"

[fei9999]

难道问题太简单，没人回答？

[aohan]

Option Explicit

Private Sub Form_Load()
    With VSFlexGrid1
        .ColComboList(1) = "AAA|BBB|CCC"
        .Editable = flexEDKbdMouse

    End With
End Sub

Private Sub VSFlexGrid1_AfterEdit(ByVal Row As Long, ByVal Col As Long)
    If Col = 1 Then
        MsgBox VSFlexGrid1.TextMatrix(Row, Col)
    End If
End Sub

Private Sub VSFlexGrid1_ComboCloseUp(ByVal Row As Long, ByVal Col As Long, FinishEdit As Boolean)
     FinishEdit = True
     
End Sub

[shahe23]

谢谢啊。我加你啊

[Yoo1987]

good