[alipro]

اريد طريقة لجعل لوحة المفاتيح تكتب لوحدها وكاني اضغط علي الازرار 

وشكرا لكل المهتمين

[elgokr]

(03-07-18, 01:27 AM)alipro كتب :

اريد طريقة لجعل لوحة المفاتيح تكتب لوحدها وكاني اضغط علي الازرار 

وشكرا لكل المهتمين

هل تقصد مثل السورس المرفق

صورة للبرنامج

الادوات المستخدمة :
1- عدد (1) TextBox
2- عدد (1) Timer

خصائص اداء الـ Timer

الكود المستخدم للفورم كاملاً

كود :

Public Class Form1
   Dim ii As Integer
   Dim kk As String = "لا تنسي ذكر الله ( لا اله الا الله محمد رسول الله )..."
   Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
       TextBox1.Text += kk.Chars(ii)
       ii += +1
       If ii >= kk.Length Then
           ii = 0
           TextBox1.Text = Nothing
       End If
   End Sub
End Class

تحياتى لك

وتمنياتى لك التوفيق

[YousefOkasha]

هذا الكود اسهل ..

كود :

My.Computer.SendKey.Send ("Vb4Arb"(

تحياتي لكم 

[elgokr]

(04-07-18, 01:23 AM)YousefOkasha كتب : هذا الكود اسهل ..

كود :

My.Computer.SendKey.Send ("Vb4Arb"(

تحياتي لكم 

بخصوص هذا الكود

هو عبارة عن تنفيذ لوحة المفاتيح

ولرؤية ما يتم تنفيذه يجب ان يكون الكود بهذا المثال

كود :

TextBox1.Focus()
       My.Computer.Keyboard.SendKeys("Vb4Arb")

ووظيفة الكود تفيد اذا كنت تريد انشاء مشروع لوحة المفاتيح

حيث يمكنك عمل تنفيذ لكل امر مثل

كود :

My.Computer.Keyboard.SendKeys("{BACKSPACE}")

وهنا يعنى عمل مسافى اى اضغط على المسطرة للوحة المفاتيح

ويمكن كتابتها ايضاً بهذه الطريقة

كود :

My.Computer.Keyboard.SendKeys("{BS}")

فمثلاً قم بانشاء زر وضع هذا الكود بداخله

كود :

My.Computer.Keyboard.SendKeys("{NUMLOCK}")

ستجد ان الاضاءة الخاصة بارقام لوحة المفاتيح تتغير كلما قم بالضغط على الزر

كما لو انك تضغط على Num Lock فى لوحة المفاتيح

تحياتى لك

[dametucorazon]

ماشا ءالله ربنا يحميك