[VISUAL BASIC] CARA MEMBUAT NOTEPAD SENDIRI DI VISUAL BASIC 6.0

CYBER_TNT - Asslamualaiakum Sabahat TNT. Kali ini saya akan memberikan tutorial tentang visual basic yaitu CARA MEMBUAT NOTEPAD SENDIRI DENGAN VISUAL BASIC 6.0. Pastinya sudah tau semuanya kan apa itu notepad. Nih saya kasih Screenshot Notepad punya saya :

Simple kan notepad buatan saya, saya kasih nama Notepad diatas saya kasi nama ANONYMOUS NOTEPAD MINI.
Kelebihan Notepad ini :

• Support pada semua komputer
• Dapat di simpan dengan extensi apa aja misal (.html)
• Mini Notepad
• Kpasitas kecil
• Bisa diapakai untuk mengedit script dll

Okey Berikut caranya :

1. Buka Visual Basic 6.0.
2. Setelah lembar kerja terbuka buat 1 project baru, dan tambahkan 1 Text Box, 1MicrosoftCommon Dialog 6.0, untuk menambhakan CommonDialog sebagai berikut : Klik Project - Component (CTRL + T). Lihat gambar :

Jika sudah ditambahkan maka akan muncul tombol di tollbar, lihat gambar :

3. Jika sudah tambahkan menu editor dengan cara : Klik Kanan di form/object - lalu klik menu editor (CTRL +E). Maka nampak seperti ini :

4. Kemudian tambahkan menu dibwah ini  di menu editor :

ADIARDAN	CYBER_TNT
Caption	Name
&File	File
‘’’’&New	New
‘’’’&Open	Open
‘’’’&Print	Print
‘’’’-	Space
‘’’’&Minimize	Minimize
‘’’’&Exit	Exit
&Edit	Edit
‘’’’&Cut	Cut
‘’’’&Copy	Copy
‘’’’&Paste	Paste

Dan akan nampak seperti gambar dibawah ini :

Nb : Jika ingin menambahkan titik seperti gambar diatas jangan diketik tanda petik, klik tombol arah kanan tombol menu editor.

5. Setelah itu akan nampak formnya sebagai berikut :

6. Setelah tertata sesuai keinginan Anda langkah selanjutnya adalah memasukan Code berikut Satu-Persatu :

------------------------------------------------CYBER_TNT------------------------------------------------
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
------------------------------------------------CYBER_TNT------------------------------------------------

7. Setelah code semua dimasukan coba dijalankan program tersebut dengan tekan tombol F5.
8. Jika program sudah tidak eror tinggal di simpan dengan cara : Klik File - Pilih menu project1.exe - OK
9. SELESAI !!!

Jika masih mengalami kesulitan tanyakan seja kepada saja dengan cara berkomentar dibwah ini.

Sekian dulu post kali ini capek tangan ngetik nih artikel HEHE.

Semoga Bermanfaat :)

HAPPY ENJOY :)