(آموزشی) اجرای کد با فشردن دکمه اینتر

[ali.b]

سلام
گاهی نیاز هست مثلا وقتی در یک تکست باکس یا کمبوباکس با فشردن دکمه Enter از روی صفحه کلید کد یا یک رویدادی که تعریف کردیم صورت بگیره
با کد زیر میتونیم این کار را انجام دهیم

Private Sub [COLOR=#b22222]TextBox1[/COLOR]_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 Then
[COLOR=#0000ff]MsgBox "ok"
[/COLOR]End If
End Sub