Pada Hari ini saya akan mengajarkan teman-teman semuanya, bagaimana cara membuat NotePad keren dan sederhana dengan menggunakan Visual Basic 2010. Kegunaan NotePad yang selama ini kita pakai sangant banyak fungsinya, tapi kali ini, saya hanya membuat NotePad yang sederhana, tetapi memiliki tampilan yang dinamis. Agar tidak memakan waktu yang lama, kita langsung saja, dan lihat caranya dengan teliti dibawah ini :
Langkah pertama adalah, buatlah form baru dengan cara buka VB 2010, New Project...,maka akan muncul tapilan seperti ini :
pada lingkaran yang ada pada gambar, ganti nama project sesuai keinginan anda, setelah itu klik OK.
Akan muncul tampilan form seperti gambar dibawah ini :
Langkah kedua, kita akan membuat beberapa menu dengan cara, klik dropkan MenuStrip dari Toolbox ke bagian atas kiri form, maka akan terlihat seperti gambar dibawah ini
Untuk Menampilkan Menu standart, maka klik kanan pada bagian menustrip tadi, lalu klik pilihan "Insert Standard Item", seperti gambar dibawah ini
maka, menu standard akan muncul, dan telah memiliki otomatis pengaturan control pada keyboard, seperti gambar dibawah ini
Langkah Ketiga, Membuat Toolbar tepat dibawah menu utama, dengan cara klik drop "ToolStrip" dari kolom Toolbax VB, seperti gambar dibawah ini
Kemudian Klik kanan pada bagian toolstrip tadi, lalu klik pilihan "Insert Standard Item", seperti gambar dibawah ini
maka hasilnya seperti gambar dibawah ini
Langkah keempat, membuat statusbar, dengan cara klik drop statusstrip pada tollbox ke bagian kiri bawah form, seperti pada gambar dibawah ini
Kemudian buatlah sebuah, sebuah status label dengan mengklik tanda panah kecil pada status strip, lakukan seperti gambar dibawah ini
maka akan muncul seperti gambar dibawah ini, setelah itu ganti text pada properties menjadi "Null", seperti gambar dibawah ini
Langkah Kelima, membuat RichTextBox, dengan klik drop RichTextBox pada toolbox VB, seperti gambar dibawah ini.
Kemidian, agar nanti proses pengeprinan terlampir, maka klik drop kan masing-masing "PrintDialog, PrintPreviewDialog, dan PrintDocument pada toolbox VB, lakukan seperti gambar dibawah ini
Membuat Munu "View", agar berfungsi untuk menampilkan dan menghilangkan "ToolStrip" dan "StatusStrip", hapus Menu "Tools" dan "Help", ddan Buat menu "View" dan Sub Menu "ToolBar" dan "StatusBar", Seperti gambar dibawah ini
Akhirnya selesai juga, untuk pembuatan Tampilannya...
Selanjutnya langkah terakhir yaitu langkah pengkodingan,
Langkah Keenam, koding.
double klik Form atau tekan Tombol F7 pada keyboard. sehingga akan mincul seperti gambar dibawah ini:
Imports System.IO
Public Class Form1
Private kode1 As Integer = 0
Dim Open As New OpenFileDialog
Dim fileinfo As FileInfo
Dim Save As New SaveFileDialog
Dim SaveAs As New SaveFileDialog
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub NewToolStripButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NewToolStripButton.Click
If MsgBox("Apakah anda ingin membuat text baru ?", MsgBoxStyle.YesNo + MessageBoxIcon.Question, "New") = DialogResult.Yes Then
RichTextBox1.Clear()
RichTextBox1.Focus()
End If
End Sub
Private Sub NewToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NewToolStripMenuItem.Click
If MsgBox("Apakah anda ingin membuat text baru ?", MsgBoxStyle.YesNo + MessageBoxIcon.Question, "New") = DialogResult.Yes Then
RichTextBox1.Clear()
RichTextBox1.Focus()
End If
End Sub
Private Sub OpenToolStripButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OpenToolStripButton.Click
Open.Title = "Open"
Open.Filter = "RichTextBox (*.rtf)|*.rtf"
If Open.ShowDialog() = Windows.Forms.DialogResult.OK Then
RichTextBox1.LoadFile(Open.FileName, RichTextBoxStreamType.PlainText)
kode1 = 1
ToolStripStatusLabel1.Text = "Terbuka"
End If
End Sub
Private Sub OpenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OpenToolStripMenuItem.Click
Open.Title = "Open"
Open.Filter = "RichTextBox (*.rtf)|*.rtf"
If Open.ShowDialog() = Windows.Forms.DialogResult.OK Then
RichTextBox1.LoadFile(Open.FileName, RichTextBoxStreamType.PlainText)
kode1 = 1
ToolStripStatusLabel1.Text = "Terbuka"
End If
End Sub
Private Sub SaveToolStripButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SaveToolStripButton.Click
Save.Title = "Save"
Save.Filter = "RichTextBox (*.rtf)|*.rtf"
If kode1 = 0 Then
If Save.ShowDialog() = DialogResult.OK Then
RichTextBox1.SaveFile(Save.FileName, RichTextBoxStreamType.TextTextOleObjs)
ToolStripStatusLabel1.Text = "Tersimpan"
kode1 = 2
End If
ElseIf kode1 = 1 Then
fileinfo = New FileInfo(Open.FileName)
fileinfo.Delete()
RichTextBox1.SaveFile(Open.FileName, RichTextBoxStreamType.TextTextOleObjs)
ToolStripStatusLabel1.Text = "Tersimpan"
ElseIf kode1 = 2 Then
fileinfo = New FileInfo(Save.FileName)
fileinfo.Delete()
RichTextBox1.SaveFile(Save.FileName, RichTextBoxStreamType.TextTextOleObjs)
ToolStripStatusLabel1.Text = "Tersimpan"
End If
End Sub
Private Sub SaveToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SaveToolStripMenuItem.Click
Save.Title = "Save"
Save.Filter = "RichTextBox (*.rtf)|*.rtf"
If kode1 = 0 Then
If Save.ShowDialog() = DialogResult.OK Then
RichTextBox1.SaveFile(Save.FileName, RichTextBoxStreamType.TextTextOleObjs)
ToolStripStatusLabel1.Text = "Tersimpan"
kode1 = 2
End If
ElseIf kode1 = 1 Then
fileinfo = New FileInfo(Open.FileName)
fileinfo.Delete()
RichTextBox1.SaveFile(Open.FileName, RichTextBoxStreamType.TextTextOleObjs)
ToolStripStatusLabel1.Text = "Tersimpan"
ElseIf kode1 = 2 Then
fileinfo = New FileInfo(Save.FileName)
fileinfo.Delete()
RichTextBox1.SaveFile(Save.FileName, RichTextBoxStreamType.TextTextOleObjs)
ToolStripStatusLabel1.Text = "Tersimpan"
End If
End Sub
Private Sub SaveAsToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SaveAsToolStripMenuItem.Click
SaveAs.Title = "Save As..."
SaveAs.Filter = "Richtextbox (*.rtf)|*.rtf"
If SaveAs.ShowDialog() = Windows.Forms.DialogResult.OK Then
RichTextBox1.SaveFile(SaveAs.FileName, RichTextBoxStreamType.TextTextOleObjs)
ToolStripStatusLabel1.Text = "Tersimpan"
End If
End Sub
Private Sub ExitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitToolStripMenuItem.Click
Me.Close()
End Sub
Private Sub CutToolStripButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CutToolStripButton.Click
RichTextBox1.Cut()
End Sub
Private Sub CutToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CutToolStripMenuItem.Click
RichTextBox1.Cut()
End Sub
Private Sub CopyToolStripButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CopyToolStripButton.Click
RichTextBox1.Copy()
End Sub
Private Sub CopyToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CopyToolStripMenuItem.Click
RichTextBox1.Copy()
End Sub
Private Sub PasteToolStripButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PasteToolStripButton.Click
RichTextBox1.Paste()
End Sub
Private Sub PasteToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PasteToolStripMenuItem.Click
RichTextBox1.Paste()
End Sub
Private Sub UndoToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles UndoToolStripMenuItem.Click
RichTextBox1.Undo()
End Sub
Private Sub RedoToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RedoToolStripMenuItem.Click
RichTextBox1.Redo()
End Sub
Private Sub SelectAllToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SelectAllToolStripMenuItem.Click
RichTextBox1.SelectAll()
End Sub
Private Sub RichTextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RichTextBox1.TextChanged
If RichTextBox1.TextLength + 1 Or RichTextBox1.TextLength - 1 Then
ToolStripStatusLabel1.Text = "Belum Tersimpan"
End If
End Sub
Private Sub PrintToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PrintToolStripMenuItem.Click
If PrintDialog1.ShowDialog() = DialogResult.OK Then
PrintDocument1.Print()
End If
End Sub
Private Sub PrintToolStripButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PrintToolStripButton.Click
If PrintDialog1.ShowDialog() = DialogResult.OK Then
PrintDocument1.Print()
End If
End Sub
Private Sub PrintPreviewToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PrintPreviewToolStripMenuItem.Click
PrintPreviewDialog1.ShowDialog()
End Sub
Private Sub ToolBarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolBarToolStripMenuItem.Click
If ToolBarToolStripMenuItem.Checked = True Then
ToolBarToolStripMenuItem.Checked = False
ToolStrip1.Visible = False
Else
ToolStrip1.Visible = True
ToolBarToolStripMenuItem.Checked = True
End If
End Sub
Private Sub StatusBarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles StatusBarToolStripMenuItem.Click
If StatusBarToolStripMenuItem.Checked = True Then
StatusBarToolStripMenuItem.Checked = False
StatusStrip1.Visible = False
Else
StatusStrip1.Visible = True
StatusBarToolStripMenuItem.Checked = True
End If
End Sub
End Class
Akhirnya selesai juga, lakukanlah cara ini secara bertahap dan terperinci agar menghasilkan hasil yang maksimal.
Untuk saat ini sekian dulu. Salam Admin
Untuk saat ini sekian dulu. Salam Admin
membantu banget
ReplyDelete