Sunday, October 5, 2014

Tips Membuat NotePad Keren dan Sederhana Dengan Visual Basic 2010

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:

Hapus semua koding yang ada, dan pastekan koding 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 

Ditulis Oleh : Unknown // 10:19:00 AM
Kategori:

1 comments:

 

Pengunjung

Powered by Blogger.