سؤال عن صندوق الأدخال

If KeyCode = vbKeySpace Then MsgBox "gaf58"

تحياتي

اشكرك ياخى على الرد

ولكنى لم استطع تنفيذه هل اكتب

dim a as string

a=inputbox("enter name")

If KeyCode = vbKeySpace Then MsgBox "gaf58"

كيف يمكن تنفيذها

في الحقيقة موش عارف

صعبة مع ال input box

شوية ويفرجها ربنا بأحد الخبراء وتنحل باذن الله

قول يا رب

اشكرك اخى gaf58

واتمنى من احد الخبراء افادتنا بالرد

أخي الحبيب:

الحل السريع لمشكلتك أخي الفاضل أن تقوم بفلترة الكلام المدرج في الـ Input box و إلغاء المسافة إذا كتبت أو إستبدالها بأي حرف أو رمز آخر , و هذا عن طريق الدالة Split, و قد وضعت لك أخي الحبيب مثال على هذا الموضوع أرجو أن يفي بالغرض.

Split.rar

لازم اقول برآآآآآآآآآآآفو

بارك الله فيك اخي العزيز

اشكرك اخى Alaa Awaad

وجارى تجربته

السلام عليكم ورحمة الله وبركاته

هذه المشكله لها حلان اخران

الاول

معاجة الجمله بعد ان يكتب المستخدم ما يريد فى صندوق الادخال يقوم البرنامج بخذف المسافات إن وجدت فى الجمله عن طريق هذا الكود التالى:-

Dim STR1 As String
STR1 = InputBox("", "input")
STR1 = Replace(STR1, " ", "", 1)

الثانى

هو ان يضهر البرنامج رسالة خطأ للمستخدم عند وجود اى مسافه فى الجمله ويطلب منه حذف المسافات عن طريق الكود التالى:-

On Error Resume Next
Dim STR1 As String, Count1 As Long
STR1 = InputBox("", "input")
AGN:
Count1 = InStr(1, STR1, " ", vbTextCompare)
If Count1 Then
MsgBox "يوجد مسافات قم بحذفها اولاً", vbCritical
STR1 = InputBox("", "", STR1)
GoTo AGN:
End If

ارجو ان يكون هذا المطلوب

انا اسف ياخوانى ولكنى اريد

ان لا يكتب المستخدم اى مسافات فقط اى ان قام بكتابه مسافات فقط يعطيه رساله خطأ

ممتاز جدا اخي شريف

بارك الله فيك

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

تحياتي

ضع هذا الكود فى قسم العام

Dim str1 As String, Count1 As Long, STR2 As String, Count2 As Long
Private Const STR = "abcdefghijklmnopqrstuvwxyz0123456789Ç"

واستخدم هذا الكود

On Error Resume Next
AGN:
str1 = InputBox("", "", "")
If Len(str1) Then
For Count2 = 1 To Len(str1)
STR2 = Mid(str1, Count2, 1)
Count1 = InStr(1, STR, STR2, vbTextCompare)
If Count1 Then Exit Sub
Next
MsgBox "The Prompt Is Space", vbCritical
GoTo AGN:
Else
MsgBox "The Prompt Is Free", vbCritical
GoTo AGN:
End If

ارجو ان يكون هذا هو المطلوب

وبالنسبه لسؤال الأخ Gaf58 هناك دوال Api تساعدك فى هذا

;) ;) :rolleyes:

شكرا جزيلا اخي شريف لاهنمامك :D

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

شريف عادل كتب:

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

←

بارك الله فيك اخي العزيز

بصراحة خجلت اني اسألك تاني !! :blink: