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.
  • Digg
  • Sphinn
  • del.icio.us
  • Facebook
  • Mixx
  • Google
  • Furl
  • Reddit
  • Spurl
  • StumbleUpon
  • Technorati

5 Responses to this post

  1. Anonymous on 20 June 2012 at 11:03

    Password nya apa Bang Mau Belajar ne heheh

    YM : mesi_y

  2. Arif Nurnanto on 22 June 2012 at 19:11

    @Mesianto Hia : Password apa gan..?
    File rarnya kan nggak aq kasih password..
    (^_^)

  3. Unknown on 2 August 2015 at 13:48

    nanya ya, itu di Private Sub New_click() diisi apa ya? soalnya kalo dikosongin muncul msg box run time eror, object required

  4. Unknown on 28 September 2016 at 10:30

    itu pakai text area atau richtext?

  5. Khomaqi on 4 December 2017 at 09:11

    print
    save
    new
    open
    kog gax bisa

Leave a comment