+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] اصلاح خطأ بسيط في الضغط على زر لوحة المفاتيح (/showthread.php?tid=32249)
اصلاح خطأ بسيط في الضغط على زر لوحة المفاتيح - farfour - 26-11-19
السلام عليكم
ممكن اصلاح خطأ هذا الكود
كود :
Dim path As String = "C:\Windows\system32\notepad.exe"
Private Declare Function SetForegroundWindow Lib "User32.dll" (point As IntPtr) As Integer
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim process As Process = process.GetProcessesByName("notepad").FirstOrDefault(Of Process)()
If process IsNot Nothing Then
Dim mainWindowHandle As IntPtr = process.MainWindowHandle
Form1.SetForegroundWindow(mainWindowHandle)
SendKeys.SendWait("^{H}") 'replace Ctrl & H
End If
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Process.Start(path)
End Subكل ما اريده هو التحكم في Notepad عن طريق برنامجي
يعني اذا ضغط على زر تعديل يقوم بضغط على Ctrl & H في لوحة المفاتيح و يظهر لي نافذة remplace
RE: اصلاح خطأ بسيط في الضغط على زر لوحة المفاتيح - محمد كريّم - 27-11-19
كود :
Dim process As Process = Process.GetProcessesByName("notepad").FirstOrDefault()
If process IsNot Nothing Then
Dim mainWindowHandle As IntPtr = process.MainWindowHandle
Form1.SetForegroundWindow(mainWindowHandle)
SendKeys.SendWait("^{h}") 'replace Ctrl & H
End If