Нужна функция на действие при нажатии определенной кнопки(Например при нажатии клавиши Enter происходит действие аналогичное клику по button1)
Пишу в MS Visual Basic 2008(Express, но думаю это не имеет значения)
Код:
Public Class Form2
Dim cikl As Integer
Private Sub RichTextBox1_KeyPress(sender As Object, e As System.Windows.Forms.KeyPressEventArgs) Handles RichTextBox1.KeyPress
If e.Handled = Keys.Enter Then
If cikl Mod 2 = 0 Then
button2.PerformClick() ' Создает событие Click для баттона.
MessageBox.Show("Баттон2 был нажат")
Else
MessageBox.Show("Баттон2 не был нажат")
End If
cikl = cikl + 1
End If
End Sub
Private Sub button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
End Sub
End Class
Dim cikl As Integer
Private Sub RichTextBox1_KeyPress(sender As Object, e As System.Windows.Forms.KeyPressEventArgs) Handles RichTextBox1.KeyPress
If e.Handled = Keys.Enter Then
If cikl Mod 2 = 0 Then
button2.PerformClick() ' Создает событие Click для баттона.
MessageBox.Show("Баттон2 был нажат")
Else
MessageBox.Show("Баттон2 не был нажат")
End If
cikl = cikl + 1
End If
End Sub
Private Sub button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
End Sub
End Class