بسم الله الرحمن الرحيم
السلام عليكم كيف حالكم
اليوم أحضرت لكلم درس جميل ولو انة صغير لكن رايت اسئلة كثيرة عنة
فاردت ان اطرحة على منتدانا الجميل vb4arab
نقوم باضافة مشروع جديد ونضيف للفورم اداة command ونغير الكابشن Caption
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذه الصورة]
لذلك نقول بسم الله الرحمن الرحيم ونبدأ :
الى (عرض رسالة نصية مسطرة) ونغير اعدادات الفورم كما نريد
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذه الصورة]
نظغط على الكوماند دبل كليك ونضيف الكود التالي :
في السطر الاول قمنا بتعريف متغير نصي (Text) وهو سيكون محتوى الرسالة
وفي السطر الثاني قمنا بتعريف متغير (Title) وهو سيكون عنوان الرسالة
في الصدر الثالث قمنا بكتابة عنوان الرسالة
ومن الصدر الرابع حتى العاشر هو لنص الرسالة
ملاحضة : نجد في كل صدر كود للنص كلمة () وهي لجعل الرسالة مسطرة ولكن اذا حذفناها فسوف تكون الرسالة بلا اسطر (جرب هذا )
والسطر الاخير هو للرسالة اتمنى ان تستفيدو ولاسلام عليكم ورحمة الله وبركاتة
شرح الكود :
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذه الصورة]
واتفضلوا ايضاً هذا هذا الدرس والمثال تبعة :
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]
واتمنى ان تستفيدوا
السلام عليكم كيف حالكم
اليوم أحضرت لكلم درس جميل ولو انة صغير لكن رايت اسئلة كثيرة عنة
فاردت ان اطرحة على منتدانا الجميل vb4arab
نقوم باضافة مشروع جديد ونضيف للفورم اداة command ونغير الكابشن Caption
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذه الصورة]
لذلك نقول بسم الله الرحمن الرحيم ونبدأ :
الى (عرض رسالة نصية مسطرة) ونغير اعدادات الفورم كما نريد
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذه الصورة]
نظغط على الكوماند دبل كليك ونضيف الكود التالي :
- الكود:
Dim Text As String
Dim Title
Title = " حول مثال عمل رسالة نصية مصدرة "
Text = " مثال عمل رسالة نصية مسطرة " & Chr(13)
Text = Text + "قام بتصميم هذا المثال " & Chr(13)
Text = Text + "===================================" & Chr(13)
Text = Text + " عبدالله الدرة ** فلسطين قاهرهم " & Chr(13)
Text = Text + "===================================" & Chr(13)
Text = Text + "جميع الحقوق محفوظة لمنتدى فيجوال بيسك "
Text = Text & Chr(13) + " -1432- "
MsgBox Text, 64 + 524288 + 1048576, Title
في السطر الاول قمنا بتعريف متغير نصي (Text) وهو سيكون محتوى الرسالة
وفي السطر الثاني قمنا بتعريف متغير (Title) وهو سيكون عنوان الرسالة
في الصدر الثالث قمنا بكتابة عنوان الرسالة
ومن الصدر الرابع حتى العاشر هو لنص الرسالة
ملاحضة : نجد في كل صدر كود للنص كلمة () وهي لجعل الرسالة مسطرة ولكن اذا حذفناها فسوف تكون الرسالة بلا اسطر (جرب هذا )
والسطر الاخير هو للرسالة اتمنى ان تستفيدو ولاسلام عليكم ورحمة الله وبركاتة
شرح الكود :
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذه الصورة]
واتفضلوا ايضاً هذا هذا الدرس والمثال تبعة :
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]
واتمنى ان تستفيدوا
