03-07-18, 01:27 AM
03-07-18, 07:35 PM
(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تحياتى لك
وتمنياتى لك التوفيق
04-07-18, 01:23 AM
هذا الكود اسهل ..
كود :
My.Computer.SendKey.Send ("Vb4Arb"(تحياتي لكم
04-07-18, 03:38 AM
(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 فى لوحة المفاتيح
تحياتى لك
04-07-18, 05:24 PM
ماشا ءالله ربنا يحميك