اتصال سابروتین به کلید F12 که در تمامی اجزای فرم کار کند

سلام بر اساتید گرامی

بنده می‌خواهم کلید F12 ، سابروتینی خاص را در تمامی اجزای فرم اجرا کند
راهکاری سراغ دارید ؟

Public Class Form1 

   Private Sub Form1_KeyDown(sender As Object, e As KeyEventArgs) Handles MyBase.KeyDown

        If e.KeyCode = Keys.F12 Then

            MySubroutine()

        End If

    End Sub





    Private Sub MySubroutine()

        ' کد سابروتین خود را در اینجا قرار دهید

    End Sub

End Class

سلام.
این نکته مهم رو فراموش نکنید:

Form.KeyPreview Property (System.Windows.Forms) | Microsoft Learn

نقل قول:

---

نوشته شده توسط پرستو پارسایی

Public Class Form1 

   Private Sub Form1_KeyDown(sender As Object, e As KeyEventArgs) Handles MyBase.KeyDown

        If e.KeyCode = Keys.F12 Then

            MySubroutine()

        End If

    End Sub





    Private Sub MySubroutine()

        ' کد سابروتین خود را در اینجا قرار دهید

    End Sub

End Class

---

جواب نداد استاد عزیزم ، احتمال دارد مربوط به فوکوس روی اجزایی از فرم باشه که من دقت ندارم ؟

باید اطمینان حاصل کنید که رویداد KeyPreview فرم شما فعال شده باشه تا بتوانید کلیدهایی که در فرم فشرده می‌شن، را دریافت کنید.
برای فعال کردن رویداد KeyPreview، می‌تونید از Form_Load استفاده کنید. این رویداد هنگامی صدا زده می‌شه که فرم بارگذاری شود. درون آن، مقدار KeyPreview را برابر True قرار دهید. اگر باز هم مشکلی وجود داشت مطمئن بشید که کدهای سابروتین MySubroutine درست هست و هیچ خطایی در آن وجود ندارد. و کلید F12 به درستی شناسایی شده است.

Public Class Form1

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        Me.KeyPreview = True

    End Sub





    Private Sub Form1_KeyDown(sender As Object, e As KeyEventArgs) Handles MyBase.KeyDown

        If e.KeyCode = Keys.F12 Then

            MySubroutine()

        End If

    End Sub





    Private Sub MySubroutine()

        ' کد سابروتین خود را در اینجا قرار دهید

    End Sub

End Class

نقل قول:

---

نوشته شده توسط پرستو پارسایی

باید اطمینان حاصل کنید که رویداد KeyPreview فرم شما فعال شده باشه تا بتوانید کلیدهایی که در فرم فشرده می‌شن، را دریافت کنید.
برای فعال کردن رویداد KeyPreview، می‌تونید از Form_Load استفاده کنید. این رویداد هنگامی صدا زده می‌شه که فرم بارگذاری شود. درون آن، مقدار KeyPreview را برابر True قرار دهید. اگر باز هم مشکلی وجود داشت مطمئن بشید که کدهای سابروتین MySubroutine درست هست و هیچ خطایی در آن وجود ندارد. و کلید F12 به درستی شناسایی شده است.

Public Class Form1

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        Me.KeyPreview = True

    End Sub





    Private Sub Form1_KeyDown(sender As Object, e As KeyEventArgs) Handles MyBase.KeyDown

        If e.KeyCode = Keys.F12 Then

            MySubroutine()

        End If

    End Sub





    Private Sub MySubroutine()

        ' کد سابروتین خود را در اینجا قرار دهید

    End Sub

End Class

---

استاااااااااااااااااااااا اااااااااااااااااااد یدونه‌ای
مشکل از KeyPreview بود
ممنونم