Имитировать щелчок заголовка в DataGridView

Question

Я пытаюсь имитировать headerclick в столбце 1 столбца datagridview с помощью сочетаний клавиш, но я не знаю, как это сделать.

Private Sub frm_lista_KeyDown(ByVal sender As Object, ByVal e As KeyEventArgs) Handles Me.KeyDown 
    If e.KeyCode = Keys.S And e.Alt Then 
    'this handler exists 
    DataGridView1_ColumnHeaderMouseClick(whathere, whathere) 
    End If 
End Sub 

Любая помощь?

Answer 1

Убедитесь, что форма имеет это свойство набора:

Me.KeyPreview = True 

Поскольку вы пытаетесь указать столбец 1 из события клавиатуры, вы можете передать ваши собственные аргументы события:

Private Sub Form1_KeyDown(sender As Object, e As KeyEventArgs) Handles MyBase.KeyDown 
    If ((Control.ModifierKeys And e.Alt) AndAlso e.KeyCode = Keys.S) Then 
    Dim mea As New MouseEventArgs(MouseButtons.None, -1, -1, -1, -1) 
    Dim dgvcme As New DataGridViewCellMouseEventArgs(1, -1, -1, -1, mea) 
    DataGridView1_ColumnHeaderMouseClick(DataGridView1, dgvcme) 
    End If 
End Sub 

Событие теперь должен иметь набор свойств e.ColumnIndex.

Private Sub DataGridView1_ColumnHeaderMouseClick(sender As Object, e As DataGridViewCellMouseEventArgs) Handles DataGridView1.ColumnHeaderMouseClick 
    If e.ColumnIndex = 1 Then 
    MessageBox.Show("OK") 
    End If 
End Sub 

В качестве альтернативы, вы можете просто вызвать подпрограмму из обоих мест:

Private Sub Form1_KeyDown(sender As Object, e As KeyEventArgs) Handles MyBase.KeyDown 
    If ((Control.ModifierKeys And e.Alt) AndAlso e.KeyCode = Keys.S) Then 
    Call HandelColumnOneClick() 
    End If 
End Sub 

Private Sub DataGridView1_ColumnHeaderMouseClick(sender As Object, e As DataGridViewCellMouseEventArgs) Handles DataGridView1.ColumnHeaderMouseClick 
    If e.ColumnIndex = 1 Then 
    Call HandleColumnOneClick() 
    End If 
End Sub 

Private Sub HandleColumnOneClick() 
    '// Do Something 
End Sub