(تمت الفائدة) ماذا تعني كلمة vbCrLf , ووجه الشبه بينها وبين (Chr(13 و (Chr(10

[عبدالله المجرب]

السلام عليكم

ماذا تعني هذه

vbCrLf

[أبو آدم]

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

هي VBA keyword كلمة معرفة لدى vba ، تستخدم لتقطيع أقسام الجملة (الكود) مع زميلتها ( _ ) underscore character ، لتحقيق سهولة القراءة والتعرف على أجزاء الكود و نتائجه

............

[ابوخليل]

الى يمكن الاستغناء عنها ؟ اذا كانت الاجابة نعم ! فما الفرق او الفائدة من وجودها أو عدمه ؟

اذا اعتبرنا الفاصلة ( _ ) تحقق التعرف على أجزاء الكود

[أبو آدم]

لا يمكن الاستغناء عنها حال الحاجة لها ، او تحقق لزومها ولتوضيح فعلها الواضح ، لسهولة التفريق بين تقطيع أقسام الجملة وتقطيع النتائج

أفضل أن نستخدمها في صندوق رساله

Private Sub cmdMessageBox_Click()

	MsgBox "Your logon credentials have been checked " & _

		   "and your application has been approved: Congratulations!" & _

		   vbCrLf & "Before leaving, would you like " & _

		   "to take our survey survey now?", _

		   vbYesNoCancel Or vbQuestion Or vbDefaultButton2, _

		   "Crofton Circle of Friends - Membership Application"

End Sub

وبالتطبيق نجد أننا نقطع إجزاء الجملة لاسطر لتحقيق السهولة في التعرف و القراءة باستخدام

& و _

أما تقطيع أسطر النتائج حسب الاختيار فلا يتم الا بها

[محمد ايمن]

عذرا اخي ابو آدم

لو سمحت لاخيك الصغير التدخل قليلا

vbCrLf تستخدم لنقل المحرف الى سطر جديد و البدء من اليسار

اما ( _ ) فتستخدم لتقطيع الكود الى اسطر

db1.rar

[ابوخليل]

vbCrLf تستخدم لنقل المحرف الى سطر جديد و البدء من اليسار

Enter كفيلة بالنقل الى سطر جديد والبدء من اليسار

أما في الرسائل فهناك بدائل تقوم مقامها مثل (Chr(13 و (Chr(10

[محمد ايمن]

كلامك صحيح اخي ابو خليل

تستخدم في الرسائل عادة و لكن قلة قليلة من يعرف ( chr10 و chr13 )

و انا شخصيا اول مرة اعرف هذين الكلميتين

:signthankspin:

[ابوخليل]

وهذا كلام منقول لاثراء الموضوع

CR = Carriage Return

CrLf = Carriage Return Line Feed

LF = Line Feed

السبب هو أن هذه القيم تعود إلى أيام أجهزة الـteletype حين كانت وسيلة العرض الوحيدة للأجهزة هي الطابعة.

CR أو Carriage Return كانت تخبر الطابعة بأن تعيد رأس الطباعة إلى منطقة البداية.

LF أو Line feed كانت تخبر الطابعة بأن تحرك الورق سطر واحد إلى الأعلى.

لذا كانت القيمة للسطر الجديد هي CR مع LF أو CrLf.

وهذا آخر ( على ذمة صاحبه )

الاسم vbCrLf هو اسم ثابت جوهري معرّف في قالب كودModule اسمه Microsoft.VisualBasic.Constants لكنه ليس من كلمات اللغة الأساسية Keywords، لهذا يمكننا تعريف متغير له نفس هذا الاسم كالتالي:

Dim vbCrLf As String = ""

لكن هذا سيمنعنا من استخدام الثابت الجوهري vbCrLf مباشرة، ولحل هذه المشكلة يجب أن ننسبه إلى اسم القالب الخاص به كالتالي:

vbCrLf = Microsoft.VisualBasic.Constants.vbCrLf

في هذا الكود وضعنا قيمة الثابت الجوهري vbCrLf في متغير خاص بنا اسمه vbCrLf، واستطاعت فيجيوال بيزيك التفريق بينهما من خلال المسار الكامل للثابت الجوهري.

[أبو آدم]

vbCrLf .rar

[أبو آدم]

vbCrLf_Chr(13) & Chr(10) .rar

[عبدالله المجرب]

بارك الله فيك استاذ ابا ادم على فصل الموضوع والردود المفيدة

والشكر موصول للاستاذ ابو خليل والاخ محمد أيمن

[أبو آدم]

الفصل كان للاخ ابو خليل مشكورا

وانا احاول ان اساهم قليلا

شكرا لكلماتك الطيبة اخي عبدالله

[صقرمجرووح]

جزاكم الله كل خير اخواني وبارك في علمكم