รหัสการใช้งานเหตุการณ์:
คัดลอกรหัสรหัสดังต่อไปนี้:
ส่วนตัวย่อย mQuit_Click()
Text1.Text = ""
จบ
จบหมวดย่อย
ส่วนตัวย่อย mNew_Click()
Text1.Text = ""
Form1.Caption = "ไม่มีชื่อ"
จบหมวดย่อย
ย่อยส่วนตัว mopen_Click()
CommonDialog1.ShowOpen
เฟรม = CommonDialog1.FileName
ถ้า fname <> "" แล้ว
Form1.Caption = fname
Text1.Text = ""
เปิด fname สำหรับการป้อนข้อมูลเป็น #1
ข = ""
ทำจนถึง EOF(1)
อินพุตบรรทัด #1 บรรทัดถัดไป
b = b & บรรทัดถัดไป & Chr(13) & Chr(10)
วนซ้ำ
ปิด #1
Text1.Text = ข
สิ้นสุดถ้า
จบหมวดย่อย
ย่อยส่วนตัว mSave_Click()
ถ้า Form1.Caption = "Untitled" หรือ Form1.Caption = "" จากนั้น
CommonDialog1.ShowSave
fname = CommonDialog1.FileName
อื่น
fname = Form1.คำอธิบายภาพ
สิ้นสุดถ้า
ถ้า fname <> "" แล้ว
Form1.Caption = fname
เปิด fname สำหรับเอาต์พุตเป็น #1
พิมพ์ #1, Text1.Text
ปิด #1
สิ้นสุดถ้า
จบหมวดย่อย
ส่วนตัวย่อย mNewSave_Click()
CommonDialog1.ShowSave
ถ้า fname <> "" แล้ว
Form1.Caption = fname
เปิด fname สำหรับเอาต์พุตเป็น #1
พิมพ์ #1, Text1.Text
ปิด #1
สิ้นสุดถ้า
จบหมวดย่อย
จำเป็นต้องใช้การควบคุม CommonDialog!
รหัสคุณสมบัติ:
คัดลอกรหัสรหัสดังต่อไปนี้:
เริ่มต้น VB.Menu mFile
คำบรรยาย = "ไฟล์"
เริ่มต้น VB.Menu mNew
คำบรรยาย = "ใหม่"
จบ
เริ่มต้น VB.Menu mOpen
คำบรรยาย = "เปิด"
จบ
เริ่ม VB.Menu mSave
คำบรรยาย = "บันทึก"
จบ
เริ่มต้น VB.Menu mNewSave
คำบรรยาย = "บันทึกเป็น"
จบ
เริ่มต้น VB.Menu mQuit
คำบรรยาย = "ออก"
ทางลัด = ^E
จบ
จบ