المشاركات : 5
المواضيع 0
الإنتساب : Nov 2012
السمعة :
0
الشكر: 0
تم شكره 0 مرات في 0 مشاركات
السلام عليكم و رحمة الله و بركاته
البرنامج الدي أنا بصدد اتمامه هو مترجم نحوي خاص بلغة باسكال.
و قد استعملت الدالة mid لأقرأ النص حرف بعد حرف و لكن أريد الغاء قراءة الزر enter هل لكم أن تقدموا لي كود الغاء هدا الزر أو بالأحرى رمز هدا الزر.
و السلام عليكم و رحمة الله و بركاته
المشاركات : 82
المواضيع 5
الإنتساب : Nov 2012
السمعة :
2
الشكر: 0
تم شكره 26 مرات في 7 مشاركات
انا مبرمج للدوت نت و لكن لا اعلم اذا كانت تنطبق على الفيجول 6 ،،
عندك حالتين اما تستبدل جميع الانتر الذي بالنص بفراغ حتى تتخلص من الانتر و كود الانتر عندك حالتين اما chr(32) او chr(10)
او تقوم بعملية مقارنه عند اقتصاص جزء يحتوي هذا الحالتين chr(32) او chr(10) فانه يستبدله بشيء معين ،، يعني تتبقى الامور التحكم بيدك
علما باني استخدمتها على فيجول بيسك دوت نت ،، فلا اعلم اذا كانت تعمل على فيجول بيسك 6 ،،
تحياتي
المشاركات : 372
المواضيع 15
الإنتساب : Sep 2013
السمعة :
28
الشكر: 487
تم شكره 1677 مرات في 187 مشاركات
السلام عليكم...
في الواقع المفتاح 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
المواضيع 0
الإنتساب : Nov 2012
السمعة :
0
الشكر: 0
تم شكره 0 مرات في 0 مشاركات
شكرا وألف شكر لكم جميعا، جربت كل اقتراحاتكم ولكني اخترت كود ناجي ابراهيم لأنه يناسب المشروع الدي أنا بصدد اتمامه أو على الأرجح لقد أتممته بفضل و عون الله و أنتم بالطبع، أعدكم بعد تحسين البرنامج سأطرحه في المنتدى حتى يستفيد غيري كما استفدت أنا في هدا المنتدى،و السلام عليكم و رحمة الله وبركاته.
المشاركات : 8
المواضيع 0
الإنتساب : Dec 2012
السمعة :
0
الشكر: 0
تم شكره 0 مرات في 0 مشاركات
بس تتمم المشروع فرجينة عليه
:p طارق