كود تنفيذ الحدث:
انسخ رمز الكود كما يلي:
فرعي خاص mQuit_Click()
النص 1. النص = ""
نهاية
نهاية الفرعية
فرعي خاص mNew_Click()
النص 1. النص = ""
Form1.Caption = "بدون عنوان"
نهاية الفرعية
فرعي خاص mopen_Click()
CommonDialog1.ShowOpen
الإطار = CommonDialog1.FileName
إذا fname <> "" ثم
Form1.Caption = fname
النص 1. النص = ""
افتح fname للإدخال كرقم 1
ب = ""
افعل حتى EOF(1)
إدخال السطر رقم 1، السطر التالي
ب = ب والسطر التالي ومركز حقوق الإنسان (13) ومركز حقوق الإنسان (10)
حلقة
إغلاق رقم 1
Text1.Text = ب
نهاية إذا
نهاية الفرعية
فرعي خاص mSave_Click()
إذا كان Form1.Caption = "بدون عنوان" أو Form1.Caption = "" إذن
CommonDialog1.ShowSave
fname = CommonDialog1.FileName
آخر
fname = Form1.Caption
نهاية إذا
إذا fname <> "" ثم
Form1.Caption = fname
افتح fname للإخراج كرقم 1
طباعة رقم 1، نص 1. نص
إغلاق رقم 1
نهاية إذا
نهاية الفرعية
فرعي خاص mNewSave_Click()
CommonDialog1.ShowSave
إذا fname <> "" ثم
Form1.Caption = fname
افتح fname للإخراج كرقم 1
طباعة رقم 1، نص 1. نص
إغلاق رقم 1
نهاية إذا
نهاية الفرعية
تحتاج إلى استخدام التحكم CommonDialog!
رمز العقار:
انسخ رمز الكود كما يلي:
ابدأ تشغيل VB.Menu mFile
تسمية توضيحية = "ملف"
ابدأ VB.Menu mNew
تسمية توضيحية = "جديد"
نهاية
ابدأ بفتح قائمة VB.Menu
التسمية التوضيحية = "فتح"
نهاية
ابدأ VB.Menu mSave
التسمية التوضيحية = "حفظ"
نهاية
ابدأ VB.Menu mNewSave
التسمية التوضيحية = "حفظ باسم"
نهاية
ابدأ VB.Menu mQuit
التسمية التوضيحية = "الخروج"
الاختصار = ^E
نهاية
نهاية