منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
كود الزر enter - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم أسئلة واستفسارات الأعضاء - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=94)
+--- قسم : قسم Visual Basic 6 وما قبله (http://vb4arb.com/vb/forumdisplay.php?fid=167)
+--- الموضوع : كود الزر enter (/showthread.php?tid=7307)

كود الزر enter - عبد الرحيم - 10-12-12

السلام عليكم و رحمة الله و بركاته
البرنامج الدي أنا بصدد اتمامه هو مترجم نحوي خاص بلغة باسكال.
و قد استعملت الدالة mid لأقرأ النص حرف بعد حرف و لكن أريد الغاء قراءة الزر enter هل لكم أن تقدموا لي كود الغاء هدا الزر أو بالأحرى رمز هدا الزر.
و السلام عليكم و رحمة الله و بركاته

كود الزر enter - السكر المغرور - 10-12-12

انا مبرمج للدوت نت و لكن لا اعلم اذا كانت تنطبق على الفيجول 6 ،،

عندك حالتين اما تستبدل جميع الانتر الذي بالنص بفراغ حتى تتخلص من الانتر و كود الانتر عندك حالتين اما chr(32) او chr(10)

او تقوم بعملية مقارنه عند اقتصاص جزء يحتوي هذا الحالتين chr(32) او chr(10) فانه يستبدله بشيء معين ،، يعني تتبقى الامور التحكم بيدك


علما باني استخدمتها على فيجول بيسك دوت نت ،، فلا اعلم اذا كانت تعمل على فيجول بيسك 6 ،،

تحياتي

كود الزر enter - عبدالله الصافي - 10-12-12

جرب ذلك الكود. بالتوفيق.

كود :
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
MsgBox "hhhh"
End If
End Sub


كود الزر enter - ناجي إبراهيم - 10-12-12

السلام عليكم...

في الواقع المفتاح Enter يرسل قيمتين متتاليتين هما ASCII 13 (المعروف بـ Carriage Return أو CR) متبوعاً بـ ASCII 10 (المعروف بـ Line Feed أو LF)، و لهذا تجد اسم الثابت الذي يمثل مفتاح Enter في VB6 هو vbCrLf.

و بالتالي يمكنك البحث عن هذين الرمزين و استبدالهما بما تشاء. المثال التالي يضع الرمز > في كل الأماكن التي يجد فيها رمز المفتاح Enter (الانتقال إلى سطر جديد):
كود :
Private Sub Command1_Click()
    Text1.Text = Replace$(Text1.Text, vbCrLf, ">")
End Sub

نرجو الاستفادة و السلام.

كود الزر enter - عبد الرحيم - 11-12-12

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

كود الزر enter - طارق - 21-12-12

بس تتمم المشروع فرجينة عليه