تعديل الالة الحاسبة الضغط علي ازرار لوحة المفاتيح - نسخة قابلة للطباعة +- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb) +-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182) +--- قسم : قسم امثلة ومشاريع VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=188) +--- الموضوع : تعديل الالة الحاسبة الضغط علي ازرار لوحة المفاتيح (/showthread.php?tid=46701)

تعديل الالة الحاسبة الضغط علي ازرار لوحة المفاتيح - atefkhalf2004 - 13-08-23 برجاء تعديل المشروع لكي اتمكن من الضغط علي ازرار لوحة المفاتيح RE: تعديل الالة الحاسبة الضغط علي ازرار لوحة المفاتيح - sabree - 13-08-23 جرب الكود 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 RE: تعديل الالة الحاسبة الضغط علي ازرار لوحة المفاتيح - atefkhalf2004 - 13-08-23 تمام ما عدا الضغط علي القسمة / RE: تعديل الالة الحاسبة الضغط علي ازرار لوحة المفاتيح - atefkhalf2004 - 17-08-23 الزميل الفاضل يحل لي المشكلة RE: تعديل الالة الحاسبة الضغط علي ازرار لوحة المفاتيح - atefkhalf2004 - 19-08-23 تمام كانت مشكلة نقطة زيادة برجاء اضافة زر back المسح للخلف