Program Sederhana Teks Editor Menggunakan Visual Basic 6

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