بعد الكتابة في التكست والضغط على إنتر أريد ان يمسح ما كتبت في التكست

وعليكم السلام ورحمه الله

أخي الكريم الحل كالاتي :

في حدث ال key up للتكست تكتب هذا الكود :

If e.KeyCode = Keys.Enter Then

TextBox1.Clear()

End If

وهذا كل شيء ان شاء الله

If e.KeyCode = Keys.Enter Then

TextBox1.Clear()

End If

اشكرك على سرعة ردك وتجاوبك اخي الغالي

ولكن (Clear) تظهر عندي بلون الأحمر ولا استطيع ان أنفذ البرنامج ،فهل هناك كود غيرها

تفضل أخي كود المسح

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then Text1.Text = ""
End Sub

ضعة في صندوق النص في حدث KeyPress

شكراً لك

ولكن لم يفلح الكود

أنا استعملت هذا الكود وقد نجح معي

 Text1.Text=" "

ولكن أريده ان يرجع المؤشر في نفس التكست لأني بعد أن اضغط أنتر يخرج المؤشر من النص ويتجه للكومند ، المراد هو أن يبقى في نفس التكست

أخي مش معقوله الكود ما اشتغل معاك انا شغال معاي 100 /100 <<<

في المرفقات مثال للكود

New_Folder.rar

If KeyAscii = 13 Then
Text1.Text = ""
Text1.SetFocus
End If

If KeyAscii = 13 Then
Text1.Text = ""
Text1.SetFocus
End If

If KeyAscii = 13 Then

لو كتبت keyascii = 8 مثلا لظهر لك زر (مسح)

لو كتبت keyascii = 97 لظهر لك زر a

هكذا يمكن ان تبدل بين الاحرف و الازرار و الارقام

او تجعل بعضها لا يعمل :

if keyascii = 97 then
keyascii = 0
end if

وهكذا

لكن اذا اردت معرفة رقم الحرف وانت لا تحفظ كل الارقام <<< شيء طبيعي

استخدم البرنامج في المرفقات

____________

text1.setfocus

لوضع مؤشر الكتابة على التكست

keyascii.rar

medo_Programming كتب:

أخي مش معقوله الكود ما اشتغل معاك انا شغال معاي 100 /100 <<<

أنا اسف فعلاً ، وأعترف بأني لم ادخل الكود الأدخال الصحيح ،،،،لذلك لم يعمل معي أنا اعمل على أكسس واستخدم اكواد الفيجوال في محرر الفيجوال الخاص بالأكسس ولكن فعلاً عمل معي الكود في حدث عن الضغط على مفتاح ، ولكن كنت قد أخفيت رأس النموذج في الفورم ، ولكن بعد أن اعدة عمل معي 100% وأشكرك من كل قلبي على ارفاق المثال ، وجزاك الله كل خير وبارك فيك ونفعنا بما قدمت لنا .

الأخوان الكرام

GamingMasteR

كود صحيح اشكرك على تفضل بالرد علي

مبرمج مبتدا

كود صحيح وشرح رائع جداً جداً ، افادني في فهمي المتواضع وبالفعل كان الشرح مفيد لما اسعى إلى تعلمه الأن

فشكراً جزيلاً لكم وبارك الله فيكم

أنا أسف لاني لم أرد عليك بالمس ولكني كنت قفلت النت وبدل ما كنت تكتب textbox1.clear كنت اكتب textbox1.text=" "

ولكن الشباب قامو بالواجب