منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

برجاء تعديل المشروع
لكي اتمكن من

الضغط علي ازرار لوحة المفاتيح

جرب الكود
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

تمام
ما عدا الضغط علي القسمة
/

الزميل الفاضل يحل لي المشكلة

تمام كانت مشكلة نقطة زيادة

برجاء اضافة زر back المسح للخلف