Program Sederhana Teks Editor Menggunakan
Visual Basic 6
1. Proses Pembuatan Program
Program notepad sederhana ini dibuat menggunakan Visual Basic 6, dengan menggunakan 3 buah form, 1 RichTextBox, Common Dialoq, dan beberapa menu, dengan ketentuan sebagai berikut sebagai berikut :
1. Form 1
Form 1 ini digunakan untuk tampilan langsung program, di form ini juga diletakkan fungsi menu- menu utama program, sebelumnya menu menu tersebut diedit dahulu pada menu Editor agar dapat menampakan hasilnya pada form 1.
Barulah setelah selesai menyusun menu untuk form 1, maka menu menu yang dibuat tadi diisikan script / code untuk menjalankan perintah, berikut penjelasannya :
1. Menu
Merupakan Fungsi pengelolaan File pada program ini, terdiri lagi dari beberapa sub menu yaitu :
Catatan Baru
= Digunakan untuk membuat catatan baru
Script pada menu catatan baru :
Private Sub mnubaru_Click()
Dim tombol As VbMsgBoxResult
tombol = MsgBox("Apakah anda ingin menyimpan teks? (data akan hilang apabila tidak disimpan)", vbQuestion + vbYesNoCancel, "Peringatan")
If tombol = vbYes Then
bukafile.Filter = "file text |*.txt"
bukafile.ShowSave
nmfile = bukafile.FileName
RichTextBox1.SaveFile nmfile, rtfText
End If
If tombol = vbNo Then RichTextBox1 = ""
End Sub
Buka Catatan
Untuk membuka file text yang telah disimpan se
belumnya ataupun yang telah dibuat oleh program lainnya.
Script pada menu ini :
Private Sub mnubuka_Click()
Dim nmfile As String
bukafile.Filter = "*.txt"
bukafile.ShowOpen
nmfile = bukafile.FileName
RichTextBox1.LoadFile nmfile, rtfText
End Sub
Simpan Catatan
Untuk menyimpan file yang telah dikerjakan oleh user.
Script pada menu ini :
Private Sub mnusimpan_Click()
Dim nmfile As String
bukafile.Filter = "file text |*.txt"
bukafile.ShowSave
nmfile = bukafile.FileName
RichTextBox1.SaveFile nmfile, rtfText
End Sub
Cetak ke Printer
Mengirim hasil ketikan user ke printer untuk dijadikan output.
Script yang digunakan :
Private Sub mnuprint_Click()
RichTextBox1.SelPrint (Printer.hDC)
End Sub
Keluar
Untuk keluar dari program.
Private Sub mnuexit_Click()
End
End Sub
2. Edit
Menu kedua dalam program, berisikan submenu yang digu
nakan untuk edit catatan, terdiri dari :
Copy
Untuk menyalin teks yang diseleksi ke clipboard.
Script :
Private Sub mnucopy_Click()
Clipboard.Clear
Clipboard.SetText RichTextBox1.SelText
End Sub
Cut
Digunakan untuk memindahkan teks yang diseleksi
Script :
Private Sub mnucut_Click()
Clipboard.Clear
Clipboard.SetText RichTextBox1.SelText
RichTextBox1.SelText = vbNullString
End Sub
Paste
Perintah ini yang digunakan untuk menyalin teks dari clipboard hasil copy atau cut ke teksbox.
Script :
Private Sub mnupaste_Click()
RichTextBox1.SelText = Clipboard.GetText()
End Sub
1. Pengaturan Huruf
Menu ini digunakan untuk memanipulasi huruf seperti jenis font yang digunakan, ukuran font, style font. Command yang digunakan hanya memanggil fungsi windows yaitu flag font seperti gambar dibawah ini :
Dengan menggunakan flag font tersebut maka aplikasi tinggal menentukan jenis font yang digunakan, ukuran font, style font dari pilihan user dengan menggunakan flag font tersebut, jadi aplikasi dapat langsung menerapkannya.
Script yang digunakan :
Private Sub mnuhuruf_Click()
Dim font As String
bukafile.Flags = &H1
bukafile.ShowFont
font = bukafile.FontName
RichTextBox1.font = font
RichTextBox1.font.Size = bukafile.FontSize
RichTextBox1.font.Bold = False
RichTextBox1.font.Underline = False
RichTextBox1.font.Italic = False
If bukafile.FontBold = True Then RichTextBox1.fo
nt.Bold = True
If bukafile.FontItalic = True Then RichTextBox
1.font.Italic = True
If bukafile.FontUnderline = True Then RichTextBox1.font.Underline = True
End Sub
1. Bantuan
Menu bantuan terdiri dari 2 submenu yaitu :
Lihat Bantuan
Digunakan untuk memunculkan bantuan tentang program ini, dengan cara me-load form 2 yang berisikan tentang bantuan program.
Script yang digunakan :
Private Sub mnulihat_Click()
Form2.Show
End Sub
Tentang Aplikasi
Berisikan keterangan tentang pembuat program dengan me-load form 3 yang berisi
data pembuat program
Script :
Private Sub mnutentangapp_Click()
Form3.Show
End Sub
