تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
محتاج أين أضع هذا الكود if e.keyscod = keys.F3 لكي يعمل الزر
#1
السلام عليكم و رحمة الله
لقد قمت بإنشاء تطبيق على أساس أنه يعمل في background و هو عبارة عن قيام الفأرة بالضغط أو كليك عند أمر معين
أنا محتاج أين أضع مثلا هذا الكود
if e.keycode = keys.F3 then
btn.PerformClick()
end if
لقد قمت بحذف الفورم من التطبيق ثم أضفت موديل و أصبح على الشكل التالي مع بعض الأكواد بطبيعة الحال:
Module Module1
Declare Sub mouse_event Lib "user64" Alias "mouse_event" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)

Sub Main()

Application.Run()

End Sub
Friend WithEvents btn As New Button()

Private Sub MyMethod()
Windows.Forms.Cursor.Position = New System.Drawing.Point(Windows.Forms.Cursor.Position)
mouse_event(&H2, 0, 0, 0, 1)
mouse_event(&H4, 0, 0, 0, 1)
End Sub

Private Sub btn_Click(sender As Object, e As EventArgs) Handles btn.Click
MyMethod()
End Sub
End Module
الرد }}}
تم الشكر بواسطة:


الردود في هذا الموضوع
محتاج أين أضع هذا الكود if e.keyscod = keys.F3 لكي يعمل الزر - بواسطة mohammed moh - 29-08-13, 08:27 PM


التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم