تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
كود الزر enter
#1
السلام عليكم و رحمة الله و بركاته
البرنامج الدي أنا بصدد اتمامه هو مترجم نحوي خاص بلغة باسكال.
و قد استعملت الدالة mid لأقرأ النص حرف بعد حرف و لكن أريد الغاء قراءة الزر enter هل لكم أن تقدموا لي كود الغاء هدا الزر أو بالأحرى رمز هدا الزر.
و السلام عليكم و رحمة الله و بركاته
الرد }}}}
تم الشكر بواسطة:
#2
انا مبرمج للدوت نت و لكن لا اعلم اذا كانت تنطبق على الفيجول 6 ،،

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

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


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

تحياتي
الرد }}}}
تم الشكر بواسطة:
#3
جرب ذلك الكود. بالتوفيق.

كود :
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
MsgBox "hhhh"
End If
End Sub
الرد }}}}
تم الشكر بواسطة:
#4
السلام عليكم...

في الواقع المفتاح 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

نرجو الاستفادة و السلام.
بِسْمِ اللهِ الرَّحْمَنِ الرَّحِيمِ ( وَ مَا تُقَدِّمُوا لِأَنفُسِكُم مِّنْ خَيْرٍ تَجِدُوهُ عِندَ اللهِ هُوَ خَيْراً وَ أَعْظَمَ أَجْراً ) صَدَقَ اللهُ الْعَظِيمُ
الرد }}}}
تم الشكر بواسطة:
#5
شكرا وألف شكر لكم جميعا، جربت كل اقتراحاتكم ولكني اخترت كود ناجي ابراهيم لأنه يناسب المشروع الدي أنا بصدد اتمامه أو على الأرجح لقد أتممته بفضل و عون الله و أنتم بالطبع، أعدكم بعد تحسين البرنامج سأطرحه في المنتدى حتى يستفيد غيري كما استفدت أنا في هدا المنتدى،و السلام عليكم و رحمة الله وبركاته.
الرد }}}}
تم الشكر بواسطة:
#6
بس تتمم المشروع فرجينة عليه
:p طارق Rolleyes
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] مساعدة في كتابة كود الزر تخزين مزنة 9 199 28-11-16, 12:44 PM
آخر رد: مزنة
  [كود] كود إدارج بيانات text عند الضغط على زر Enter Hell Cell 1 377 28-01-15, 02:42 PM
آخر رد: Amir_alzubidy
  استفسار عن شيء في الزر ahmed3d 3 554 27-08-13, 12:26 PM
آخر رد: ahmed3d
  طلب مثال لتغير شكل الزر عند مرور الماوس عليه عمـر 2 441 11-03-13, 07:47 PM
آخر رد: عمـر

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


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