13-08-23, 01:14 PM
برجاء تعديل المشروع
لكي اتمكن من
الضغط علي ازرار لوحة المفاتيح
لكي اتمكن من
الضغط علي ازرار لوحة المفاتيح
تقييم الموضوع :
|
تعديل الالة الحاسبة الضغط علي ازرار لوحة المفاتيح
|
13-08-23, 03:11 PM
(آخر تعديل لهذه المشاركة : 13-08-23, 10:55 PM {2} بواسطة sabree.
تعديل السبب: تعديل كود ضفط زرلقسمه /
)
جرب الكود
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load Me.KeyPreview = True End Sub Private Sub Form1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles Me.KeyPress Me.Button17.Focus() If e.KeyChar = "1" Then Button1.PerformClick() If e.KeyChar = "2" Then Button2.PerformClick() If e.KeyChar = "3" Then Button3.PerformClick() If e.KeyChar = "4" Then Button5.PerformClick() If e.KeyChar = "5" Then Button6.PerformClick() If e.KeyChar = "6" Then Button7.PerformClick() If e.KeyChar = "7" Then Button9.PerformClick() If e.KeyChar = "8" Then Button10.PerformClick() If e.KeyChar = "9" Then Button12.PerformClick() If e.KeyChar = "0" Then Button11.PerformClick() If e.KeyChar = "." Then Button13.PerformClick() If e.KeyChar = "+" Then Button4.PerformClick() If e.KeyChar = "-" Then Button8.PerformClick() If e.KeyChar = "*" Then Button14.PerformClick() If e.KeyChar = "/" Then Button16.PerformClick() If e.KeyChar = Chr(Keys.Escape) Then Button15.PerformClick() If e.KeyChar = Chr(Keys.Enter) Then Button17.PerformClick() End Sub
19-08-23, 11:16 AM
تمام كانت مشكلة نقطة زيادة
برجاء اضافة زر back المسح للخلف |
|
|
يقوم بقرائة الموضوع: