DataGridViewComboBox下拉事件（VB.NET）

huanghai231

已于 2022-10-05 15:23:11 修改

阅读量507

点赞数

分类专栏： VB.NET 文章标签： .net c# 开发语言

于 2020-02-07 19:15:22 首次发布

本文链接：https://blog.csdn.net/huanghai231/article/details/104214369

版权

VB.NET 专栏收录该内容

6 篇文章 1 订阅

订阅专栏

DataGridViewComboBox下拉事件（VB.NET）

    Private DataGridViewComboBox As DataGridViewComboBoxEditingControl = Nothing   'EditingControlShowing事件处理程序
    Private Sub DataGridView1_EditingControlShowing(ByVal sender As Object, ByVal e As DataGridViewEditingControlShowingEventArgs) Handles DataGridView1.EditingControlShowing
        '检查显示的控件DataGridViewComboBoxEditingControl
        If TypeOf e.Control Is DataGridViewComboBoxEditingControl Then
            Dim dgv As DataGridView = CType(sender, DataGridView)
            '检查是否是符合的列
            If dgv.CurrentCell.OwningColumn.Name = "Sk6" Then
                '获取用于编辑的控件
                DataGridViewComboBox = CType(e.Control, DataGridViewComboBoxEditingControl)
                '设置控件是否可以输入
                DataGridViewComboBox.DropDownStyle = ComboBoxStyle.DropDown
                'SelectedIndexChanged添加事件处理程序
                AddHandler DataGridViewComboBox.SelectedIndexChanged, AddressOf DataGridViewComboBox_SelectedIndexChanged
            End If
        End If
    End Sub

    'CellEndEdit事件处理程序
    Private Sub DataGridView1_CellEndEdit(ByVal sender As Object, ByVal e As DataGridViewCellEventArgs) Handles DataGridView1.CellEndEdit
        'SelectedIndexChanged删除事件处理程序
        If Not (DataGridViewComboBox Is Nothing) Then
            RemoveHandler Me.DataGridViewComboBox.SelectedIndexChanged, AddressOf DataGridViewComboBox_SelectedIndexChanged
            DataGridViewComboBox = Nothing
        End If
    End Sub
    'DataGridView中显示的组合框SelectedIndexChanged事件处理程序
    Private Sub DataGridViewComboBox_SelectedIndexChanged(ByVal sender As Object, ByVal e As EventArgs)
        '显示选中的项目
        Dim cb As DataGridViewComboBoxEditingControl = CType(sender, DataGridViewComboBoxEditingControl)
        Console.WriteLine(cb.SelectedItem)
        Console.WriteLine(cb.Text)
    End Sub