На ярлыке введите нажмите, чтобы вызвать событие
Я пытаюсь заставить эту подпрограмму выполняться, когда моя метка имеет фокус, и кто-то нажимает "Enter". Это код, который у меня есть до сих пор...
Private Sub AssignOwnersLabel_Click() Handles AssignOwnersLabel.Click
Dim repository As OwnerRepositorySvc.OwnerRepositoryClient = Nothing
For Each programRow As DataGridViewRow In ProgramOwnerFill.SelectedRows
programRow.Cells(0).Value = AssignOwnersTXTBox.Text
Next
repository = OpenRepository()
repository.SaveOwners(_ds)
_ds.AcceptChanges()
CloseRepository(repository)
Dim dataview As DataView = _ds.ProgramOwners.DefaultView
dataview.Sort = _ds.ProgramOwners.EmployeeIDColumn.ColumnName
Me.ProgramOwnersBindingSource.DataSource = dataview
End Sub
Я думаю, чтобы заставить это работать, мне нужно что-то сделать с "keychar", но я не уверен, как это будет выглядеть. Спасибо за помощь!
1 ответ
Решение
Чтобы узнать, нажал ли пользователь клавишу ввода, сделайте следующее:
Private Sub Form1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Me.KeyPress
If e.KeyCode = Keys.Enter Then
' Put logic here for when the user pressed enter
End if
End Sub
Примечание. Существует несколько событий типа ключа, таких как KeyPress
, KeyDown
а также KeyUp
,