Kode implementasi acara:
Copy kode kodenya sebagai berikut:
Sub Pribadi mQuit_Click()
Teks1.Teks = ""
Akhir
Akhiri Sub
Sub Pribadi mNew_Click()
Teks1.Teks = ""
Form1.Caption = "Tanpa Judul"
Akhiri Sub
Sub Pribadi mopen_Click()
CommonDialog1.TampilkanTerbuka
Bingkai = CommonDialog1.NamaFile
Jika fname <> "" Lalu
Form1.Caption = nama f
Teks1.Teks = ""
Buka fname Untuk Input Sebagai #1
b = ""
Lakukan Sampai EOF(1)
Input Baris #1, baris berikutnya
b = b & baris berikutnya & Chr(13) & Chr(10)
Lingkaran
Tutup #1
Teks1.Teks = b
Akhiri Jika
Akhiri Sub
Sub Pribadi mSave_Click()
Jika Form1.Caption = "Tanpa Judul" Atau Form1.Caption = "" Lalu
CommonDialog1.TampilkanSimpan
fname = CommonDialog1.FileName
Kalau tidak
fname = Formulir1.Caption
Akhiri Jika
Jika fname <> "" Lalu
Form1.Caption = nama f
Buka fname Untuk Output Sebagai #1
Cetak #1, Teks1.Teks
Tutup #1
Akhiri Jika
Akhiri Sub
Sub Pribadi mNewSave_Click()
CommonDialog1.TampilkanSimpan
Jika fname <> "" Lalu
Form1.Caption = nama f
Buka fname Untuk Output Sebagai #1
Cetak #1, Teks1.Teks
Tutup #1
Akhiri Jika
Akhiri Sub
Perlu menggunakan kontrol CommonDialog!
Kode properti:
Copy kode kodenya sebagai berikut:
Mulai VB.Menu mFile
Keterangan = "File"
Mulai VB.Menu mBaru
Keterangan = "Baru"
Akhir
Mulai VB.Menu mOpen
Keterangan = "Buka"
Akhir
Mulai VB.Menu mSave
Keterangan = "Simpan"
Akhir
Mulai VB.Menu mNewSave
Keterangan = "Simpan sebagai"
Akhir
Mulai VB.Menu mQuit
Keterangan = "Keluar"
Jalan pintas = ^E
Akhir
Akhir