منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[سؤال] RegisterHotKey With Notepad - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [سؤال] RegisterHotKey With Notepad (/showthread.php?tid=14218)



RegisterHotKey With Notepad - أسامة - 24-12-15

هل يمكن تشغيل RegisterHotKey مع Notepad بعنه عند الكتابة فى Notepad و تم الضغط على مفتاح معين يظهر رسلة ان تم الضغط على هذا الزر
هذا هو الكود الذى استخدمة 
كود :
   Public Shared MOD_SHIFT As Integer = &H4
   Public Const WM_HOTKEY As Integer = &H312
   Public Declare Function RegisterHotKey Lib "user32" (ByVal hwnd As IntPtr, ByVal id As Integer, ByVal fsModifiers As Integer, ByVal vk As Integer) As Integer
   Public Declare Function UnregisterHotKey Lib "user32" (ByVal hwnd As IntPtr, ByVal id As Integer) As Integer
   Dim Handlex As IntPtr = Process.GetProcessById(3736).MainWindowHandle
   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       Call RegisterHotKey(Handlex.ToInt32(), 9, 0, MOD_SHIFT)
   End Sub

   Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message)
       If m.Msg = WM_HOTKEY Then
           MessageBox.Show("Key are pressed.")
           Me.Show()
       End If
       MyBase.WndProc(m)
   End Sub

   Private Sub Form1_FormClosing(ByVal sender As System.Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles MyBase.FormClosing
       Call UnregisterHotKey(Handlex.ToInt32(), 9)
   End Sub