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

نسخة كاملة : هلي يوجد طريقة لجعل لوحة المفاتيح تكتب لوحدها وكاني اظغط علي الازرار
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
اريد طريقة لجعل لوحة المفاتيح تكتب لوحدها وكاني اضغط علي الازرار  Idea



وشكرا لكل المهتمين
(03-07-18, 01:27 AM)alipro كتب : [ -> ]
اريد طريقة لجعل لوحة المفاتيح تكتب لوحدها وكاني اضغط علي الازرار  Idea



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

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

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

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

خصائص اداء الـ 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

تحياتى لك
وتمنياتى لك التوفيق
هذا الكود اسهل ..

كود :
My.Computer.SendKey.Send ("Vb4Arb"(

تحياتي لكم 
(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 فى لوحة المفاتيح

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