Membuat Notepad dengan Visual Basic 6.0

Assalamu’alaiku Wr.Wb

Nantslight - Pagi.. wah sudah lama gak posting.. Masih deg-degan bwt hari sabtu.. ama sibuk cari sekolah.. J. Pernah tidak kalian apa itu Notepad. notepad adalah aplikasi umum yg di miliki semua perangkat sejenis komputer bahkan hp seklipun.
Notepad bila diartikan "note =catatan & pad=kertas jd notepad adalah aplikasi untuk mencatat baik itu catatan biasa atw skrip dr program.

Kelebihan notepad
1. Support pd semua komputer
2. Bisa di save dlm bntuk apapun (contoh html, c++, visual basic, php, bat, cmd dll)
Letak notepad yang ada di OS. Windows terletak pada start>all program>accesories>notepad
3. Bisa pakai untuk mengedit skrip dll.
4. berkapasitas kecil.

Nah kali ini aku mau share tentang cara membuat sendiri notepad dengan Visual Basic 6.0.

Ok. Langsung aja ya..

Pertama buka dulu IDE Visual Basic6.0-nya

Kemudian tambahkan 1 TextBox, 1 CommonDialog(di tutorial sebelumnya sudah ada bagaimana cara menambahkan CommonDialog.)

Dan Menu Editor, Caranya yaitu Klik Tools>Menu Editor atau tekan Ctrl+E..

 

Kemudian Tambahkan Menu di bawah ini..

Caption	Name
&File	File
‘’’’&New	New
‘’’’&Open	Open
‘’’’&Save As..	Save
‘’’’&Print	Print
‘’’’-	Space
‘’’’&Minimize	Minimize
‘’’’&Exit	Exit
&Edit	Edit
‘’’’&Cut	Cut
‘’’’&Copy	Copy
‘’’’&Paste	Paste

Seperti gambar berikut..

 

Untuk menambahkan titiknya jangan di ketik tanda petik, klik tombol arah kanan di menu editor..

Sehingga tampilan formnya seperti berikut..

 

Kemudian Masukkan kode berikut..

------***---------------------------------------------------------------

Private Sub Copy_Click()

Clipboard.Clear

   Clipboard.SetText Text1.SelText

End Sub

Private Sub Cut_Click()

Clipboard.Clear

Clipboard.SetText Text1.SelText

Text1.SelText = ""

End Sub

Private Sub Exit_Click()

On Error GoTo ErrorHandler

Dim Msg, Style, Title, Response, MyString

Msg = "Are you sure you want to exit ?"

Style = vbYesNo + vbQuestion + vbDefaultButton1

Title = "Warning"

Response = MsgBox(Msg, Style, Title)

If Response = vbYes Then

   MyString = "Yes"

End

End If

ErrorHandler:

End Sub

Private Sub Minimize_Click()

Form1.WindowState = 1

End Sub

Private Sub New_Click()

Text1.Text = ""

End Sub

Private Sub Open_Click()

   CommonDialog1.Filter = "All Files (*.*)|*.*|Text Files (*.txt)|*.txt"

   CommonDialog1.FilterIndex = 2

CommonDialog1.ShowOpen

  Dim LoadFileToTB As Boolean

 Dim TxtBox As Object

 Dim FilePath As String

  Dim Append As Boolean

Dim iFile As Integer

Dim s As String

If Dir(FilePath) = "" Then Exit Sub

On Error GoTo ErrorHandler:

s = Text1.Text

iFile = FreeFile

Open CommonDialog1.FileName For Input As #iFile

s = Input(LOF(iFile), #iFile)

If Append Then

    Text1.Text = Text1.Text & s

Else

    Text1.Text = s

End If

LoadFileToTB = True

ErrorHandler:

If iFile > 0 Then Close #iFile

End Sub

Private Sub Paste_Click()

Text1.SelText = Clipboard.GetText()

End Sub

Private Sub Print_Click()

 On Error GoTo ErrHandler

  Dim BeginPage, EndPage, NumCopies, i

   CommonDialog1.CancelError = True

  CommonDialog1.ShowPrinter

  BeginPage = CommonDialog1.FromPage

  EndPage = CommonDialog1.ToPage

  NumCopies = CommonDialog1.Copies

  For i = 1 To NumCopies

 Printer.Print Text1.Text

  Next i

  Exit Sub

ErrHandler:

   Exit Sub

End Sub

Private Sub Save_Click()

On Error GoTo ErrorHandler

  CommonDialog1.Filter = "All Files (*.*)|*.*|Text Files (*.txt)|*.txt"

    CommonDialog1.FilterIndex = 2

   CommonDialog1.ShowSave

 CommonDialog1.FileName = CommonDialog1.FileName

Dim iFile As Integer

 Dim SaveFileFromTB As Boolean

 Dim TxtBox As Object

 Dim FilePath As String

Dim Append As Boolean

  iFile = FreeFile

If Append Then

    Open CommonDialog1.FileName For Append As #iFile

Else

    Open CommonDialog1.FileName For Output As #iFile

End If

Print #iFile, Text1.Text

SaveFileFromTB = True

ErrorHandler:

Close #iFile

End Sub

----------------------------------------------------------------***-----

Setelah itu silahkan kalian jalankan Notepad yang telah kalian buat.. Untuk tidak susah ngetik silahkan download di sini.. Sekian dulu ya..

Selamat Mencoba..

Semoga Bermanfaat..

Wassalamu’alaikum Wr.Wb

These icons link to social bookmarking sites where readers can share and discover new web pages.

• 
• 
• 
• 
• 
• 
• 
• 
• 
• 
• 

Tags: Visual Basic