تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] هلي يوجد طريقة لجعل لوحة المفاتيح تكتب لوحدها وكاني اظغط علي الازرار
#1
Lightbulb 
اريد طريقة لجعل لوحة المفاتيح تكتب لوحدها وكاني اضغط علي الازرار  Idea



وشكرا لكل المهتمين
الرد }}}
تم الشكر بواسطة:
#2
(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

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


الملفات المرفقة
.zip   Auto Key.zip (الحجم : 11.7 ك ب / التحميلات : 18)
.zip   Auto.zip (الحجم : 90.49 ك ب / التحميلات : 16)
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

ساهم دائماً فى    لكل من يقوم بالمساهمة
فى حل المشكلة او الاستفسار لديك فالجميع هنا يعمل 
على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله


 شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
الرد }}}
تم الشكر بواسطة: dametucorazon , dametucorazon
#3
هذا الكود اسهل ..

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

تحياتي لكم 
الرد }}}
تم الشكر بواسطة: elgokr
#4
(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 فى لوحة المفاتيح

تحياتى لك
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

ساهم دائماً فى    لكل من يقوم بالمساهمة
فى حل المشكلة او الاستفسار لديك فالجميع هنا يعمل 
على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله


 شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
الرد }}}
تم الشكر بواسطة: sendbad100 , YousefOkasha
#5
ماشا ءالله ربنا يحميك
الرد }}}
تم الشكر بواسطة: elgokr


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  محتاج طريقة لتنسيق نص الرسالة المرسلة إلى الواتس اب new_programer 2 163 04-03-24, 07:15 AM
آخر رد: new_programer
  طريقة اجراء نسخة احتياطية و استرجاعها ؟ Osama NY 2 461 07-02-24, 08:59 PM
آخر رد: Kamil
  ماهي طريقة نقل محتويات checkedlistbox الى داتاقريدفيو صالح عبدالله 3 253 06-01-24, 03:20 PM
آخر رد: Kamil
  [VB.NET] ماهو اسم هذه الازرار ( + موجب و - سالب ) h2551996 1 249 19-12-23, 10:29 PM
آخر رد: justforit
  [VB.NET] ما هي طريقة استدعاء الازرار في الكيبورد من خلار زر افتراضي haider.mohsin92 1 295 14-12-23, 03:19 PM
آخر رد: Kamil
  طريقة عرض التقرير كريستال ريبورت في جهاز العميل Adel27213 2 347 10-12-23, 04:03 AM
آخر رد: Adel27213
  طريقة إسناد اكثر من جدول للكريستال ريبورت Adel27213 2 353 25-11-23, 11:51 PM
آخر رد: Adel27213
  طريقة تحويل الأرقام إلى حروف Adel27213 2 495 18-11-23, 01:40 AM
آخر رد: sniper2030
  التحكم فى عرض طريقة التاريخ فى الاداة datetimepicker Ahmed.vb 3 507 08-11-23, 01:27 AM
آخر رد: الحزين اليماني
  طريقة جلب صف من قاعدة البيانات بشرط العمود ٤ لا يساوي فارغ Adel27213 2 423 07-11-23, 05:02 AM
آخر رد: Adel27213

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم