[toutcien]

أريد ان اعمل مشروع بالفيوجل بيسك 6 المشروع يعمل كالاتي :

أولا يتكون المشروع من فورم واحد مثلا وزر واحد
اريد ان ابرمج هدا الزر عند الضغط عليه يعمل كبديل لاحد ازرار لوحة المفاتيح مثلا احد الحروف او اي زر اختاره انا هل يمكنكم مساعدتي ولكم جزيل الشكر

[toutcien]

سبحان الله الا يوجد احد في هذا المنتدى يستطيع مساعدتي؟؟؟؟

[sskk77]

اخي العزيز ابحث عن محاكاة لوحة المفاتيح
ستجد ذلك

[toutcien]

اقتباس المشاركة الأصلية كتبت بواسطة sskk77 اخي العزيز ابحث عن محاكاة لوحة المفاتيح ستجد ذلك

شكرا على الرد اخبرك اخي اني بحثت وبحثت ولم اجد شيا انا اريد محاكات الازرار واحدا واحد لااريد لوحة مفاتيح كاملة

[fouady2003]

SendKeys.Send("{ENTER}");

[toutcien]

اقتباس المشاركة الأصلية كتبت بواسطة fouady2003 SendKeys.Send("{ENTER}");

شكرا على الرد لكن لم افهم اين اضع عدا الكود ارجو الشرح

[fouady2003]

VB
Sub Sendkey(text$, Optional wait As Boolean = False)


Set WshShell = CreateObject("WScript.Shell")
WshShell.SendKeys text, wait
Set WshShell = Nothing

End Sub

Sendkeys "{Enter}"

وبالنسبة للسي شارب دوت نت

اعمل فورم وفيها Button
وفي الايفنت بتاع الكليك لل Button
ضيف كود
SendKeys.Send("{ENTER}");
زي الصورة كده

[toutcien]

اقتباس المشاركة الأصلية كتبت بواسطة fouady2003 VB Sub Sendkey(text$, Optional wait As Boolean = False) Set WshShell = CreateObject("WScript.Shell") WshShell.SendKeys text, wait Set WshShell = Nothing End Sub Sendkeys "{Enter}" وبالنسبة للسي شارب دوت نت اعمل فورم وفيها Button وفي الايفنت بتاع الكليك لل Button ضيف كود SendKeys.Send("{ENTER}"); زي الصورة كده

شكرا تم الفهم